Mit ADO ODBC auf AS400 zugreifen

[Gollum]

Hallo,
was mir seltsam vorkommt ist Dein Connection-String. Was hat da eine Access-DB darin zu suchen, wenn Du auf eine AS400 zugreifen willst?
Ich benutze schon seit Jahren folgenden Connectionstring zum Auslesen von Daten:

Delphi-Quellcode:

const
  sVerbindIP=
    'DRIVER=Client Access ODBC Driver (32-bit);'+
    'SYSTEM=%s;'+
    'DefaultLibraries=%s;'+
    'UserID=%s;'+
    'PASSWORD=%s;';

function MakeConStrODBC_400(const aIP, aLibrarie, aUser, aPass:String):String; 
begin
  Result:=Format(sVerbindIP, [aIP, aLibrarie, aUser, aPass]);
end; // MakeConStrODBC_400

....

function TForm1.ConnectToDB():Bool;
var IPZurAS400:String;
begin
  //IPZurAS400:='127.0.0.1'; --> diesen Wert enstsprechend anpassen
  Result:=True;
  if AdoConnection1.Connected then AdoConnection1.Connected:=False;
  AdoConnection1.ConnectionString:=MakeConStrODBC_400(IPZurAS400, 'VWWE400', myUser, myPassword);
  try
    AdoConnection1.Connected:=True;
  except
    on E: Exception do 
    begin
      MessageDlg(E.Message, mtError, [mbOk], 0);
      Result:=False;
    end; // on
  end; // try
end; // TForm1.ConnectToDB