急等

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以上代码运行出错
...全文
94 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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"

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧