[SQL] Fehler in Anweisung

[Fellmer Lloyd]

Hi!

Ich versuche mittels SQL-Anweisung (TDatabase.Execute) eine neue Tabelle zu erstellen.
Die Anweisung funktioniert wenn ich sie in Access ausführe, in meinem Programm führt Sie jedoch zu einer Exception.

Datenbank: Access 97
Zugriff: BDE

SQL-Code:

'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` )'
+');'

Wo ist der Fehler?

[r_kerber]

Hallo Fellmer Lloyd,

lass doch mal das Zeichen ` weg!

[Fellmer Lloyd]

Moin!

Auch bei folgendem Code wird der Except Block ausgelöst:

SQL-Code:

'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 )' 
+');'

[r_kerber]

Und wie lautet die Exception?

[Fellmer Lloyd]

Es wird keine Meldung angezeigt, das Programm springt "still" in den Exception Block.
Das liegt evtl. daran, dass die Anweisung in einem seperaten Thread ausgeführt wird.

Anmerkung: Die DB-Verbindung funktioniert.

[r_kerber]

Kannst Du mal etwas Quellcode zeigen?

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

[r_kerber]

Hat TDatabase.Execute nicht vier Aufrufparameter, dei bei Nichtnutzung mit nil zu belegen sind?

[Fellmer Lloyd]

Ich dachte sie wären optional.

Aber auch mit den Parametern funktioniert die Anweisung nicht.

Delphi-Quellcode:

  //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 )'
                      +');'
                      , nil, False, nil
                    );

Ich google mal nach Create Table Anweisungen aus Delphi.
Vieleicht finde ich noch was.

[Fellmer Lloyd]

Ich habe die selbe Anweisung in einem TQuery ausgeführt...das selbe Ergebnis.