Hallo,
einen DSN musst Du nicht anlegen. Wichtig ist nur, das der Client-
Access-
ODBC-Treiber verfügbar ist.
Mit folgender Funktion kannst Du Dich an jeder AS400 anmelden, solange Du die Bibliothek kennst:
Delphi-Quellcode:
function MakeConStr_ODBC_AS400(
const aIP, aLibrarie, aUser, aPWD:
String);
begin
Result:=
'
DRIVER=Client Access ODBC Driver (32-bit);'+
Format('
SYSTEM=%s;', [aIP])+
Format('
DefaultLibraries=%s;', [aLibrarie])+
Format('
UserID=%s;', [aUser])+
Format('
PASSWORD=%s;', [aPWD]);
end;
// MakeConStr_ODBC_AS400
Diese Vorgehensweise hat den Vorteil, dass keine DSN mehr installiert werden muss, und Dein Programm überall dort läuft, wo ein IBM-Client installiert ist.
Aufgerufen wird das ganze dann in etwa so:
Delphi-Quellcode:
...
AdoConnection1.ConnectionString:=
MakeConStr_ODBC_AS400('
127.0.0.1', '
AS400Bibliothek', '
DerUser', '
DasPassword');
try
AdoConnection1.Connected:=True;
except
on E:
Exception do MessageDlg(E.
Message, mtError, [mbOk], 0);
end;
// try
...