Neu Firebird Datenbank wird auf Server nicht angelegt

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

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