Neu Firebird Datenbank wird auf Server nicht angelegt

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

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

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

[Delphi.Narium]

Zitat von Chemiker:

Die Datenbank wird mit:

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

Das dürfte auch ein gültiger Dateiname sein.

Zitat von Chemiker:

Die Datenbank wird mit:
Mit:
DB.database := 'XXXDATENSERVER:d:\db\EO_Liste\HPLPRG2020.FDB'; wird sie nicht angelegt.

Diese jedoch nicht.

Für mich sieht das so aus, als könnte bei Deiner Konstellation der Firebird-Client nur auf die Datenbankdatei auf dem Server zugreifen und nicht den Firebird-Server auf dem Datenbankserver ansprechen. Es wird also, obwohl die Datenbankdatei auf einem Server liegt, die Embedded-Variante von FireBird genutzt.

Grob formuliert:

Wenn Du Firebird auf dem Datenbankserver deinstallierst, müsste der Datenbankzugriff in der momentanen Konstellation noch weiterhin funktionieren (was vermutlich absolut nicht im Sinne des Erfinders ist).

Ok: Bin mir nicht so ganz sicher, kann also sein, dass ich gerade auch Murks geschrieben habe

Ist da was hilfreiches dabei? Working with databases

ab ca. You can force Firebird to use a certain protocol (and skip the embedded connection attempt) by prepending the protocol in URL style: