急等

wubife 2006-03-10 09:56:13
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以上代码运行出错
...全文
46 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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"

回复
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"
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-10 09:56
社区公告
暂无公告