quinta-feira, 24 de setembro de 2009

Faz a tabela paradox ignorar o índice e recriá-lo

Procedure Geraindice(Tbl: TTable);
// Esta procedure requer o componente TTable no Form
var
NewIndex: IDXDesc;
begin
if Tbl.Exclusive = False then
begin
raise EDatabaseError.Create('Tabela deve estar em modo Exclusivo para ser indexada');
end;
NewIndex.iIndexId:= 0;
NewIndex.bPrimary:= TRUE;
NewIndex.bUnique:= TRUE;
NewIndex.bDescending:= FALSE;
NewIndex.bMaintained:= TRUE;
NewIndex.bSubset:= FALSE;
NewIndex.bExpIdx:= FALSE;
NewIndex.iFldsInKey:= 1;
NewIndex.aiKeyFld[0]:= 1;
NewIndex.bCaseInsensitive:= FALSE;
Tbl.Open;
Check(DbiAddIndex(Tbl.dbhandle, Tbl.handle, PChar(Tbl.TableName),szParadox, NewIndex, nil));
end;

Nenhum comentário:

Postar um comentário