ARQUIVO .DBF

FBUR 11/05/2011 14:22:29
#373669
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
FEDERHEN 11/05/2011 16:28:31
#373697
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
XXXANGELSXXX 12/05/2011 10:09:56
#373752
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