Главная

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

Оцените материал
(1 Голосовать)


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

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

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

Авторизация



Счетчики