CONEXAO DBF

FAUZE 27/06/2012 10:13:52
#404985
Olá Pessaol,

Estou fazendo uma conexão com um arquivo dbf com 88 campos da seguinte forma:
     Conexão_Joiner.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & vLocalRetaguarda & [Ô];[Ô] & [Ô]Extended Properties=Dbase IV;[Ô]
   
   rst.Open [Ô]select * from far01[Ô], Conexão_Joiner, adOpenKeyset, adLockPessimistic


O problema é que a partir do campo 36 o sistema entende com Null o valor do campo, já tentei mudar a conexão dessa forma:
  rst.Open [Ô]select icms from far01[Ô], Conexão_Joiner, adOpenKeyset, adLockPessimistic

E não resolveu, será que é uma limitação no número de campos do dbf, aguel sabe o que posso fazer para resolver?
KERPLUNK 27/06/2012 10:50:29
#404986
Use o driver do FoxPro
FAUZE 27/06/2012 11:16:13
#404990
Citação:

:
Use o driver do FoxPro



Fiz dessa forma:
  Dim Conexão_Joiner As ADODB.Connection
Dim rst As New ADODB.Recordset

   Set Conexão_Joiner = New ADODB.Connection
   Conexão_Joiner.Open [Ô]Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=[Ô] & vLocalRetaguarda & [Ô];[Ô] & [Ô]Exclusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;[Ô]
   rst.Open [Ô]select * from far01[Ô], Conexão_Joiner, adOpenKeyset, adLockPessimistic


Continua não lendo as informações dos campos após o 35, a diferença é que agora não é valor Null.
Estou anexando o arquivo [far01.dbf e far01.dbt] até o campo entregador está ok a partir daí vem vazio.
KERPLUNK você poderia ver pra mim o que está errado?
Tópico encerrado , respostas não são mais permitidas
Voltar