Datenbankverbindung zur Laufzeit erstellen

[MCOP2001DE]

Hallo x000x

Zu deiner Frage

Zitat:

gibt dir einen String zurück, aber wo weist du den zu?
Die Variable "dir" ist bei dir gar nicht gefüllt.

Delphi-Quellcode:

dir := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
TAB_DATEN.Connection.ConnectionString := Format(dir,[ini.readstring('DB','Pfad','db1.mdb')]);

So würde es eher funktionieren, vorrausgesetzt im aktuellen Pfad befindet sich die db1.mdb

Der komplette String wird in die Ini Datei geschrieben und zwar so

Delphi-Quellcode:

{ändern der Datenbankverbindung}
procedure TFRM_Main.Verbindungndern1Click(Sender: TObject);
var ini : TIniFile;
Dir : String;
begin
{schliessen aller Datenverbindungen}
     TAB_DATEN.Connection.Connected          := False;
     TAB_DATEN.TAB_Anlagen.Active            := False;
     TAB_Daten.TAB_Anlagentyp.Active         := False;
     TAB_Daten.TAB_A_Arbeiten.Active         := False;
     TAB_Daten.TAB_A_Stoerungen.Active       := False;
     TAB_Daten.TAB_Bahnhof.Active            := False;
     TAB_Daten.TAB_Erbauer.Active            := False;
     TAB_Daten.TAB_Halle.Active              := False;
     TAB_Daten.TAB_Hersteller.Active         := False;
     TAB_Daten.TAB_Ersatzteil.Active         := False;
     TAB_Daten.TAB_EAnlagentyp.Active        := False;
     TAB_Daten.TAB_Zuordnung.Active          := False;
     TAB_Daten.TAB_Materialanlagen.Active    := False;
     TAB_Daten.TAB_Materialanlagentyp.Active := False;
     TAB_Daten.TAB_MA_Arbeiten.Active        := False;
     TAB_Daten.TAB_MA_Stoerungen.Active      := False;
     TAB_Daten.TAB_Werk.Active               := False;
{auswählen der neuen Datenquelle und speichern dieser}
   if openDialog.Execute then
    Dir := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+openDialog.FileName +';Persist Security Info=False' ;
    begin
     ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'Konfiguration.ini');
     ini.WriteString('DB', 'Pfad', Dir);
     ini.Free;
    end;
{auslesen der neuen Datenverbindung und eintragen der Werte in den ConnectionString}
    Begin
   ini:=TIniFile.Create('Konfiguration.ini');
    try
     ini.ReadString('DB','Pfad',Dir);
     TAB_Daten.Connection.ConnectionString := Dir;
    finally
     ini.Free;
    end;
{öffnen der Datenbankverbindung und der Tabellen}
     TAB_DATEN.Connection.Connected          := True;
     TAB_DATEN.TAB_Anlagen.Active            := True;
     TAB_Daten.TAB_Anlagentyp.Active         := True;
     TAB_Daten.TAB_A_Arbeiten.Active         := True;
     TAB_Daten.TAB_A_Stoerungen.Active       := True;
     TAB_Daten.TAB_Bahnhof.Active            := True;
     TAB_Daten.TAB_Erbauer.Active            := True;
     TAB_Daten.TAB_Halle.Active              := True;
     TAB_Daten.TAB_Hersteller.Active         := True;
     TAB_Daten.TAB_Ersatzteil.Active         := True;
     TAB_Daten.TAB_EAnlagentyp.Active        := True;
     TAB_Daten.TAB_Zuordnung.Active          := True;
     TAB_Daten.TAB_Materialanlagen.Active    := True;
     TAB_Daten.TAB_Materialanlagentyp.Active := True;
     TAB_Daten.TAB_MA_Arbeiten.Active        := True;
     TAB_Daten.TAB_MA_Stoerungen.Active      := True;
     TAB_Daten.TAB_Werk.Active               := True;

 end;
end;
{Ende}

Ich brauche also eigentlich nur den String aus der INI Datei lesen und in den ConnectinString einfügen.
Und das klappt irgentwie nicht.

TeronG ich habe deinen Code mal versucht mit dem selben Ergebnis "Fehler bei der Authentifizierung"

Hat noch jemand ne Idee??

MCop2001DE