[SQL] Fehler in Anweisung

[Fellmer Lloyd]

Jop, kein Problem:

Delphi-Quellcode:

  
procedure TThreadCopy.Execute;
var
  Database: TDatabase;
begin
  { Thread-Code hier einfügen }

  Database:= TDatabase.Create(Nil);
  try

    //DB Aktualisieren
    Database.DatabaseName:= 'REZ';
    Database.LoginPrompt:= False;
    Database.DriverName:= 'MSACCESS';
    Database.Params.Add('DATABASE NAME='+sInstallPath+'Rez.mdb');
    Database.Params.Add('OPEN MODE=READ/WRITE');
    Database.Open;
      
    //SQL Anweisungen

    //Temp Table erzeugen
    Database.Execute('CREATE TABLE RezOld ('
                      +'  RezNr COUNTER UNIQUE ,'
                      +'  Rezeptname STRING(50) NOT NULL ,'
                      +'  Parent INT NOT NULL ,'
                      +'  Anleitung MEMO NULL ,'
                      +'  Bildpfad STRING NULL ,'
                      +'  Zutaten MEMO NULL ,'
                      +'  Links MEMO  NULL ,'
                      +'  PRIMARY KEY ( RezNr )'
                      +');'

Es folgen noch ein paar weitere SQL Anweisungen, die warscheinlich das gleiche Problem haben.