Firebird embedded Datenbank und Normal Firebird DB

[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]