Mega Code Archive

 

Categories / Delphi / ADO Database

 

Sql kullanmadan tablodaki tüm kayitlarin silinmesi

With Table1 do Begin Active := False; DatabaseName := 'dbname'; TableName := 'tablename'; EmptyTable; End; //yada With Table1 do Begin Active := False; DatabaseName := 'dbname'; TableName := 'tablename'; DeleteTable; End;