CreateTable / Felddefinitionen fehlen

[schmiddi]

Hier also die Prozedur, mit der ich die Tabellen erstelle.
Table_name wird beim Aufruf der Prozedur übergeben ...

Delphi-Quellcode:

procedure CreateNewTable(table_name:string);
var query1:tquery;
begin

     if fileexists (extractfiledir(Application.ExeName)+'\Daten\'+table_name) then
     //If Application.MessageBox(pchar('Beim Versuch die Artikeltabelle "' +table_name+'" zu erstellen ist ein Fehler aufgetreten.'+#10+'Die Datei ist bereits vorhanden und kann somit nicht neu erstellt werden.'), 'Fehler', MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1+MB_APPLMODAL) = ID_OK Then
     exit;

     try
     query1:=tquery.create(application.MainForm);
     query1.Close;
     query1.SQL.Clear;
     query1.SQL.add('CREATE TABLE "'+ (extractfiledir(Application.ExeName)+'\Daten\' +table_name)+'"'+
                    '(ARTNR      CHAR(20),'+
                    ' BEZEICHN   CHAR(60),'+
                    ' BEGINN     DATE,'+
                    ' NAME       CHAR(50),'+
                    ' STRASSE    CHAR(50),'+
                    ' ORT        CHAR(50),'+
                    ' EK         NUMERIC(16,2),'+  [b][color=#f50000]<----[/color][/b]
                    ' VK         NUMERIC(16,2),'+  [b][color=#f50000]<----[/color][/b]
                    ' INFOS      Blob)');
     query1.Prepare;
     query1.ExecSQL;

[edit=MrSpock]Code Tags hinzugefügt Mfg, MrSpock[/edit]