一段SQL代码???

[lmywonder]

现在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

[leonnet]

2楼的说的对

[zw_yu]

insert into [库A].table select * from [库B].table

[qqqdong]

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

[七里十二斋]

创建两个数据库连接，一个到A，一个B

[lxcc]

rstB.Open strSql, adoCnSql, 1, 1

rstB.Open strSql, adoCnSql, 1, 1

好像不能用一个connection连接两个数据库
还有你的
rstB.Open strSql, adoCnSql, 1, 1
这个好像不对，是readonly,最好改为3(lockOptimistic)