Desculpem a demora pelo retorno mas a forma que encontrei de fazer funcionar
foi a seguinte:
Data.tbClientes.AddIndex('ind_CliCodigo','Codigo',[ixPrimary],'');
----- Original Message -----
From: Vinicius da Silva Pinto
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 19, 2005 6:56 PM
Subject: RES: [delphi-br] Problemas em Indices em Tabelas Paradox
O indice primario não tem nome...
Data.tbClientes.AddIndex('','Codigo',[ixPrimary],'Codigo');
assim funciona.
[]'s
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Wilson Valdevite
Enviada em: terça-feira, 19 de abril de 2005 17:55
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problemas em Indices em Tabelas Paradox
Vinicius, desculpe a minha ignorancia no assunto, mas poderia verificar se a
sintaxe do comando addindex esta correta, pois achei o help do windows meio
confuso.
Data.tbClientes.AddIndex('ind_CliCodigo','Codigo',[ixPrimary],'Codigo');
na hora de compilar o programa roda mas ma hora de executar ocorre uma
excessão de "indice inválido"
----- Original Message -----
From: Vinicius da Silva Pinto
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 10:10 AM
Subject: [delphi-br] Problemas em Indices em Tabelas Paradox
Eduardo, segue uma rotina para indexar os arquivos paradox a partir de um
arquivo contendo o nome do arquivo, nome do indice e uma campo lógico para
indexação.
Estrutura do arquivo:
ARQUIVO A 20 *
NOMEINDICE A 70 *
INDEXAR L
Eu tenho um form com um dbgrid que utiliza este arquivo, marco os arquivos
a
serem indexados pelo campo lógico e executo a rotina abaixo.
Vc pode enfeitar o pavão, fazendo um form mais detalhado, com botoes para
atualizar o arquivo de indices, fazer um relatório pra documentar, pode
fazer o que quiser.
Note que o primeiro registro para cada arquivo é o indice primario, os
registros seguintes para o mesmo arquivo são referentes aos indices
secundarios, não tendo limites.
procedure TFRMindexar.BitBtn3Click(Sender: TObject);
var
Warquivo: String;
begin
BDindices.First;
while not BDindices.Eof do begin
if BDindices.FieldByName('Indexar').asBoolean = True then begin
Try
TBLindices.TableName :=
BDindices.FieldByName('Arquivo').asString;
TBLindices.IndexDefs.Clear;
TBLindices.AddIndex('
',BDindices.FieldByName('ChavePrimaria').asString,[ixPrimary, ixUnique]);
Warquivo := BDindices.FieldByName('Arquivo').asString;
BDindices.Next;
if BDindices.FieldByName('Arquivo').asString = Warquivo then
while (BDindices.FieldByName('Arquivo').asString =
Warquivo) and
(not BDindices.Eof) do begin
if
Length(Trim(BDindices.FieldByName('NomeIndice').asString)) > 0 then
TBLindices.AddIndex('S'+IntToStr(BDindices.Recno
),
BDindices.FieldByName('NomeIndice').a
sS
tring,[ixCaseInsensitive]);
BDindices.Next; end;
except
ShowMessage('Não consegui criar indice para a tabela:
'
+
BDindices.FieldByName('Arquivo').asString
);
end; // Try
end; // if
end; // begin
BDindices.Close;
TBLindices.Close;
ShowMessage('Todos os arquivos que foram marcados já estão
indexados.');
Application.Terminate;
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
