一段SQL代码???

lmywonder 2003-01-14 12:03:31
现在SQL数据库的A和B库中有两个同名表newcplbk,其表结构完全一致的,A库的表有数据,B库的表为空,我要将A库的表的数据导入B库的表,代码如下:请问错在哪里,正确的如何写???现在库以打开
'打开SQL的A库的记录集
strSql = "select * from A.dbo.newcplbk"
rstA.Open strSql, adoCnSql, 1, 1
'打开SQL的B库的记录集
strSql = "select * from B.dbo.newcplbk"
rstB.Open strSql, adoCnSql, 1, 1

'从A库中取一条记录
Do While Not rstA.EOF
'从B库中取一条记录
Do While Not rstB.EOF
strSql = "insert into B.dbo.newcplbk(cpzybm,cpbm,cpmc) values('" & rstA.Fields(0).Value & "','" & rstA.Fields(1).Value & "','" & rstA.Fields(2).Value & ")"

adoCnSql.Execute strSql
rstA.MoveNext
rstB.MoveNext
Loop
Loop
...全文
125 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxcc 2003-01-14
  • 打赏
  • 举报
回复
rstB.Open strSql, adoCnSql, 1, 1

rstB.Open strSql, adoCnSql, 1, 1

好像不能用一个connection连接两个数据库
还有你的
rstB.Open strSql, adoCnSql, 1, 1
这个好像不对,是readonly,最好改为3(lockOptimistic)
七里十二斋 2003-01-14
  • 打赏
  • 举报
回复
创建两个数据库连接,一个到A,一个B
qqqdong 2003-01-14
  • 打赏
  • 举报
回复
strSql = "select * from A.dbo.newcplbk"
rstA.Open strSql, adoCnSql, 1, 1
'打开SQL的B库的记录集
strSql = "select * from B.dbo.newcplbk"
rstB.Open strSql, adoCnSql, 1, 1

'从A库中取一条记录
Do While Not rstA.EOF
rstB.AddNew
rstB!cpzybm = rstA!cpzybm
....
rstB.Update

rstA.MoveNext
Loop
zw_yu 2003-01-14
  • 打赏
  • 举报
回复
insert into [库A].table select * from [库B].table
leonnet 2003-01-14
  • 打赏
  • 举报
回复
2楼的说的对

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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