如何用vb调用vfp数据库？~

[ledon1981]

谢谢了~

[上官云峰]

同意

[flxa]

如果用ADO，可以：
1：用ADO的ODBC驱动程序。
2：VFP7，VFP8里提供了一个DBF、DBC的ADO驱动程序，可以用他做为驱动来调用DBF数据库，速度还可以。如果要的话，我可以发一个VFP8的给你。

[fly]

Dim DBFconn As New ADODB.Connection
Dim DBFrs As New ADODB.Recordset
Dim connstr as string

connstr="Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & pathName & ";Exclusive=YES;"
DBFconn.open connstr
其中pathname是你的表所在的路径，如DBF表在d:\table.dbf ,那pathname="d:\".

[frankwong]

最简单的方法:
使用data1控件
data1.connect="FoxPro 2.0;"
data1.databasename=dbf文件的目录
data1.recordsource=dbf文件名

[liuyanghe111]

Dim objCnn As New ADODB.Connection
Dim strConn As String
Dim objRs As New ADODB.Recordset
Dim objCmd As New ADODB.Command



strConn = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=G:\Temp\testdata;SourceType=DBF"
objCnn.Open strConn
objCmd.ActiveConnection = objCnn
objCmd.CommandType = adCmdTable
objCmd.CommandText = "city"
Set objRs = objCmd.Execute

[yk84]

学习UP!