1,217
社区成员
发帖
与我相关
我的任务
分享急等
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以上代码运行出错
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以上代码运行出错
...全文
请发表友善的回复…
发表回复
faysky2 2006-03-10
- 打赏
- 举报
cn.Open cnsql
数据库连接能正常打开吗？
数据库连接能正常打开吗？
faysky2 2006-03-10
- 打赏
- 举报
再试：
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', ';database=n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', ';database=n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"
wubife 2006-03-10
- 打赏
- 举报
能解决这个问题的大哥大姐们请加我QQ34665914
wubife 2006-03-10
- 打赏
- 举报
试过了不行，你有没有QQ号，我让你控制，你帮我调试一下
faysky2 2006-03-10
- 打赏
- 举报
试试：
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"
sql = "INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'n:\123\123\1.mdb','select * from 12') SELECT * from zbcgxx.dbf"
由于一些朋友催得较急，部分功能还是没有完善的（但不会出错），我以后也会给出升级包的。所以决定使用本论坛的朋友，请一定要到本站论坛的“站务办公室”进行指定的留言签名，以好我第一时间通知大家升级！ ...
