vb 访问dbf数据库的方法

[mayong]

我做一套系统，用vb访问fox 的dbf数据库，望大家指教

[zhguiqiang]

up

[online]

用odbc

[akkliam]

1、odbc+ado
dim adb as new adodb.conection
dim adset as new adodb.recordset
adb.ConnectionString = "DSN=dfcb;UID=;PSW=;"
adb.Open
adset.Open "dfcb", adb, , , adCmdTable



2、dao
dim db as database
dim ds as recordset
Set db = OpenDatabase(Path_output, False, False, "Dbase III;")
Set ds = db.OpenRecordset(File_output)
下边是sql到mdb表的
Set db = Workspaces(0).OpenDatabase(App.Path + "\cb.mdb")
db.Execute "INSERT INTO yhinfo(" + str1 + ") select " + TT1 + " FROM [FoxPro 3.0;DATABASE=" + Path_inport + "]." + "[" + File_inport + "]"

[xo2000]

呵呵，这个问题我也遇到了一半。之所以说一半因为我的连接方法在本机没问题，打包后到别的机子上安装就不行了，说是找不到数据源。
我的方法是：

DPath="E:\ss" (if DPath="E:\ss\card.dbf" 则在本机上也不行I don't know why)
TypeName = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & _
"Driver={Microsoft FoxPro VFP Driver (*.dbf)};UID=;SourceDB=" & DPath & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"

DSNConn.ConnectionString = TypeName
dsnRec.Open sSql, DSNConn, adOpenStatic, adLockOptimistic

共享望指正

[xo2000]

上面的DPath是在程序运行时可选的，并未在代码中设定

[akkliam]

pb的 intersolv oem 32-bit dbasefile 怎么操作 dbf 格式 可以读但是不能写 我用dbase 和foxpro 我都试验过了

[chenyu5188]

你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.1 Library”
示例：

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=;" & app.path & "\data" & _
"Exclusive=No"
cn.Open cnstr
rs.CursorLocation = adUseClient
rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

以上示例程序的作用是将XXX.dbf表中的数据显示在datagrid1控件中。

[chenyu5188]

"SourceDB=;" & app.path & "\data" & _
这一句有点手误，少了一个分号，现改为：
"SourceDB=;" & app.path & "\data;" & _

[lihonggen0]

http://www.connectionstrings.com

连接字符串大全