Indexação em rede usando CDX

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

Tudo bem. Mas não fecha o índice.
Comigo fecha. Eu uso em recriação de índice e nunca me falhou. Em kernel NT ou não. Só não testei em Vista. :)

[]'s
Maligno
http://www.buzinello.com/prg
MARCELOG
Usuário Nível 4
Usuário Nível 4
Mensagens: 546
Registrado em: 15 Mar 2005 16:54
Localização: Divinópolis/MG

Mensagem por MARCELOG »

Caro Sygecon,
como a rotina é para indexar mesmo, antes de manipular qualquer dado ou arquivo, apague o índice e verifique se a operação foi concluída.
O arquivo PAP1.CDX não pode estar no diretório indicado ou estar sendo utilizado pelo sistema (qualquer um: windows, seusistema, wordpad, etc.).


If Ferase("PAP1.CDX") == -1
Alert("Faiou uai!? -"+str(FERROR()))
Else
... abre arquivo e indexa...
Endif

Isso garante que o arquivo será criado.

MarceloG

teste e retorne.
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Tche, tu tens razão testei e fungo mesmo com um detalhe...

Código: Selecionar todos

If Ferase("PAP1.CDX") == -1
   Alert("Faiou uai!? -"+str(FERROR()))
Else
    ... abre arquivo e indexa...
Endif
Subistituir o codigo acima pelo abaixo....e ficou ai sim ficou bala...

Código: Selecionar todos

If Ferase("PAP1.CDX") == -1
   Alert("Tche, deu M**** !? -"+str(FERROR()))
Else
... abre arquivo e indexa...
Endif
hehehe...vlw...fungo blz....abraços e desculpa alguma coisa !!!
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Mensagem por janio »

sygecom escreveu: Subistituir o codigo acima pelo abaixo....e ficou ai sim ficou bala...

Código: Selecionar todos

If Ferase("PAP1.CDX") == -1
   Alert("Tche, deu M**** !? -"+str(FERROR()))
Endif
Muito bom! kkkkkkkkkkkkkkkk!

Jânio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Pessoal.....isso sim é de extrema importancia.....estava eu aqui em uma de minhas noia ainda com os tal dos indice ai me lembrei de um post que o colega Stanis Luksys fala para fazer a rotina de indexar em xharbour...como jah venho mexendo aqui nos indice...resolvi meter a mão e fazer em xharbour a tal rotina e chamar ela pelo run de dentro do meu sistema........um sistema meu que tenho aqui levava 01 min e 15 segundos para indexar no clipper em CDX o mesmo levou 09 segundos...isso me deixou abobado.....perdi uns 30 min em configurar xharbour,bcc,compilar a rotina e linkar ele no meu sistema...vale a pena...pegar funções assim mandar pro xharbour dar uma forcinha...

Fui....
Abraços a Todos...
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Mensagem por janio »

sygecom escreveu:um sistema meu que tenho aqui levava 01 min e 15 segundos para indexar no clipper em CDX o mesmo levou 09 segundos...isso me deixou abobado.....perdi uns 30 min em configurar xharbour,bcc,compilar a rotina e linkar ele no meu sistema...vale a pena...pegar funções assim mandar pro xharbour dar uma forcinha...
Converti meus sistemas para xHARBOUR e posso afirmar que o que vc falou é pura VERDADE. O ganho de performace é impressionante!

Jânio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Responder