VB.Net 使用 dBase / FoxPro 資料庫

 VB.Net 如何存取 xBase / FoxPro 資料庫

<< 使用OleDb >>

Imports System.Data.OleDb

Dim strCn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=C:\DBF檔案所在資料夾;" & _

"Extended Properties=dBASE IV;" & _

"User ID=Admin;Password=;"

Dim strQry As String = "Select * From 某某.dbf"

Dim cn As New OleDbConnection(strCn)

Dim da As New OleDbDataAdapter(strQry, cn)

Dim ds As New DataSet

da.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

PS : ConnectionString 的 Extended Properties 可為 dBASE IV 或 dBASE 5.0 或 dBASE III。

也可以是 FoxPro 2.0 、 FoxPro 2.5 、 FoxPro 2.6 、 FoxPro 3.0

' ================================================================

<< 使用ODBC >>

Imports System.Data.Odbc

Dim strCn As String = "DRIVER={Microsoft dBase Driver (*.dbf)};dbq=C:\DBF檔案所在資料夾"

Dim strQry As String = "Select * From 某某.DBF"

Dim cn As New OdbcConnection(strCn)

Dim da As New OdbcDataAdapter(strQry, cn)

Dim ds As New DataSet

da.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

PS : ConnectionString 的 Driver 可為 [ODBC 資料來源管理員] 中所提供的 驅動程式。

如:

"DRIVER={Microsoft dBase Driver (*.dbf)};dbq=C:\DBF檔案所在資料夾"

"DRIVER={Microsoft dBase VFP Driver (*.dbf)};dbq=C:\DBF檔案所在資料夾"

"DRIVER={Microsoft FoxPro Driver (*.dbf)};dbq=C:\DBF檔案所在資料夾"

"DRIVER={Microsoft FoxPro VFP Driver (*.dbf)};dbq=C:\DBF檔案所在資料夾"

"DRIVER={Microsoft Visual FoxPro Driver (*.dbf)};dbq=C:\DBF檔案所在資料夾"

xBase 或 FoxPro 資料庫，只要有 ODBC Driver，皆可使用相同方式來連線存取。