ABRIR DBF
Pessoal, boa tarde,
Estou tentando abrir um banco de dados DBF, e tá dandoesse erro:
error inesperado causado pelo drivers de banco de dados externo 8458
Tenho essa parte do código:
BD.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Joerbeth\Rocha Carvalho;Extended Properties=Dbase IV;[Ô]
RS_AC.Open [Ô]ESTOQUE.Dbf[Ô], BD, adOpenKeyset, adLockPessimistic, adCmdTable
Tá dando erro na segunda linha, já instalei JET, MDAC, DAO, mais nada, alguem pode me ajudar?
Grato,
Joerbeth
Estou tentando abrir um banco de dados DBF, e tá dandoesse erro:
error inesperado causado pelo drivers de banco de dados externo 8458
Tenho essa parte do código:
BD.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Joerbeth\Rocha Carvalho;Extended Properties=Dbase IV;[Ô]
RS_AC.Open [Ô]ESTOQUE.Dbf[Ô], BD, adOpenKeyset, adLockPessimistic, adCmdTable
Tá dando erro na segunda linha, já instalei JET, MDAC, DAO, mais nada, alguem pode me ajudar?
Grato,
Joerbeth
error inesperado causado pelo drivers de banco de dados externo 8458
Com certeza está mais pra isto mesmo BARROS, nem espaço, nem acento e 8 caracteres.
[]'s
[]'s
Eu já usei a rotina abaixo, para DBASE 3.
Public cnn1 As ADODB.Connection
Public tab1 As ADODB.Recordset
Private Sub Form_Load()
OpenDB [Ô]C:\PASTA\[Ô], [Ô]ARQUIVO.DBF[Ô]
End Sub
Public Function OpenDB(DB_Pasta As String, DB_Arquivo As String) As Boolean
On Error GoTo ERR_OPEN
If Dir(DB_Pasta & DB_Arquivo) = [Ô][Ô] Then
Exit Function
End If
Set cnn1 = New ADODB.Connection
Set tab1 = New ADODB.Recordset
cnn1.Open ([Ô]Driver=Microsoft Visual Foxpro Driver; UID=;SourceType=DBF;SourceDB=[Ô] & DB_Pasta)
tab1.Open [Ô]SELECT * FROM [Ô] & DB_Arquivo, cnn1
Do While Not tab1.EOF
[ô]...
[ô]...
tab1.MoveNext
Loop
tab1.Close
cnn1.Close
Set cnn1 = Nothing
Set tab1 = Nothing
Exit Function
ERR_OPEN:
MsgBox ([Ô]ERROR ERROR ERROR![Ô] & _
vbCrLf & vbCrLf & [Ô]Error Number: [Ô] & Err.Number & _
vbCrLf & [Ô]Error Description: [Ô] & Err.Description)
Err.Clear
End Function
Public cnn1 As ADODB.Connection
Public tab1 As ADODB.Recordset
Private Sub Form_Load()
OpenDB [Ô]C:\PASTA\[Ô], [Ô]ARQUIVO.DBF[Ô]
End Sub
Public Function OpenDB(DB_Pasta As String, DB_Arquivo As String) As Boolean
On Error GoTo ERR_OPEN
If Dir(DB_Pasta & DB_Arquivo) = [Ô][Ô] Then
Exit Function
End If
Set cnn1 = New ADODB.Connection
Set tab1 = New ADODB.Recordset
cnn1.Open ([Ô]Driver=Microsoft Visual Foxpro Driver; UID=;SourceType=DBF;SourceDB=[Ô] & DB_Pasta)
tab1.Open [Ô]SELECT * FROM [Ô] & DB_Arquivo, cnn1
Do While Not tab1.EOF
[ô]...
[ô]...
tab1.MoveNext
Loop
tab1.Close
cnn1.Close
Set cnn1 = Nothing
Set tab1 = Nothing
Exit Function
ERR_OPEN:
MsgBox ([Ô]ERROR ERROR ERROR![Ô] & _
vbCrLf & vbCrLf & [Ô]Error Number: [Ô] & Err.Number & _
vbCrLf & [Ô]Error Description: [Ô] & Err.Description)
Err.Clear
End Function
Tópico encerrado , respostas não são mais permitidas