CONEXAO DBF
Olá a todos do forum;
Fiz um sistema pra um amigo onde busco informações de um sistema que ele utliza na loja dele;
Meu sistema simplesmente carrega uma tela de cadastro com informaçoes do sistema dele.
Estou usando a seguinte conexao no meu micro para conectar:
Private Sub Abrir_Dbf()
Set BANCO = CreateObject([Ô]ADODB.Connection[Ô])
BANCO.Open [Ô]Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=[Ô] & TenderecoBanco1.Text & [Ô];Exclusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;[Ô]
Dim CLIENTES As New ADODB.Recordset
Set CLIENTES = New ADODB.Recordset
CLIENTES.Open [Ô]Select * From CLI00[Ô], BANCO
Do While Not CLIENTES.EOF
CBClientes.AddItem CLIENTES([Ô]CLI_NOME[Ô])
CLIENTES.MoveNext
Loop
Dim PRODUTOS As New ADODB.Recordset
Set PRODUTOS = New ADODB.Recordset
PRODUTOS.Open [Ô]Select * From EST00[Ô], BANCO
Do While Not PRODUTOS.EOF
CBProdutos.AddItem PRODUTOS([Ô]EST_CLASSE[Ô]) & [Ô][Ô] & PRODUTOS([Ô]EST_CODIGO[Ô]) & [Ô] [Ô] & PRODUTOS([Ô]EST_NOME[Ô])
PRODUTOS.MoveNext
Loop
No meu micro esta tudo OK mas no dele esta dando o seguinte erro:
Runtime error 2177467259
MIcrosoft ODBC Driver Manager O drive não oferece suporte para esta função.
Fiz um sistema pra um amigo onde busco informações de um sistema que ele utliza na loja dele;
Meu sistema simplesmente carrega uma tela de cadastro com informaçoes do sistema dele.
Estou usando a seguinte conexao no meu micro para conectar:
Private Sub Abrir_Dbf()
Set BANCO = CreateObject([Ô]ADODB.Connection[Ô])
BANCO.Open [Ô]Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=[Ô] & TenderecoBanco1.Text & [Ô];Exclusive=No; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;[Ô]
Dim CLIENTES As New ADODB.Recordset
Set CLIENTES = New ADODB.Recordset
CLIENTES.Open [Ô]Select * From CLI00[Ô], BANCO
Do While Not CLIENTES.EOF
CBClientes.AddItem CLIENTES([Ô]CLI_NOME[Ô])
CLIENTES.MoveNext
Loop
Dim PRODUTOS As New ADODB.Recordset
Set PRODUTOS = New ADODB.Recordset
PRODUTOS.Open [Ô]Select * From EST00[Ô], BANCO
Do While Not PRODUTOS.EOF
CBProdutos.AddItem PRODUTOS([Ô]EST_CLASSE[Ô]) & [Ô][Ô] & PRODUTOS([Ô]EST_CODIGO[Ô]) & [Ô] [Ô] & PRODUTOS([Ô]EST_NOME[Ô])
PRODUTOS.MoveNext
Loop
No meu micro esta tudo OK mas no dele esta dando o seguinte erro:
Runtime error 2177467259
MIcrosoft ODBC Driver Manager O drive não oferece suporte para esta função.
Instale o MDAC na máquina dele. Esse problema é a versão do driver, ou ainda do driver não estar instalado. No seu caso, vc está usando o driver do FoxPro...
Qual MDAC devo instalar ?
Já tentei o 2,5 e 2,8 e ta dizendo que é incompativel com o xp dele
Já tentei o 2,5 e 2,8 e ta dizendo que é incompativel com o xp dele
Pelo que vi no meu sistema esta com a versao 2.81 , mais já baixei varias versoes inclusive a 2,81 e da erro mesmo no meu computador.
Tópico encerrado , respostas não são mais permitidas