Regenerate all indexes of your table  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 16/12/99

Tip accessed 555 times

 


Useful when your table has a corrupt index...


Add DBIProcs, DBITypes in the uses of your form


 Procedure RegeneraIdx(Const ADatabase, ATable : String);
 begin
  with TTable.Create(nil) do
   try
    DatabaseName := ADataBase;
     TableName := ATable;
     Exclusive := True;
     Open;
     Check(DbiRegenIndexes(Handle));
   finally
    Free;
   end;
 end;





Updated at 16/12/99
Uses list missing...