Mega Code Archive

 

Categories / Delphi / ADO Database

 

Verilen tabledaki tüm out-of-date indexleri yeniden oluştur

procedure TForm1.Button1Click(Sender: TObject); begin Table.Close; Table.Exclusive := True; Table.Open; DbiRegenIndexes(Table.Handle); Table.Close; end;