SQL in Delphi mit TQuery - Komponente

[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.