Hallo,
ich habe eine Delete-
Query, die jede Stunde einmal Datensätze aus einer Tabelle löscht, die älter als 4 Tage sind, und die ein Flag gesetzt haben.
Jetzt kommt regelmäßig die beim Aufruf die Fehlermeldung:
Exception class: EOleException
Exception message: Datensatz ist gelöscht.
Der Quellcode ist eigentlich so simpel, dass nicht viel Fehler drin sein kann:
Delphi-Quellcode:
procedure TdmProdProtokollBasis.tmr1Timer(Sender: TObject);
const
DaysToKeep=4;
var
DelDate:TDateTime;
begin
query1.SQL.Text:='Delete from tbl_rueckmelden where ControlKey=:wert and Datum<:datum';
query1.Parameters.ParamByName('wert').Value:=true;
DelDate:=Date-DaysToKeep;
query1.Parameters.ParamByName('datum').Value:=DelDate;
query1.ExecSQL;
end;
Es muss ja irgendwie ein Refresh-Problem sein, aber ich weiss nicht, was für einen Befehl ich versuchen könnte, vor allem, da ich das Problem hier nicht nachvollziehen kann, sondern eben nur der Kunde davon berichtet.
Gruß Rainer