Neu Firebird Datenbank wird auf Server nicht angelegt

[Chemiker]

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

[Chemiker]

Hallo zusammen,

nach langem rumprobieren, bin ich auf folgende Lösung gekommen.
In der Hilfe von Devart steht:
To connect to an InterBase database on a remote server using TCP/IP the syntax is <server_name>:<filename>.
To connect to an InterBase database on a remote server using NetBEUI, the syntax is: \\<server_name>\<filename>.
To connect to an InterBase database on a remote server using SPX, the syntax is: <server_name>@<filename>.

ich bin aus diesem Grund davon ausgegangen das die Verbindung mit TCP/IP die Richtige ist.
Das funktioniert aber nur bei Vista mit BDS 2006 (<server_name>:<filename>).

Unter Windows 10 Pro muss der Aufruf mit NetBNEUI erfolgen (\\<server_name>\<filename>).
Es macht auch keinen Unterschied, ob der Server <localhost> ist, auch dann funktioniert die Anlage der Datenbank nur mit NetBNEUI.
Das scheint bei allen Windows 10 Pro (64Bit) -Rechner so zu sein (beim Laptop das gleiche Ergebnis).
Übrigens:
Die Interbase – Komponenten von Delphi verhalten sich genauso, man bekommt nur mit dem NetBEUI-Aufruf eine neue Datenbank angelegt.

Bis bald Chemiker

[jobo]

Also entweder MS hat wieder eine Leiche aus dem Keller geholt oder da stimmt irgendwas nicht.
Bis eben dachte ich, NETBUI sei vorgestern.

[dataspider]

Also, ich habe das letztens gerade auch benötigt.
Bei mir funtioniert es so:

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  //IBOCreateDatabase;
  IBCCreateDatabase('d:\db\testibc.fdb');
end;

procedure TfrmMain.IBCCreateDatabase(const ADBName: string);
begin
  // Erzeugen
  IBCAdmin.Database := ADBName;
  IBCAdmin.Server := '127.0.0.1';
  IBCAdmin.LoginPrompt := False;
  IBCAdmin.Port := '3053';

  IBCAdmin.ClientLibrary := 'fbclient.dll';
  IBCAdmin.Params.Clear;
  IBCAdmin.Params.Add('USER ''SYSDBA''');
  IBCAdmin.Params.Add('PASSWORD ''masterkey''');
  IBCAdmin.Params.Add('PAGE_SIZE 16384');
  IBCAdmin.Params.Add('DEFAULT CHARACTER SET NONE');
  //IBCConnection.Params.Add('COLLATION UNICODE_CI');
  IBCAdmin.CreateDatabase;
  // Script
  IBCConnection.Database := ADBName;
  IBCConnection.ClientLibrary := 'fbclient.dll';
  IBCScript.SQL.LoadFromFile('akten.sql');
  IBCScript.Connection := IBCConnection;
  IBCConnection.Connected := True;
  IBCScript.Execute;
end;

Windows 10, 64 bit (kene VM) - getestet mit FB 2.59 und 3.05

Frank

[Chemiker]

Hallo dataspider,

wie sieht ADBName aus?

Bis bald Chemiker

[dataspider]

steht im Beitrag in Button2Click...

Frank

[EDIT] seh einen Unterschied eigentlich nur in den Paremetern (einfaches vs. doppeltes Hochkomma)

[IBExpert]

Am Aufbau vom connectionstring liegt das garantiert nicht, netbeui ist garantiert nicht erforderlich.

Immer wieder als Grund tauchen irgendwo steinalte interbase gds32.dll im suchpfad auf, die von manchen
Komponenten als Standard genommen werden oder wenn man eine passende 32bit oder 64bit version der
fbclient dll schon in den richtigen pfaden ggf auch als kopierte gds32.dll abgelegt hat, fehlen
manchmal auch nur die dafür erforderlichen msvc*.dll in der zur fbclient dll passenden version.
Die sich darauf ergebenden Fehlermeldungen können manchmal abstrus sein

[tsteinmaurer]

Chemiker,

stell sicher, dass deine Clientanwendung die Firebird gds32.dll/fbclient.dll verwendet, idealerweise matched diese auch die Version des Firebird Servers.

Für mich klingt es so, wie bereits von Holger erwähnt, dass deine Clientanwendung eine InterBase gds32.dll von deiner Delphi-Installation verwendet.

LG

[Chemiker]

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:

Delphi-Quellcode:

DB.database := '\\XXXDATENSERVER\d:\db\EO_Liste\HPLPRG2020.FDB';

angelegt.

Mit:

Delphi-Quellcode:

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

[Lemmy]

nur mal so ne Idee:
Vista verwendet IPv4, Windows 10 ggf. schon IPv6 und damit fällt Firebird 2.5 auf die Nase, erst FB 3 kann sich per IPv6 verbinden.

Also versuch mal zumindest auf dem Server IPv6 zu deaktivieren und nimm für den Verbindungsaufbau bitte mal die IP des Servers her.