Board index » delphi » REINDEX

REINDEX

I need use a "reindex" function, but I can't do this.
I've a database paradox and I've index corrupt but my client.
Somebody could help me?
Regards,
Levy Pereira
mailto:l...@uol.com.br

From Brazil

 

Re:REINDEX


Hi, Levy.

Look at BDE32.HLP for more information and examples.

Regards,
--
Petio Tonev
pto...@iname.com
www.i.am/ptonev , www.w3.to/tonevsoft

Re:REINDEX


ChimneySweep will be able to help you resolve this.  

Quote
>Levy Pereira wrote:

> I need use a "reindex" function, but I can't do this.
> I've a database paradox and I've index corrupt but my client.
> Somebody could help me?
> Regards,
> Levy Pereira
> mailto:l...@uol.com.br

> From Brazil

--
--------------------------------------------------------------------
Sundial Services :: Scottsdale, AZ (USA) :: (480) 946-8259
mailto:i...@sundialservices.com  (PGP public key available.)
Quote
> Why =shouldn't= it be quick and easy to keep your database online?
> ChimneySweep(R):  "Click click, it's fixed!" {tm}
> http://www.sundialservices.com/cs3web.htm

Re:REINDEX


Quote
>I need use a "reindex" function, but I can't do this.
>I've a database paradox and I've index corrupt but my client.
>Somebody could help me?

if the index is corrupt you need to delete it and recreate it.
It may also be that more than the index is corrupt and you need to rebuild the
table.  
Table repair utlity can be downloaded at
http://www.Borland.com/devsupport/bde/files/tutil32d.zip

--
Brian Bushay (TeamB)
Bbus...@NMPLS.com

Re:REINDEX


A sintaxe para criar indices em RumTime:

Table1.AddIndex('NewIndex', 'CustNo;CustName', [ixUnique,
ixCaseInsensitive]);

Levy Pereira <l...@uol.com.br> escreveu nas notcias de
mensagem:388C0FC7.34900...@uol.com.br...

Quote
> I need use a "reindex" function, but I can't do this.
> I've a database paradox and I've index corrupt but my client.
> Somebody could help me?
> Regards,
> Levy Pereira
> mailto:l...@uol.com.br

> From Brazil

Re:REINDEX


Grato pelo retorno.
Tenho feito isto mas na hora de realizar o procedimento diz que o banco
est sendo utilizado e n?o consigo prosseguir.
Quando h a tentativa de apagar o indice tenho o problema.

Poderia retornar?

Tomo a liberdade de compartilhar o cdigo:

*************
       Begin
         osClientes.Active := False;
         osClientes.Exclusive := True;
         osClientes.IndexDefs.Update;

          With osClientes Do Begin i := osClientes.IndexDefs.Count;
            While i > 0 Do Begin
               aName := IndexDefs.Items[i - 1].Name;

               MessageDlg(aName,mtInformation,[mbOK],0);

               osClientes.DeleteIndex(aName);

               Dec(i);
            End;

            osClientes.IndexDefs.Add('porAgenda'  
,'Agenda;CEP;Nome'    , [ixUnique, ixCaseInsensitive]);

osClientes.IndexDefs.Add('porCalendario','Calendario;CEP;Nome',
[ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porCargo'    
,'Cargo;Nome'         , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porCEP'      
,'CEP;Nome'           , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porCidade'  
,'Cidade;CEP;Nome'    , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porCodigo'  
,'Codigo'             , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porContato'  
,'Contato;Nome'       , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porEstado'  
,'Estado;CEP;Nome'    , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('{*word*40}ome'    
,'Nome'               , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porPais'    
,'Pais;CEP;Nome'      , [ixUnique, ixCaseInsensitive]);
            osClientes.IndexDefs.Add('porPosicao'  
,'Posicao;Nome'       , [ixUnique, ixCaseInsensitive]);

            osClientes.IndexDefs.Update;
            osClientes.Exclusive := False;
            osClientes.Active := True;
      End;
**************

Quote
Marcelo R Ferreira wrote:

> A sintaxe para criar indices em RumTime:

> Table1.AddIndex('NewIndex', 'CustNo;CustName', [ixUnique,
> ixCaseInsensitive]);

> Levy Pereira <l...@uol.com.br> escreveu nas notcias de
> mensagem:388C0FC7.34900...@uol.com.br...
> > I need use a "reindex" function, but I can't do this.
> > I've a database paradox and I've index corrupt but my client.
> > Somebody could help me?
> > Regards,
> > Levy Pereira
> > mailto:l...@uol.com.br

> > From Brazil

Other Threads