Ado Delete

[jangbu]

Hallo, kann mir jemand sagen wie ich ermitteln kann, wieviele Datensätze gelöscht wurden? Recordcount funktioniert nicht.

Delphi-Quellcode:

  AdoQuery1.Close;
  AdoQuery1.SQL.Clear;
  // löscht Datensätze alter als 30 Tage
  sql_str := 'delete from test where datum <= ''' + FormatDateTime('dd.mm.yyyy hh:nn',now-30) + '''';
  AdoQuery1.SQL.Add(sql_str);
  AdoQuery1.ExecSQL;
//  ShowMessage(IntToStr(AdoQuery1.RecordCount) + ' gelöscht!');