Firebird-Datenbank per Code erstellen

[RWarnecke]

Hallo,

ich habe jetzt mal ein bisschen gesucht und den folgenden Link gefunden. Nur leider konnte ich die Sachen bis jetzt noch nicht nachvollziehen mit der Version 6.6.3-stable. Bin aber noch am probieren.

Edit:

Jiiiiipieeeee Ich habs geschafft. So funktioniert es mit einem Server:

Delphi-Quellcode:

procedure TForm18.Btn_1Click(Sender: TObject);
begin
  with ZConnection1 do
  begin
    if not Connected then
      // try to create it on connection
      Properties.Add(format('createNewDatabase=CREATE DATABASE %s USER %s PASSWORD %s',
         [QuotedStr(HostName + ':' + Database), QuotedStr(ZConnection1.User), QuotedStr(ZConnection1.Password)]));
    Connect;
  end;
end;

Edit2: Das FileExists aus dem Sourcecode entfernt, kann auf Server nicht angewendet werden.