Как программно очистить всю таблицу от записей?

← →
Hata (2005-09-04 11:36) [0]

Подскажите, плиз! Как удалить все записи в таблице и оставить только названия полей?

← →
suharew (2005-09-04 11:39) [1]

table1.EmptyTable;

← →
Hata (2005-09-04 11:50) [2]

У меня вылетает ошибка "Table cannot be opened for exclusive use" после вызова EmptyTable. Что я делаю не так?

T:=TTable.Create(form1); T.DatabaseName:="MyDD"; T.TableName:="MyTable"; T.open; T.EmptyTable; T.Close;

← →
suharew (2005-09-04 11:54) [3]

попробуй не открывать таблицу.

T:=TTable.Create(form1); T.DatabaseName:="MyDD"; T.TableName:="MyTable"; T.EmptyTable;

← →
Anatoly Podgoretsky © (2005-09-04 12:05) [4]

T.Exclusive := True;
Таблица должна быть закрыта!

← →
Пантелеев Иван (2005-09-04 13:10) [5]

Можно ещё так:
procedure TForm1.Button5Click(Sender: TObject); var n: longint; begin if MessageDlg("Удалить все записи?", mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Table1.Last; for n := table1.RecordCount downto 1 do Table1.Delete; end; end;

> Пантелеев Иван (04.09.05 13:10)

Так лучше не делать

Я конечно в Парадоксе не шарю, но разве запрос замутить незя типа:
delete from table

ну и в конце для уверенности написать например
where 1=1

Как программно очистить всю таблицу от записей? Найти похожие ветки