[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? :gruebel:

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

[APP]

Hallo Telepath :mrgreen: ,
ich bin zwar nicht der große Access-Guru, aber vielleicht versuche es mal ohne den letzten ";" in Deiner Anweisung.


(PL/SQL z.B. benötigt immer einen ";" als Abschluß, aber ein TQuery nicht, soweit ich weiß)

[Fellmer Lloyd]

Hach, hast mich erwischt :angle2:

Nee, an dem Semikolon liegt das auch nicht.
Ich dreh bald durch :wall: -> :freak:

[APP]

Hallo Fellmer,

Du benutzt ja auch die BDE als Zugang zu Access,
hast Du schon einmal versucht die SQL-Anweisungen
in den Datenbank-Explorer zu kopieren und dann auszuführen?

Wenn die BDE dann nicht motzt und der Table erstellt
wurde, liegt der Fehler vielleicht wo anderst.

[Tyrael Y.]

Kann es sein das eine Zeile am Anfang fehlt?

und zwar:

Delphi-Quellcode:

Database.Connected := True

[Fellmer Lloyd]

@Tyrael: Das erledigt Database.Open;

@APP: Folgende Anweisung funktioniert jetzt (Im DB-Explorer):

SQL-Code:

CREATE TABLE RezOld
(
  RezNr COUNTER,
  Rezeptname STRING(50) NOT NULL ,
  Parent INT NOT NULL ,
  Anleitung MEMO NULL ,
  Bildpfad STRING NULL ,
  Zutaten MEMO NULL ,
  Links MEMO  NULL
)

Der Fehler Liegt also an zwei Punkten:

Primärschlüssel

SQL-Code:

PRIMARY KEY (RezNr)

Unique-Autowert (Ohne Unique funktioniert es)

SQL-Code:

RezNr COUNTER UNIQUE

Aber wieso wohl? :gruebel:

[Robert_G]

Access hat seine eigene Interpretation von SQL... :lol:

[APP]

Hallo Fellmer,

ich habe mal kurz gegoogelt:

Zitat:

To create a primary key index on more than one field, include all of the field names in the field list.

CREATE INDEX idxCustomerName
ON tblCustomers ([Last Name], [First Name])
WITH PRIMARY

Quelle: http://msdn.microsoft.com/library/de.../acfundsql.asp

Das könnte Dir weiterhelfen.

[Fellmer Lloyd]

Access und sein SQL :wall:. Aber ich will kein DB Server installieren (Oracle, MySql).

@APP:
Hmm...sieht so aus als müsste ich den Primärschlüssel nachträglich hinzufügen.
Ich teste es gleich morgen, jetzt is Feierabend :cheers:

Thx für die Tips, ich werd die fertige Lösung dann posten. :witch:

[EDIT]
Thx für den Link APP, es funktioniert mit folgender Struktur:

SQL-Code:

CREATE TABLE RezOld 
( 
  RezNr COUNTER CONSTRAINT PK_RezNr PRIMARY KEY, 
  Rezeptname STRING(50) NOT NULL , 
  Parent INT NOT NULL , 
  Anleitung MEMO NULL , 
  Bildpfad STRING NULL , 
  Zutaten MEMO NULL , 
  Links MEMO  NULL 
)

:wiejetzt: --> :dp:

[mikhal]

Lege den PK an nachdem du die Tabelle erzeugt hast, das sollte eigentlich gehen:

SQL-Code:

CREATE INDEX PK_RezOld ON RezOld(RezNr) WITH PRIMARY;

Grüße
Mikhal