Удаление записей в таблице без использования SQL

Во всех версиях Delphi имеется компонент TTable. Мы можем использовать метод этого компонента для удаления всех записей из таблицы.

Можно использовать следующий код:

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.

—

03.09.2016

coder

Комментарии