VPF::Как очистить базу данных, оставив только структуру?

Pakshin A. S.

Дата 12.11.2004, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

ЗАМЕЧАНИЕ: Этот пример не работает в режиме редактирования, так как таблица должна быть открыта в эксклюзивном режиме.

Код


procedure TForm1.Button2Click(Sender: TObject);  
begin  
  {Opens the table in exclusive mode}  
  Try  
    With Table1 Do  
    Begin  
      Active:=False;  
      Exclusive:=True;  
      Active:=True;  
      try  
        EmptyTable;  
      except  
        ShowMessage('Cannot empty database');  
      end;  
    End  
  Except  
    ShowMessage('cannot open table in exclusive mode');  
  End  
end;

Взято с Исходников.ru http://www.sources.ru

Примечание Vit: если требуется очистить таблицу не прибегая к эксклюзивному доступу или используя другие способы доступа помимо BDE то рекомендуется выполнить квери:

Delete From MyTable

Которая полностью очистит таблицу. Для MS SQL Server существует и другой способ - выполнение квери:

Truncate Table MyTable

Различие между Delete и Truncate заключается в том, что для операции Delete создаётся запись в Transaction log, что обеспечивает более высокую надёжность, но при больших таблицах выполнение Delete может быть весьма долгим. Напротив, Truncate в Transaction log не попадает и таблица любых размеров необратимо очищается практически мгновенно вне зависимости от её размера. Delete - стандартная операция SQL и поддерживается всеми базами данных, напротив, Truncate - операция не стандартная, поэтому поддерживается лишь отдельными базами данных.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »