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]