ConnectionString - User und Passwort mitgeben - wie - dsn

[Gollum]

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
  ...