Hallo Hendrik,
du kannst nicht auf RecordsCount zugreifen, da es keinen geöffneten result set gibt. Außerdem würde ich keinen Timer für das Flushen der Daten verwenden. Schreibe den Code dafür doch einfach in die Behandlungsroutine für das Ereignis Application.OnIdle(). In einer Variable Flushed: Cardinal im private Abschnitt deiner Form merkst du dir den Zeitpunkt (GetTickCount) an dem du das letzte Mal die Daten weg geschrieben hast und in einer Variable Modified: Boolean merkst du dir nach jedem Insert, Update, Delete, dass ein neuerliches Flush nötig ist.
Delphi-Quellcode:
begin
// ...
if MessageDlg('
Wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
BitBtn6.SetFocus;
with Query_Suchen
do
begin
SQL.Text := '
delete from retouren where Kunde = :Kunde';
ParamByName ('
Kunde').AsString := Edit7.Text;
ExecSQL;
end;
end;
Table_Retouren.Refresh;
Label43.Caption := IntToStr(Query_Suchen.RowsAffected);
// ...
end;
Grüße vom marabu