Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи BDE Как очистить базу данных, оставив только структуру?

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

Оцените материал
(3 голосов)

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

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

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;
парусная школа
Прочитано 9271 раз

Авторизация



Счетчики