ERRO CONECTAR DBF
VB6. SP6
Prezados, estou com problema ao abrir banco DBF, usando as conexoes abaixo e todas dando o erro
Set Cn = New ADODB.Connection
[ô]conexao1
Cn.Open [Ô]Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=[Ô] & Impo & [Ô];Exclusive=NO; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;[Ô]
[ô] ou conexao 2
Cn.Open [Ô]Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=[Ô] & Impo & [Ô];[Ô]
Set Rs = New ADODB.Recordset
SqlRs = [Ô]Select * from Estoque.DBF[Ô]
Rs.Open SqlRs, Cn, adOpenStatic, adLockOptimistic, adCmdText
ERRO
o drive ODBC não oferece para as propriedades solicitadas.
Como fazer este drive ODBC?
Prezados, estou com problema ao abrir banco DBF, usando as conexoes abaixo e todas dando o erro
Set Cn = New ADODB.Connection
[ô]conexao1
Cn.Open [Ô]Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=[Ô] & Impo & [Ô];Exclusive=NO; Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;[Ô]
[ô] ou conexao 2
Cn.Open [Ô]Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=[Ô] & Impo & [Ô];[Ô]
Set Rs = New ADODB.Recordset
SqlRs = [Ô]Select * from Estoque.DBF[Ô]
Rs.Open SqlRs, Cn, adOpenStatic, adLockOptimistic, adCmdText
ERRO
o drive ODBC não oferece para as propriedades solicitadas.
Como fazer este drive ODBC?
Amigo, utilize dataset para conectar no banco, faça o trabalho em cima de dataset, pois ele oferece suporte ao dbf.
Não conheço dataset.
Desculpe a ignorancia, mas é um componente.
Procurei no forum, e só achei em VB Net.
Desculpe a ignorancia, mas é um componente.
Procurei no forum, e só achei em VB Net.
Amigo, dataset, é o componente DATA do lado esquerdo ai da sua paleta General ( ferramentas )
Vê esta rotina se serve.
Veja um exemplo aqui : http://www.lula.pro.br/artigo.asp?codigo=316&autor=Magico
Public Sub DBFConex()
Dim conector As String
Set con = New ADODB.Connection
If mypath = [Ô][Ô] Then
mypath = App.Path
End If
conector = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & mypath & [Ô];[Ô] & _
[Ô]Extended Properties=[Ô][Ô]DBASE IV;[Ô][Ô];[Ô]
con.Open conector
End SubVeja um exemplo aqui : http://www.lula.pro.br/artigo.asp?codigo=316&autor=Magico
Não funionou.
Copio o arquivo para o path e abro este arquivo. Assim funciona.
O componente Data não funcionou.
Valeu pelas dicas.
Copio o arquivo para o path e abro este arquivo. Assim funciona.
O componente Data não funcionou.
Valeu pelas dicas.
Amigo, pega o componente data coloque ele no form, informe as seguintes propriedades :
CONECT = DBase 4 ou 5,
DATABASENAME=Informe o caminho do dbf.
RECORDSOURCE = Nome do dbf.
CONECT = DBase 4 ou 5,
DATABASENAME=Informe o caminho do dbf.
RECORDSOURCE = Nome do dbf.
Arquivo de teste em anexo
olha abaixo a linha de conexãoque utilizo em qualquer versão de DBF
Set AbrirDBF = New ADODB.Connection
AbrirDBF.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\arq[Ô] & [Ô];[Ô] & [Ô]Extended Properties=[Ô][Ô]DBASE IV;[Ô][Ô];[Ô]
Set RegistroDBF = New ADODB.Recordset
With RegistroDBF
.CursorLocation = adUseClient
.Open [Ô]Select * from maio2010[Ô], AbrirDBF, adOpenKeyset, adLockOptimistic
lembrando que maio2010 é o nome do arquivoque estou querendo abrir.
Set AbrirDBF = New ADODB.Connection
AbrirDBF.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\arq[Ô] & [Ô];[Ô] & [Ô]Extended Properties=[Ô][Ô]DBASE IV;[Ô][Ô];[Ô]
Set RegistroDBF = New ADODB.Recordset
With RegistroDBF
.CursorLocation = adUseClient
.Open [Ô]Select * from maio2010[Ô], AbrirDBF, adOpenKeyset, adLockOptimistic
lembrando que maio2010 é o nome do arquivoque estou querendo abrir.
XXXXANGELSXXX, GRATO PELA DICA.
Jà TESTEI, CONFIGUREI E NÃO RODOU APRESENTA O MESMO ERRO.
ESTOU ACHANDO QUE é PROBLEMA DE MÃQUIMA, WINDOWS.
VOU TESTAR NO NOTE BOOK E DEPOIS POSTO.
NEYB
Jà TESTEI ESTAS CONEXÕES E TAMBEM NÃO DERAM CERTO.
COMO DISSE ACIMA, SE FOR PROBLEMA DE MÃQUIMA DEPOIS DE TESTAR VOU POSTAR.
POR ENQUANTO MUITO OBRIGADO.
Jà TESTEI, CONFIGUREI E NÃO RODOU APRESENTA O MESMO ERRO.
ESTOU ACHANDO QUE é PROBLEMA DE MÃQUIMA, WINDOWS.
VOU TESTAR NO NOTE BOOK E DEPOIS POSTO.
NEYB
Jà TESTEI ESTAS CONEXÕES E TAMBEM NÃO DERAM CERTO.
COMO DISSE ACIMA, SE FOR PROBLEMA DE MÃQUIMA DEPOIS DE TESTAR VOU POSTAR.
POR ENQUANTO MUITO OBRIGADO.
Pessoal, era mesmo problema de máquina.
Muito obrigado a todos.
Muito obrigado a todos.
Tópico encerrado , respostas não são mais permitidas