ARQUIVO .DBF
Boa tarde!
Tenho um cliente que possui informações em um arquvio .DBF
Pelo que entendi, um arquivo DBF é uma espécie de banco de dados, ou um arquivo que guarda informações.
Gostaria de saber se é possÃvel acessá-lo pelo VB e usar a SQL para fazer consultas (talvez inclusões) e utilizar ADO ou até mesmo DAO.
O objetivo é exibir as informações em Formulários como qualquer outro banco de dados. Ou seja, gostaria de saber como é a configuração para conectar ao .DBF e exibir/manipular suas informações.
Obrigado!
[]'s
Tenho um cliente que possui informações em um arquvio .DBF
Pelo que entendi, um arquivo DBF é uma espécie de banco de dados, ou um arquivo que guarda informações.
Gostaria de saber se é possÃvel acessá-lo pelo VB e usar a SQL para fazer consultas (talvez inclusões) e utilizar ADO ou até mesmo DAO.
O objetivo é exibir as informações em Formulários como qualquer outro banco de dados. Ou seja, gostaria de saber como é a configuração para conectar ao .DBF e exibir/manipular suas informações.
Obrigado!
[]'s
Aqui no site tem isso:
Veja neste tópico
Aqui para download
Veja esta dica
Esse do Macoratti é bem detalhado
Veja neste tópico
Aqui para download
Veja esta dica
Esse do Macoratti é bem detalhado
Tenho esta dica guardada nos meus notes. Vê se serve para alguma coisa.
Public cnn1 As ADODB.Connection
Public tab1 As ADODB.Recordset
Dim DBName As String
Dim DBDirectory As String
Private Sub Form_Load()
OpenDB (App.Path & [Ô]\AL042002.DBF[Ô])
End Sub
Public Function OpenDB(DB_Name As String) As Boolean
On Error GoTo ERR_OPEN
If Dir(DB_Name) = [Ô][Ô] Then
Exit Function
End If
DBName = Mid(DB_Name, InStrRev(DB_Name, [Ô]\[Ô]) + 1)
DBDirectory = Left(DB_Name, InStrRev(DB_Name, [Ô]\[Ô]) - 1)
Set cnn1 = New ADODB.Connection
Set tab1 = New ADODB.Recordset
cnn1.Open ([Ô]Driver=Microsoft Visual Foxpro Driver; UID=;SourceType=DBF;SourceDB=[Ô] & DBDirectory)
tab1.Open [Ô]SELECT * FROM [Ô] & DBName, cnn1
Do While Not tab1.EOF
List1.AddItem tab1([Ô]CAMPO5[Ô])
tab1.MoveNext
Loop
tab1.Close
cnn1.Close
Set cnn1 = Nothing
Set tab1 = Nothing
Exit Function
ERR_OPEN:
MsgBox ([Ô]ERRO: [Ô] & _
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
Dim DBName As String
Dim DBDirectory As String
Private Sub Form_Load()
OpenDB (App.Path & [Ô]\AL042002.DBF[Ô])
End Sub
Public Function OpenDB(DB_Name As String) As Boolean
On Error GoTo ERR_OPEN
If Dir(DB_Name) = [Ô][Ô] Then
Exit Function
End If
DBName = Mid(DB_Name, InStrRev(DB_Name, [Ô]\[Ô]) + 1)
DBDirectory = Left(DB_Name, InStrRev(DB_Name, [Ô]\[Ô]) - 1)
Set cnn1 = New ADODB.Connection
Set tab1 = New ADODB.Recordset
cnn1.Open ([Ô]Driver=Microsoft Visual Foxpro Driver; UID=;SourceType=DBF;SourceDB=[Ô] & DBDirectory)
tab1.Open [Ô]SELECT * FROM [Ô] & DBName, cnn1
Do While Not tab1.EOF
List1.AddItem tab1([Ô]CAMPO5[Ô])
tab1.MoveNext
Loop
tab1.Close
cnn1.Close
Set cnn1 = Nothing
Set tab1 = Nothing
Exit Function
ERR_OPEN:
MsgBox ([Ô]ERRO: [Ô] & _
vbCrLf & vbCrLf & [Ô]Error Number: [Ô] & Err.Number & _
vbCrLf & [Ô]Error Description: [Ô] & Err.Description)
Err.Clear
End Function
Sim claro, ate mesmo com o componente data tem como voce conectar este arquivo e fazer a operaçao que deseja.
Tópico encerrado , respostas não são mais permitidas