Die Syntax für die Übergabe der Variablen ist wohl noch falsch, aber wie schreib ich es Richtig?
Danke für Eure Hilfe und Tipps.
Bis dann ...
MfG
Günter
Code: Alles auswählen
...
if MySQL50Connection1.Connected then
begin
intdatum := 20080120;
floatGewicht := 96.1;
intsys := 132;
intdia := 82;
intpuls := 70;
inttag := 1;
//showmessage(inttostr(intdatum));
showmessage('connected to server: ' + MySQL50Connection1.HostName);
txtSql := 'INSERT INTO gesundheit (g_datum,g_gewicht,g_sys,g_dia,g_puls,g_tag)'
+ ' VALUES (:intdatum,:floatgewicht,:intsys,:intdia,:intpuls,:inttag);';
//txtSql := 'INSERT INTO gesundheit set g_datum = :intdatum';
SQLQuery1.SQL.Text:= txtSql;
showmessage(SQLQuery1.SQL.Text);
SQLQuery1.ExecSQL;
SQLQuery1.Close;
showmessage('Daten eingefuegt!');
end;