Текущий архив: 2005.10.16;
Скачать: CL | DM;
Вниз
Как программно очистить всю таблицу от записей? Найти похожие ветки
← →
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;
← →
_dimka © (2005-09-04 14:08) [6]
> Пантелеев Иван (04.09.05 13:10)
Так лучше не делать
← →
ASVShade © (2005-09-05 03:21) [7]Я конечно в Парадоксе не шарю, но разве запрос замутить незя типа:
delete from table
ну и в конце для уверенности написать например
where 1=1
Страницы: 1 вся ветка
Текущий архив: 2005.10.16;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.054 c
