cn.open"driver={microsoft visual foxpro driver};dbsource=数据库名" set rs.datasource=cn
Dim Cn As New ADODB.Connection,Rs as New ADODB.Recordset Cn.ConnectionString"Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ=C:\DATA" '其中"C:\data"为BDF所在的目录,此时相当于连接到数据库,将DBF视为该库中的表,进行操作即可。 Cn.Open Rs.Open "Select * From 表",Cn '此处的"表"即为dbf名称
set rs.datasource=cn
Cn.ConnectionString"Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ=C:\DATA"
'其中"C:\data"为BDF所在的目录,此时相当于连接到数据库,将DBF视为该库中的表,进行操作即可。
Cn.Open
Rs.Open "Select * From 表",Cn '此处的"表"即为dbf名称