Hallo,
folgendes Problem:
Delphi-Quellcode:
if MessageDlg('
Wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
Query_Suchen.active := false;
// meine such Query deaktivieren
Table_Retouren.First;
For i:= 1
to Table_Retouren.RecordCount -1
do
begin
flusher := 0;
// flusher ist eine Zahl die im Timer hochgezählt wird um die Datenbank alle zwei
minuten mit fluchbuffers zu schreiben. durch das Setzten auf 0 verhindere ich das
während dieser
for Schleife
if Table_RetourenKunde.Value = Edit7.Text
then Table_Retouren.Delete
else
begin
if not Table_Retouren.Eof
then Table_Retouren.Next;
end;
end;
if Table_RetourenKunde.Value = Edit7.Text
then Table_Retouren.Delete
//eventuell letzten Datensatz
löschen
end;
Edit7.Text := '
';
with Query_Suchen
do // Such Query wieder aktivieren
begin
sql.clear;
sql.add('
SELECT * FROM retouren');
ParamCheck := true;
active := true;
open;
end;
Label43.Caption := IntToStr(Query_Suchen.RecordCount);
Mein Problem ist, dass ich nach Durchlauf immer ein EDBEngine Error bekomme Meldung: 'ungültiger Parameter'.
Leider bin ich mit meinem Latein am Ende und hoffe auf Eure Hilfe.
Danke im Voraus
Hendrik