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

Тема в разделе "Delphi - Базы данных", создана пользователем DoctorChe, 28 янв 2011.

  1. DoctorChe

    DoctorChe Гость

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

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

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

    DoctorChe Гость

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

    DoctorChe Гость

    проблема решена
     
  4. perceptron

    perceptron Гость

    Если записей в таблице очень много, то по времени быстрее будет DROP Table сделать и создать таблицу заново.
     
  5. rdama

    rdama Гость

    А почему не сделать
    Код (Text):
    DELETE FROM table
     
Загрузка...

Поделиться этой страницей