MS Access-Verbindung funktioniert nur in der IDE

[Delphi.Narium]

Bau Dir mal in Dein Programm 'ne zusätzliche Funktion ein:

Delphi-Quellcode:

function GetConnectionString(Handle        : THandle;
                             ADOConnection : TADOConnection;
                             sConnection   : String = '') : Boolean;
begin
  ADOConnection.Connected        := False;
  // Hier wird der Dialog zum Aufbau des ConnectionString aufgerufen, 
  // analog zu dem Aufbau per ObjektInspektor in der IDE.
  ADOConnection.ConnectionString := PromptDataSource(handle,sConnection);
  ADOConnection.Connected        := True;
  Result                         := ADOConnection.Connected;
end; 

// Irgendwo am Anfang, z. B. im FormCreate oder wo auch immer sonst
// die Datenbankverbindung bzw. die Tabellen geöffnet werden sollen:
begin
  if GetConnectionString(handle,ADOConnection1) then begin
    // Hier sollte die Datenbankverbindung bestehen.
    // Den ConnctionString kannst Du Dir, bei Bedarf per STRG+C aus dem Dialog
    // kopieren und dann an sinnvoller Stelle speichern bzw. der ADOConnection zuweisen.
    ShowMessage(ADOConnection1.ConnectionString);
  end else begin
    MessageDLG('Es konnte keine Datenbankverbindung hergestellt werden.',mtError,[mbOk],0);
  end;
end;