Einzelnen Beitrag anzeigen

Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.858 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Neu Firebird Datenbank wird auf Server nicht angelegt

  Alt 2. Mai 2020, 19:07
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.
  Mit Zitat antworten Zitat