Otomatik veritabanındaki kayıtları silme

[oguzozturk74]

Otomatik olarak veritabanındaki bütün kayıtları 30 Gün sonra silmek:

Tquery kullanarak; . Tarih adında bir DateField alanı oluşturulur.

var
MyDate: TDateTime;
begin
MyDate := Date - 30;
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('DELETE FROM "' + Table1 + '"');
Query1.SQL.Add('WHERE (Tarih = "'+ FormatDateTime('mm/dd/yyyy', MyDate) + '")');
Query1.Active := True;
end;