一段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
...全文
86 点赞 收藏 5
写回复
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)
回复
feels30000 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楼的说的对
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告