1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. DoctorChe

    DoctorChe Гость

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

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

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

    DoctorChe Гость

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

    DoctorChe Гость

    Репутация:
    0
    проблема решена
     
  4. perceptron

    perceptron Гость

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

    rdama Гость

    Репутация:
    0
    А почему не сделать
    Код:
    DELETE FROM table
     
Загрузка...

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