Einzelnen Beitrag anzeigen

MCOP2001DE

Registriert seit: 19. Jun 2004
89 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Datenbankverbindung zur Laufzeit erstellen

  Alt 20. Jul 2005, 01:26
Datenbank: Access • Version: 2003 • Zugriff über: ADO/SQL
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:
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
  Mit Zitat antworten Zitat