...regenerate all out-of-date indexes on a given table?

Author: Marc Geldon (GELU IT SERVICE)
Homepage: http://www.geldon.de

Category: Database

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base