Delphi-Help

Главная

Перегенерировать все индексы с истекшей датой

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


Перегенерировать все индексы с истекшей датой

procedure TForm1.Button1Click(Sender: TObject);
 begin
   Table.Close;
   Table.Exclusive := True;
   Table.Open;
   DbiRegenIndexes(Table.Handle);
   Table.Close;
 end;
Прочитано 5370 раз

Авторизация



Счетчики