Mit folgendem Code erzeuge ich die DB:
Code: Alles auswählen
procedure TForm1.CreateDBClick(Sender: TObject);
begin
ZConnection1.Connected:=False;
ZConnection1.Protocol := 'sqlite-3';
ZConnection1.HostName := Edit1.Text;
ZConnection1.Properties.Values['CreateNewDatabase [IF NOT EXISTS]']:='Create Database ' + #39 + 'MeineDB.db';
ZConnection1.Database:='MeineDB.db';
ZConnection1.Connected:=True;
end;
Code: Alles auswählen
procedure TForm1.CreateTableClick(Sender: TObject);
begin
ZConnection1.Connected:=False;
ZConnection1.Database:='MeineDB.db';
ZConnection1.Connected:=True;
ZQuery1.SQL.Text:= Memo4.Text;
Zquery1.ExecSQL;
ZQuery1.SQL.Text:= Memo1.Text;
Zquery1.Open;
end;
CREATE TABLE [IF NOT EXISTS] Astronomie (id INTEGER AUTO_INCREMENT PRIMARY KEY, Katalognummer VARCHAR(40) , Bezeichnung VARCHAR(100));
Im Memo1 steht dann lediglich die Select Abfrage zur Anzeige der Daten:
SELECT * FROM Astronomie;
Beim Klick auf den Button zum Anlegen der Tabelle erhalte ich immer eine SQL Logik Fehlermeldung.