SQL in Delphi mit TQuery - Komponente

[Tester]

Guten Morgen euch zusammen!

Ich hab da ein kleines Problem, unzwar versuche ich in meinem Program über eine TQuery-Komoponente eine neue Tabelle zu erstellen aber irgendwie klappt das nicht.

Code:

  with Form1.Query1 do
  begin
    with SQL do
    begin
      clear;
      Add(' CREATE TABLE ''test_db'' ');
      Add(' ''ID''    INTEGER       ,');
      Add(' ''NAME''   VARCHAR(20)    ,');
      Add(' ''KUERZEL''  VARCHAR(20)    ,');
      Add(' ''PRIMARY KEY'' (ID)      ');
      ExecSQL;
    end
  end;

Danke im voraus

TESTER

[mr2]

Was für eine Fehlermeldung bekommst Du denn?
Um welche Datenbank handelt es sich?

[Alfons_G]

Es wäre hilfreich zu wissen, mit welcher Datenbank Du arbeitest, und welche Fehlermeldung kommt.

[Tester]

Wollte eigentlich eine dbase tabelle erstellen.

Fehlermeldung :

Ungültiges Schlüsselwort
Symbol String : 'ID'
Zeichennummer : 2

[Gast]

Add('ID INTEGER,');

und weiter auch so...

Gruß 8)

Paul Jr.

[mr2]

Probier mal statt ID was anderes (z.B. "ID_").

[Tester]

Code:

  with Form1.Query do
  begin
    with SQL do
    begin
      clear;
      Add(' CREATE TABLE ''db_test'' ');
      Add(' ID_ INTEGER,');
      Add(' Vorname  VARCHAR(20)    ,');
      Add(' Nachname VARCHAR(20)    ,');
      Add(' PRIMARY KEY (ID_)     ');
      ExecSQL;
    end
  end;

Dann würde das so stehen, aber das funktioniert auch nicht.
Geht das über TQuery vielleicht gar nicht?

[Gast]

Code:

with Form1.Query1 do
   begin
      if active then
         close;
      with SQL do
      begin
         clear;
         Add('CREATE TABLE ' + #39 + 'test_db' + #39);
         Add('ID INTEGER,');
         Add('NAME VARCHAR(20),');
         Add('KUERZEL VARCHAR(20),');
         Add('PRIMARY KEY (ID)');
      end
      try
         ExecSQL;
      except
      end
   end;

Gruß

Paul Jr.

[Tester]

Wunderbar herzlichen dank!

Das funktioniert schon mal und wo speichert er die jetzt hin? Denn wenn ich Sie öffnen will, kommt das Tabelle nicht existiert.

Was hat der #39 dabei zu bedeuten?

Liebe Grüße

TESTER

[mr2]

also folgendes fukntioniert bei mir:

Delphi-Quellcode:

  Query1.SQL.Text :=
  'CREATE TABLE db_test( '
    + 'ID_ INTEGER, '
    + 'Vorname  VARCHAR(20), '
    + 'Nachname VARCHAR(20), '
    + 'PRIMARY KEY (ID_)) ';
  Query1.ExecSQL;