Problem mit Connection String

[Jack23]

Was muss ich tauschen?

Wie müsste er sein?

[shmia]

Mach es so, wie in folgendem Beispiel.
Ich habe auch auch der Funktion Connection eine Procedure gemacht, da dies sinnvoller ist.

Delphi-Quellcode:

procedure TDataModul.SetupConnection; 
var
   mdbfile : string;
begin 
  mdbfile := ExtractFilePath(ParamStr(0))+'abc.mdb';
  if not FileExists(mdbfile) then
     raise Exception.CreateFmt('Access-Datenbank %s fehlt!',[mdbfile]);
  AdOConnection1.Connected := False; // Zur Sicherheit
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mdbfile; 
  ADOConnection1.LoginPrompt := False;
  AdOConnection1.Connected := TRUE; 
end;

[Jack23]

Danke klappt wunderbar.

Aber ich hätte doch auch eine function machen können oder?

[shmia]

Zitat von Jack23:

Aber ich hätte doch auch eine function machen können oder?

Ja schon, aber welche Information hätte die Function geben können. (True=Verbindung ok, False = Verbindung nicht ok ?)
Der Informationsgehalt beträgt ein Bit und das ist sehr wenig.
Die Exception bringt viel mehr Sicherheit in die Anwendung, denn sie teilt dir direkt das Problem mit.