Удаление записей в таблице без использования SQL
Можно использовать следующий код:
with Table1 do begin Active := false; DatabaseName := 'dbname'; TableName := 'tablename'; EmptyTable; end;
Обратите внимание: мы должны установить свойство Active таблицы в False перед вызовом метода EmptyTable.
Если мы попытаемся очистить таблицу, когда она открыта (т.е. Active = True
), мы получим ошибку EDBEngineError, типа:
Table cannot be opened for exclusive use.
Также мы можем использовать другой метод компонента TTable для удаления самой таблицы.
Вот код для этого:
with Table1 do begin Active := false; DatabaseName := 'dbname'; TableName := 'tablename'; DeleteTable; end;
Здесь также таблица должна быть закрыта, т.е. свойство Active установлено в False.
Комментарии