| oguzozturk74 | 13.03.2004 - 23:50:34 |
| 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; | |