Acessando arquivos DBF com C# e VB .NET

 

.NET - Acessando arquivos DBF com C# e VB .NET

--

Declare os seguintes namespaces no formulário:

Imports System.Data.Odbc

Imports System.Data

No evento Click do botão inclua o código abaixo:

 Private Sub btnDBF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDBF.Click

        Dim oConn As New OdbcConnection()

        oConn.ConnectionString = "Driver={Microsoft dBase Driver (*.dbf)};SourceType=DBF;SourceDB=c:\dados\;Exclusive=No; _

                                                Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;"

        oConn.Open()

        Dim oCmd As OdbcCommand = oConn.CreateCommand()

        oCmd.CommandText = "SELECT * FROM c:\dados\arqDBF.dbf"

        Dim dt As New DataTable()

        dt.Load(oCmd.ExecuteReader())

        oConn.Close()

        DataGridView1.DataSource = dt

    End Sub

Podemos obter o mesmo resultado usando provedor OleDb , neste caso usamos o provedor OleDb:

Imports System.Data.OleDb

Imports System.Data

Substitua o código do evento Click do botão de comando pelo código abaixo:

Dim oConn As New OleDbConnection()

oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\dados;Extended Properties=dBASE IV;"

oConn.Open()

Dim oCmd As OleDbCommand = oConn.CreateCommand()

oCmd.CommandText = "SELECT * FROM c:\dados\arqDBF.dbf"

Dim dt As New DataTable()

dt.Load(oCmd.ExecuteReader())

oConn.Close()

dataGridView1.DataSource = dt