índice em paradox runtime
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 !
Obrigado !
Cristianopintado
Curtidas 0
Respostas
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.
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
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 ?
Me ajudem please ?
GOSTEI 0