Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c