• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фазинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

Удаление всех записей в таблице

  • Автор темы DoctorChe
  • Дата начала
D

DoctorChe

#1
Здравствуйте!
Необходимо удалить все записи из таблицы.
Делаю так
Код:
procedure TForm1.DelAllClick(Sender: TObject);
begin
Form1.tbStd.Active := False;
Form1.tbStd.EmptyTable;
end;
Выдаёт ошибку "Table is busy".
Как побороть?

Всё перепробовал и перегружался - результат один.
Как можно ещё закрыть таблицу, если не "Active := False"?

Может можно как-то посчитать строки и удалить по одной?
 
D

DoctorChe

#2
Сделал так:
procedure TForm1.DelAllClick(Sender: TObject);
Код:
begin
Form1.tbStd.Last;
while not tbStd.Bof do begin
Form1.tbStd.Delete;
Form1.tbStd.Prior;
end;
end;
Но не удаляет первую строку.
 
P

perceptron

#4
Если записей в таблице очень много, то по времени быстрее будет DROP Table сделать и создать таблицу заново.
 
Вверх Снизу