Ich möchte mir eine Aplikation erstellen für meine Migräne,
so habe ich mich schon etwas ins Thema Eingelesen.
Nun erhalte ich aber die ganze Zeit einen Syntax Error und ich weis nicht wesshalb.
Mein Code zu beginn:
Code: Alles auswählen
procedure TForm1.FormCreate(Sender: TObject);
begin
{schliesst Verbindung zu SQLite Datenbanken }
SQLite3Connection1.Close;
{Öffnet Datenbank Datei migränetagebuch}
SQLite3Connection1.DatabaseName:='migraenetagebuch.sql3db';
SQLTransaction1.Database:=SQLite3Connection1;
SQLQuery1.Transaction:=SQLTransaction1;
SQLQuery1.SQL.text := 'CREATE TABLE IF NOT EXISTS tblDateTime (ID INTEGER PRIMARY KEY, 00.00 VARCHAR(10), 00.15 VARCHAR(25),00.30 VARCHAR(25),00.45 VARCHAR(25),01.00 VARCHAR(25),01.15 VARCHAR(25),01.30 VARCHAR(25),01.45 VARCHAR(25),02.00 VARCHAR(25),02.15 VARCHAR(25),02.30 VARCHAR(25),02.45 VARCHAR(25),03.00 VARCHAR(25),03.15 VARCHAR(25),03.30 VARCHAR(25),03.45 VARCHAR(25),04.00 VARCHAR(25),04.15 VARCHAR(25),04.30 VARCHAR(25),04.45 VARCHAR(25),05.00 VARCHAR(25),05.15 VARCHAR(25),05.30 VARCHAR(25),05.45 VARCHAR(25),06.00 VARCHAR(25),06.15 VARCHAR(25),06.30 VARCHAR(25),06.45 VARCHAR(25),07.00 VARCHAR(25),07.15 VARCHAR(25),07.30 VARCHAR(25),07.45 VARCHAR(25),08.00 VARCHAR(25),08.15 VARCHAR(25),08.30 VARCHAR(25),08.45 VARCHAR(25),09.00 VARCHAR(25),09.15 VARCHAR(25),09.30 VARCHAR(25),09.45 VARCHAR(25),10.00 VARCHAR(25),10.15 VARCHAR(25),10.30 VARCHAR(25),10.45 VARCHAR(25),11.00 VARCHAR(25),11.15 VARCHAR(25),11.30 VARCHAR(25),11.45 VARCHAR(25),12.00 VARCHAR(25),12.15 VARCHAR(25),12.30 VARCHAR(25),12.45 VARCHAR(25),13.00 VARCHAR(25),13.15 VARCHAR(25),13.30 VARCHAR(25),13.45 VARCHAR(25),14.00 VARCHAR(25),14.15 VARCHAR(25),14.30 VARCHAR(25),14.45 VARCHAR(25),15.00 VARCHAR(25),15.15 VARCHAR(25),15.30 VARCHAR(25),15.45 VARCHAR(25),16.00 VARCHAR(25),16.15 VARCHAR(25),16.30 VARCHAR(25),16.45 VARCHAR(25),17.00 VARCHAR(25),17.15 VARCHAR(25),17.30 VARCHAR(25),17.45 VARCHAR(25),18.00 VARCHAR(25),18.15 VARCHAR(25),18.30 VARCHAR(25),18.45 VARCHAR(25),19.00 VARCHAR(25),19.15 VARCHAR(25),19.30 VARCHAR(25),19.45 VARCHAR(25),20.00 VARCHAR(25),20.15 VARCHAR(25),20.30 VARCHAR(25),20.45 VARCHAR(25),21.00 VARCHAR(25),21.15 VARCHAR(25),21.30 VARCHAR(25),21.45 VARCHAR(25),22.00 VARCHAR(25),22.15 VARCHAR(25),22.30 VARCHAR(25),22.45 VARCHAR(25),23.00 VARCHAR(25),23.15 VARCHAR(25),23.30 VARCHAR(25),23.45 VARCHAR(25))';
SQLQuery1.ExecSQL;
SQLTransaction1.commit;
{Testet Datenbank Connection}
SQLite3Connection1.Open;
if SQLite3Connection1.Connected then
StatusBar1.Panels.Add.Text:='Verbindung hergestellt';
end;
Ich lade Euch gerne auch meinen Source hoch mit dem Programm. Damit Ihr Euch
ein bild machen könnt was ich genau gemacht habe in der Aplikation.
Vielleicht weis jemand Rat...
Vielen Dank für die Hilfe
Chris
--------------------------------------------------
ZippyUploader(22.01.2016 17-16-21).txt
--------------------------------------------------
Migraene Kalender.rar
http://www52.zippyshare.com/v/CN8yz9m7/file.html
2)_Datenbanktutorial_Lazarus_und_SQLite_-_Teil_2_(n_zu_m_-_Beziehung).zip
http://www93.zippyshare.com/v/5oNdeYvU/file.html