Hallo,
auf dem Server läuft nur Firebird 2.5. Es wird die fbclient.dll eingebunden die auf den Server installiert worden ist. Ich habe den Port auf 3055 auf den Server umgestellt. Die Datenbank wird mit:
DB.database := '\\XXXDATENSERVER\d:\db\EO_Liste\HPLPRG2020.FDB';
angelegt.
Mit:
DB.database := 'XXXDATENSERVER:d:\db\EO_Liste\HPLPRG2020.FDB';
wird sie nicht angelegt.
Delphi-Quellcode:
procedure TfrmFirebird_DB_anlegen.DB_anlegen(ServerName, DatenbankOrdner,
DatenbankFileName:
String;
var DB: TIBCConnection);
begin
DB:= TIBCConnection.Create(
NIL);
try
try
DB.Port := '
3055';
DB.ClientLibrary := '
C:\Users\Internet\Documents\Embarcadero\Studio\Projekte\DB_anlegen\fbclient.dll';
// Mit diesem Aufruf wird die Datenbank angelegt
DB.database := '
\\XXXDATENSERVER\d:\db\EO_Liste\HPLPRG2020.FDB';
// Mit diesem Aufruf wird die Datenbank nicht angelegt
//DB.database := 'XXXDATENSERVER:d:\db\EO_Liste\HPLPRG2020.FDB';
DB.SQLDialect := 3;
DB.Params.Clear;
DB.Params.Add('
USER "SYSDBA"');
DB.Params.Add('
PASSWORD "masterkey"');
DB.Params.Add('
PAGE_SIZE 16384');
DB.LoginPrompt:= FALSE;
DB.CreateDatabase;
DB.Connected := FALSE;
except
on E:
exception do
Showmessage(E.ClassName + '
: ' + E.
Message);
end;
finally
DB.Free;
end;
end;
Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.