Ler DBF com conexão ADODB.Connection

[asimoes]

Pessoal,

Estou acesso com dbf via ADODB.Connection, só que notei uma lentidão absurda na leitura, existe algum exemplo ou conector para ler mais rápido ?

A tabela que eu estou lendo tem 25 mil registros com 11 campos tá levando mais de 15 minutos para ler.

[JoséQuintas]

Não tem informação suficiente pra dizer alguma coisa.

Usar o ADO, pode usar qualquer coisa, tem algumas opções pra DBF, mas que não fazem parte do ADO.
Além disso, há formas diferentes de usar o ADO, ou de recuperar informações.
Também não sei se está dizendo sobre acesso direto ou via rede.

cheguei a usar ADS Local, que é grátis, compatível com Clipper SIX/CDX, e o acesso era rápido.

A tabela que eu estou lendo tem 25 mil registros com 11 campos tá levando mais de 15 minutos para ler.

Sei não se não deveria ser instantâneo ou quase....

[asimoes]

Vou preparar o exemplo para quem quiser estudar

[JoséQuintas]

a string pra ADS local, compatível com SIXCDX (fonte VB6):

Código: Selecionar todos

Case "ADSLOCAL"
    cString = "Provider=Advantage.OLEDB.1;" & _
    "Mode=Share Deny None;" & _
    "Show Deleted Records in DBF Tables with Advantage=False;" & _
    "Data Source=" & Sistema.PathDefault & ";Advantage Server Type=ADS_Local_Server;" & _
    "TableType=ADS_CDX;Security Mode=ADS_IGNORERIGHTS;" & _
    "Lock Mode=Compatible;" & _
    "Use NULL values in DBF Tables with Advantage=True;" & _
    "Exclusive=No;Deleted=No;"

demorar tudo isso, talvez neste comando que eu usava no aplicativo de transportes.
Totais de tudo, vindos de DBFs diferentes, contendo movimentação de vários anos.
( Fonte VB6 mas não muito diferente do Harbour).

Código: Selecionar todos

cSql = "select " & _
   "cnDatEmi DtEmissao, " & _
   "count(*) CtrcQtd, " & _
   "Sum(cnPeso) CtrcPeso, " & vbCrLf & _
   "Sum(cnValor) CtrcValor, " & _
   "Sum(cnVlMerc) ValorMerc, " & _
   "0 CFQtd, " & vbCrLf & _
   "0 CFValor, " & _
   "0 ColetaQtd, " & _
   "0 ColetaVlr, " & vbCrLf & _
   "0 ColVlMerc " & vbCrLf & _
   "into lixo " & _
   "From gtconhe group by DtEmissao "
cSql = cSql & _
   "union all " & vbCrLf & _
   "select cfDatEmi DtEmissao, " & _
   "0 CtrcQtd, " & _
   "0 CtrcPeso, " & vbCrLf & _
   "0 CtrcValor, " & _
   "0 ValorMerc, " & _
   "count(*) CFQtd, " & vbCrLf & _
   "Sum(CFValor) CfValor, " & _
   "0 ColetaQtd, " & _
   "0 ColetaVlr, " & vbCrLf & _
   "0 ColVlMerc " & vbCrLf & _
   "From gtcontr group by DtEmissao "
cSql = cSql & vbCrLf & _
   "union all " & _
   "Select " & _
   "ceDatEmi DtEmissao, " & _
   "0 CtrcQtd, " & vbCrLf & _
   "0 CtrcPeso, " & _
   "0 CtrcValor, " & _
   "0 ValorMerc, " & vbCrLf & _
   "0 CFQtd, " & _
   "0 CFValor, " & _
   "Count(*) ColetaQtd, " & vbCrLf & _
   "Sum(ceValFat) ColetaVlr, " & _
   "Sum(jpnftr1.ntValor) ColVlMerc " & vbCrLf & _
   "from jpordem " & _
   "left join jpnftr1 on jpordem.ceNumLan = jpnftr1.ntColeta " & _
   "group by DtEmissao " & vbCrLf

SET Rs = cnMySql.Execute( cSql )