如何把foxpro数据库转成access的？我代码哪错啦？
Private Sub Command1_Click()
Dim cn As New adodb.Connection
Dim rse As New adodb.Recordset
Dim cn1 As New adodb.Connection
Dim cnsql
Dim sql
Dim cmd As New adodb.Command
cnsql = "Driver={Microsoft dBase VFP Driver (*.dbf)};SourceType=DBF;SourceDB=N:\123\123"
cn.Open cnsql
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'n:\123\123\1.mdb'; ''; '', 12) SELECT * from zbcgxx"
rse.Open sql, cn, 3, 3
cn.Close
End Sub
问题点数：100、回复次数：7Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-09 23:20:30 得分 0
......SELECT * from zbcgxx"
----------------------------------
在zbcgxx后面加上.dbf看对不对：
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'n:\123\123\1.mdb'; ''; '', 12) SELECT * from zbcgxx.dbf"
Top
2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-09 23:21:22 得分 0
rse.Open sql, cn, 3, 3
改为：
cn.Execute sql 试试Top
3 楼phoenixzcy（）回复于 2006-03-10 08:36:10 得分 20
'dbf导入到mdb
'dbf数据库所在目录就是文件,*.dbf就是表
dbfData = loadPath 'vfp文件所在路径
dbfTable = loadName 'vfp文件名
loadfrom = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" _
& dbfData & ";SourceType=DBF"
sql = "select * from [" & dbfTable & "] "
这个是我原来编过的程序Top
4 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-10 14:43:31 得分 50
不行再改：
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', ';database=n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"
Top
5 楼ghost_lsw（1％≈1）回复于 2006-03-11 19:46:05 得分 0
好的，谢谢大家啦！Top
6 楼veimi（郴郴）回复于 2006-03-11 20:37:14 得分 5
最后结果如何?Top
7 楼jmshl（泰坦）回复于 2006-03-12 16:41:55 得分 25
rse.Open sql, cn, 3, 3
改为：
cn.Execute sql 试试
Top
