índice em paradox runtime

Delphi

27/11/2003

Boa tarde, alguém pode me dar uma dica de como eu adiciono e excluo índice em uma tabela paradox em tempo de execução ?

Obrigado !


Cristianopintado

Cristianopintado

Curtidas 0

Respostas

Edukobra

Edukobra

27/11/2003

with tblSINS0102 do
begin
Active := False;
DatabaseName := ´Dados´;
var
IndPri, IndSec : TIndexOptions;
begin
Screen.Cursor := crHourGlass;
IndPri := [ixPrimary, ixUnique];
IndSec := [ixCaseInsensitive];
TableName := ´SINS0102´;
TableType := ttDefault;
IndexDefs.Clear;
Addindex(´´ ,´CD_FUNCIONARIO´, IndPri);
Addindex(´admissaontx´ ,´DT_ADMISSAO´ , IndSec);
Addindex(´cargontx´ ,´NM_CARGO´ , IndSec);
Addindex(´enderecontx´ ,´NM_ENDERECO´ , IndSec);
AddIndex(´funcaontx´ ,´NM_FUNCAO´ , IndSec);
Addindex(´funcionariontx´,´NM_FUNCIONARIO´, IndSec);
Active := True;
end;
Screen.Cursor := crDefault;
end;
Antes de criar os índices apague-os em tempo de execução após fechar a tabela. No caso acima, o primeiro argumento é o nome do índice, o segundo é o campo da tabela ( se for mais de uma campo, separa-los por ponto e vígula. O valor ´´ é para a chave primária.


GOSTEI 0
Cristianopintado

Cristianopintado

27/11/2003

Desculpe, sou iniciante em delphi, ele da uma msg que não existe o se eu pedir pra apagar antes, e se eu não pedir pra apagar ele da uma msg que o índice existe. O que faço ?

Me ajudem please ?


GOSTEI 0
POSTAR