Hallo,
Delphi-Quellcode:
while z <= Ch_Messung.BottomAxis.Maximum
do
begin
Memo1.Lines.Text := Memo1.Lines.Text + '
INSERT INTO Messwerte (ID_mess, Millisec, Messwert_Links, Messwert_Rechts, Winkel, Merker) VALUES (' + id +'
,' + InttoStr(z) +'
,'+ Floattostr(ch_messung.Series[0].YValue[z]) + '
,' + FloattoStr(ch_messung.Series[1].YValue[z])+'
, 0, 0);';
inc(z);
end;
SQL.AddStrings(Memo1.Lines);
ExecSQL;
zu
Parameter und
Prepared Query sage ich nichts mehr ...
Aber:
Jeder Datensatz wird per ExecSQL eingetragen.
Du versuchst ein
Start
Insert Into Satz1
Insert Into Satz2
Insert Into Satz3
ExecSQL
Das geht so nicht.
Ausserdem sind bei dir die beiden letzten GFeldwerte (Winkel,Meker) immer 0 -> als Default-Werte in der
DB setzen
Und Transaktionen sehe ich nicht
StartTransaction;
Insert / ExecSQL
Insert / ExecSQL
Insert / ExecSQL
Commit.
Fange erst mal mit den Parametern und Prepared Queries (passt schön zuammen) an.
Heiko