A melhor solução que eu encontrei para índices corrompidos foi a de cria-los
na mão mesmo.
Veja o exemplo abaixo, funciona que é uma beleza, eu tenho um sistema com
mais de 60 tabelas que eu reindexo todos de uma vez só (uma vez só que eu
digo é: chamo um menu que pede para reindexar todos, um a um)
var
IndPri, IndSec : TIndexOptions;
begin
Screen.Cursor := crHourGlass;
IndPri := [ixPrimary, ixUnique];
IndSec := [ixCaseInsensitive];
with dmSIAEAP01 do
begin
with tblSIAE0101 do
begin
Active := False;
DatabaseName := 'Agenda';
TableName := 'SIAE0101';
TableType := ttDefault;
// cria/recria os indices da tabela
ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados','SIAE0101.px');
ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados','SIAE0101.yg0');
ExcluirArquivos(ExtractFilePath(Application.Exename) +
'Dados','SIAE0101.xg0');
IndexDefs.Clear;
AddIndex(' ','CD_CONTATO', IndPri);
AddIndex('contatontx','NM_CONTATO', IndSec);
Active := True;
end;
end;
Screen.Cursor := crDefault;
-----Mensagem original-----
De: Fabio Giro [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 24 de fevereiro de 2005 08:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] reindexar os índices Paradox
indice corrompido Paradox
www.geocities.com/SiliconValley/Foothills/9467/
br.groups.yahoo.com/group/delphi-br/files/tutil32d.zip
200.183.208.111/reparaparadox.zip
Espero ter ajudado.
----- Original Message -----
From: "Vanessa - Atual Sistemas" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, February 23, 2005 11:00 AM
Subject: [delphi-br] reindexar os índices Paradox
Oi..........
Alguém sabe um rotina para reindexar os índices de minha tabela Paradox
qdo
corrompe?????????
Obrigada!!!!
[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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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
