Firebird embedded Datenbank und Normal Firebird DB

[rambothekid]

Hallo

kann mir einer sagen ob es möglich ist in einer Anwendung sowohl auf eine Embedded Datenbank als auch auf eine Normale Firebird Datanbank zu zugreifen

Ich nutze für den zugriff die IBDAC Komponenten , doch offensichtlich schaft er das nicht zwischen diesen beiden Datenbanks zu unter scheiden

[haentschman]

Ich denke schon...mit 2 Connections. eine auf den Server und eine auf die lokale DB :hi:

[rambothekid]

Hi

ja ich habe 2 connection :

die zur Embedded

Delphi-Quellcode:

 If FileExists(ExtractFilePath(Application.ExeName)+'fbembed.dll') then
     begin
      IBCPoolConnectionlog.ClientLibrary:=ExtractFilePath(Application.ExeName)+'fbembed.dll';
       IBCPoolConnectionlog.Server:='';
      //IBCPoolConnectionlog.ClientLibrary:=ExtractFilePath(Application.ExeName)+'fbclient.dll';
      IBCPoolConnectionlog.Database:=ExtractFilePath(Application.ExeName)+'THREADLOG.FDB';
      //IBCPoolConnection.Username:='SYSDBA';
      //IBCPoolConnection.Password:='masterkey';
      IBCPoolConnectionlog.Connect;
      if IBCPoolConnectionlog.Connected then
       begin
        IBCPoolQuerylog.Connection:= IBCPoolConnectionlog;
        Fconnected:= true;
       end

und die zum eigentlich Server:

Delphi-Quellcode:

     begin
            
                ThDatabase.LoginPrompt      := FALSE;
                ThDatabase.Database  := TFB_Server_Form(Thtag).connect_L.Alias;
                ThDB.Fdblog.Fserverpfad:= TFB_Server_Form(Thtag).connect_L.Alias;
                ThDatabase.Server := TFB_Server_Form(Thtag).connect_L.server;
                 ThDB.Fdblog.Fserver:= TFB_Server_Form(Thtag).connect_L.server;
                //ThDatabase.DatabaseName := TFB_Server_Form(Thtag).connect_L.Server+':'+
                //                           TFB_Server_Form(Thtag).Connect_L.Alias;
                ThDatabase.Username := TFB_Server_Form(Thtag).connect_L.user;
                ThDB.Fdblog.Fuser:= TFB_Server_Form(Thtag).connect_L.user;
                ThDatabase.Password := TFB_Server_Form(Thtag).connect_L.PW;
                ThDB.Fdblog.Fpasword:= TFB_Server_Form(Thtag).connect_L.PW;
                if Params <> nil then
                  ThDatabase.Params := Params;

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Und wie/wo greifst du dann darauf zu?

[p80286]

das ist ja sehr schön,
und was steht in Thtag ?

Die Benennung der Variablen mit Th.... ist ein wenig gewöhnungsbedürftig.

Achja was haben ThDB und ThDatenbank miteinander zu tun?

Gruß
K-H