急等

Question

Private Sub Command1_Click()
Dim cn As New adodb.Connection
Dim rse As New adodb.Recordset
Dim cnsql
Dim sql
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','select * from 12') SELECT * from zbcgxx"
rse.Open sql, cn, 3, 3
cn.Close
End Sub以上代码运行出错

Answer 1

试试：sql = "INSERT INTO  OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"

Answer 2

再试：sql = "INSERT INTO  OPENROWSET('Microsoft.Jet.OLEDB.4.0', ';database=n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"

Answer 3

cn.Open cnsql
数据库连接能正常打开吗？