Отчистить БД от записей

[Guest]

Подскажите как удалить все записи из базы.
Таблица Paradox

 

[LAW]

Query1.SQL.Text:="DELETE * FROM таблица"
Query1.ExecSQL

Удачи.

 

[SNike]

Или как написано в справке Delphi:

with Table1 do
begin
Active := False;
DatabaseName := 'Delphi_Demos';
TableName := 'CustInfo';
TableType := ttParadox;
EmptyTable;
end;

Проще говоря, Table.EmptyTable

 

[Guest]

Для: SNike
Попробовал код, выдаёт ошибку Table is busy. Я не знаю что это такое

 

[SNike]

Таблица должна быть закрыта, а реальный файл базы не должен использоваться другими программами. Например, тем же Database desktop и т.п.

 

[SNike]

<!--QuoteBegin-LAW+19:07:2007, 07:58 -->
<span class="vbquote">(LAW @ 19:07:2007, 07:58 )</span><!--QuoteEBegin-->Query1.SQL.Text:="DELETE * FROM таблица"

[snapback]72657" rel="nofollow" target="_blank[/snapback]​

[/quote]

Немного не так. Нужно:

Query1.SQL.Text:="DELETE FROM таблица"

 

[LAW]

Exclusive не забудь Table дать.
Удачи.

 

[Guest]

И сразу упаковать ее не помешает

 

[Guest]

Всё спасибо разобрался