Hallo

Ich Habe folgendes Problem ich möchte einen Datenbankverbindung zur Laufzeit ändern können.
Das habe ich über den OpenDialog auch schon verwirklicht diese Daten werden in einer INI-Datei gespeichert.
Diese klappt auch aber das aufrufen der Verbindungsdaten beim Programmstart klappt nicht da ich immer die Fehlermeldeung
"Fehler bei der Authentifizierung" bekomme.
Wenn ich den ConnetionString mit einer Datenbankzuweisung belege bekomme ich die Meldung nicht!
Wenn ich aber die Datenbank verschiebe bekomme ich trotz richtigen Verbindungsstring in der Ini-Datei die meldung das die Datenbank nicht gefunden wurde.

der Aufruf für den Start des Programms sieht wie volkt aus:

zusammenfalten · markieren

Delphi-Quellcode:

{Starten des Datenbankverbindung}
procedure TFRM_Main.FormShow(Sender: TObject);
var ini: TIniFile;
Dir : String;
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}
   Begin
     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}

Hat jemand ne Idee wo mein Fehler liegt?

MFG

MCOP2001DE

Moin moin,
also das kann auch nicht funkltionieren...
ini.readstring(..); gibt dir einen String zurück, aber wo weist du den zu?
Die Variable "dir" ist bei dir gar nicht gefüllt.

markieren

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

Ich mach es einfach mal so, dann spare ich mir etwas Getippe

http://www.delphipraxis.net/internal...nnectionstring

Schöne Grüße,
Jens

evtl. nur n Dreher drinnen und sollte so aussehen ???

markieren

Delphi-Quellcode:

try
ini.ReadString('DB','Pfad',Dir); // <-- Vorher
dir := ini.ReadString('DB','Pfad',''); // <-- Nachher

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.

markieren

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

zusammenfalten · markieren

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

Habs

Hier ist dein Fehler

ini.ReadString('DB','Pfad',Dir); So muss es aussehen
Dir:=ini.ReadString('DB','Pfad',''); "Dir" war bei Dir immer ''

Wenn die in "dir" angegebene DB nicht existiert kommt der beschriebene Fehler.

Jetzt wäre es natürlich elegant, wenn du nur Opendialog.filename in die ini schreibst anstatt des ConnectionString-Geraffels. Bei Jet Datenbanken reicht das auch völlig aus ...

So hättest du eine Möglichkeit die Konfig-Einstellungen sauber zu prüfen

markieren

Delphi-Quellcode:

    if Fileexists(dir) then
    begin
      AdoConn.ConnectionString := Dir;
      AdoConn.Connected := True
    end
    else begin
      Showmessage('Konfigurationen.ini oder DB wurde nicht gefunden. Wählen Sie eine DB');
      //hier Opendialog und neue DB wählen ...
    end;

Habe dir mein "Spielprojekt" mal angehängt


Schöne Grüße,
Jens

Das hier kannst du dir übrigens Sparen.

zusammenfalten · markieren

Delphi-Quellcode:

     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;

Wenn die AdoConn geschlossen wird, werden die angebundenen DataSets automatisch geschlossen.

Hallo Jensw_2000

Danke für den Tip hat geklappt

MCOP2001DE