Create Table zur Laufzeit mit Query?

[davar]

Hallo Leute,

kann man eine Firebirddatenbank zur Laufzeit mittels Query erstellen?

Bei MySQL geht das ganz einfach mit

Delphi-Quellcode:

ZQuery1.SQL.Text:= 'CREATE DATABASE ....';
ZQuery1.ExecSQL;

Aber wenn ich das gleiche bei Firebird versuche, bekomme ich nur eine Fehlermeldung (s. Anhang).

Geht das generell nicht oder mache ich einen Fehler?

Mfg

davar

Edit:

übrigens, so sieht mein Code dazu aus:

Delphi-Quellcode:

ZQuery1.SQL.Text:= 'CREATE DATABASE ''c:\adressen.fdb'' PAGE_SIZE 4096 ' +
                   'User ''SYSDBA'' password ''masterkey'' ' +
                   'DEFAULT CHARACTER SET ISO8859_1;';

[marabu]

Hallo,

schau mal hier: create a database at runtime with ZEOS

Freundliche Grüße

[davar]

Zitat von marabu:

Hallo,

schau mal hier: create a database at runtime with ZEOS

Freundliche Grüße

Danke.

Das geht aber anscheinend nicht mit meiner Zeos-Variante (6.6.1 bei Turbo Delphi Prof.). Die TZIbSqlDatabase habe ich gar nicht.

Stattdessen habe ich hier etwas gefunden. So geht es nämlich:

Delphi-Quellcode:

ZConnection1.Database := 'd:\db1.fdb'; 
ZConnection1.Protocol := 'firebird-1.5'; 
ZConnection1.Properties.Add ('CreateNewDatabase=CREATE DATABASE ' + 
QuotedStr ('d:\db1.fdb') + ' USER ' + 
QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey') + 
' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'); 
ZConnection1.Connect;

Mfg

davar