Create Table aus SQL-Script mit Parametern füttern

[Primus]

Hallo,

ich habe eine SQL-Script das eine Datenbank samt Index erstellen soll.
Dazu müsste ich dem Script in einer Query den Datenbanknamen als
Parameter übergeben.

Doch leider erhalten ich immer einen Fehler der mir sagt das der Datenbankname
nicht vorhanden ist.

Hier mal das SQL-Script:

SQL-Code:

Create Table :DBNAME (
 ID AutoInc,
 Flugnummer Integer,
 Datum Date,
 FlugzeugId Integer,
 PilotenID Integer,
 BegleiterId Integer,
 Startart Char(1),
 Startzeit Time,
 Landezeit Time,
 Blockon Time,
 Blockoff Time,
 Fluege Integer,
 StartortID Integer,
 LandeortID Integer,
 Bemerkungen Memo,
 Strecke Integer,
 Punkte Integer,
 KategorieID Integer,
 ViaID Integer,
 ZeitkatID Integer
);

Create Unique Index "UDX_ID" on :DBNAME( ID );
Create Index "IDX_DATE" on :DBNAME( Datum );

Und hier der Delphi-Code:

Delphi-Quellcode:

 Opendialog1.Title := 'Flugbuch erstellen';
 If Opendialog1.Execute = True then
  begin
   If Opendialog1.Filename <> '' then with DBMod do
    begin
     FlugbuchQuery.SQL.Clear;
     FlugbuchQuery.SQL.LoadFromFile(ExtractFilePath(Application.ExeName)+
               'SQL-Data\Create_Fluppbuch.sql');
     FlugbuchQuery.SQL.Insert(0,'Create Table "'+ExtractFileName(Opendialog1.Filename)+'" ');
     FlugbuchQuery.ParmbyName('DBNAME').AsString := Opendialog1.Filename;
     FlugbuchQuery.ExecSQL;
    end;
  end;

Vielen Dank schon mal vorab,

Gruss Lars

[shmia]

Parameter funktionieren bei DDL (Data Definition Language = Create Table, Create Index, Drop Table, ...) nicht.
Bau dir das SQL-Statement komplett ohne Parameter zusammen und schicke es dann los.
Du könntest z.B. die bisherigen Paramter durch %s ersetzen und dann die Format-Funktion
verwenden oder du denkst dir etwas schlaueres aus.

[Primus]

Danke für die Antwort,

dann muss ich mir doch noch was einfallen lassen.


Lars