Hallo,
mit folgenden Quellcode will ich eine neue Firebird Datenbank auf einen MS Server anlegen:
Delphi-Quellcode:
procedure TfrmFirebird_DB_anlegen.DB_anlegen(ServerName, DatenbankOrdner,
DatenbankFileName:
String;
var DB: TIBCConnection);
begin
if not FileExists(DatenbankOrdner+DatenbankFileName)
then
begin
DB:= TIBCConnection.Create(
NIL);
try
try
DB.database := ServerName + '
:' + DatenbankOrdner + DatenbankFileName;
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;
end;
Ich habe 2 VMs laufen:
Auf der 1 VM läuft MS Vista mit
BDS 2006, die IBDAC Komponenten sind neu von mir installiert worden. Wenn ich den Quellcode ausführe, so wird die neue Datenbank auf den Server abgelegt.
Auf der 2 VM läuft MS Windows 10 mit Delphi 10.3 es ist die gleiche Version der IBDAC Komponente installiert. Allerdings wenn ich den gleichen Quellcode ausführe bekomme ich folgende Fehlermeldung sieh unten.
Wenn die Datenbank einmal angelegt ist, kann man von beiden VMs eine neue Tabelle ohne Probleme auf den Server anlegen.
Meine Frage ist: Warum ist das so und wie kann man das abstellen kann?
Bis bald Chemiker