SQL2005数据转移问题....请大家多帮忙..谢谢!!!

[dazhi518]

我想把第二个数据库的数据转移到第一个数据库中去.
我是这样写的:

Public Sub CAMEDM()
' 第一个数据库
Dim cnn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenKeyset
cnn1.Open "Provider=SQLOLEDB.1;Password=haiyang888;Persist Security Info=True;User ID=sa;Initial Catalog=EDM-DataBases;Data Source=10.194.156.78"
rs1.Open "select * from EDM", cnn1, adOpenKeyset, adLockOptimistic

' 第二个数据库
Dim cnn2 As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
rs2.CursorLocation = adUseClient
rs2.CursorType = adOpenKeyset
cnn2.Open "Provider=SQLOLEDB.1;Password=haiyang888;Persist Security Info=True;User ID=sa;Initial Catalog=CAM-DataBases;Data Source=10.194.156.78"
rs2.Open "select * from CAM", cnn2, adOpenKeyset, adLockOptimistic

dim j as integer
Dim i As Integer
j=rs1.recordcount
For i = 0 To rs2.RecordCount
rs1.AddNew
rs1.Fields(1) = j+1
rs1.Fields(2) = rs2.Fields(2)
rs1.Fields(3) = rs2.Fields(3)
rs1.Fields(4) = rs2.Fields(4)
rs1.Fields(5) = rs2.Fields(5)
rs1.Fields(6) = rs2.Fields(6)
rs1.Fields(7) = rs2.Fields(7)
rs1.Fields(8) = rs2.Fields(88)
rs1.Fields(9) = rs2.Fields(9)
rs1.Fields(10) = rs2.Fields(10)
rs1.Fields(11) = rs2.Fields(11)
rs1.Fields(12) = rs2.Fields(12)
rs1.Fields(13) = rs2.Fields(13)
rs1.Fields(14) = rs2.Fields(14)
rs1.Update
rs2.MoveNext
j=j+1
Next i
rs1.Close
cnn1.Close
rs2.Close
cnn2.Close

这样写老是出错,说不能重复插入...我把j作为主键的数据. 但j不是递增的.没有规律的乱变,一会239 一会188
j的值应该是递增的呀..
请高手看下,我哪儿错了....给改正下...谢谢....

[ivy13579]

你的第二个表是否有数据，无否rs2.RecordCount为0。

[proer9988]

dim j as long
Dim i As long
dim k as long
rs1.moveLast
rs1.moveFirst
j = rs1.recordcount - 1
rs2.moveLast
rs2.moveFirst
k=rs2.recordcount -1

For i = 0 To k
j= j + 1
rs1.AddNew
rs1.Fields(1) = j
...

' j=j+1 去掉此语句
...

或者干脆用SQL语句插入共高效

[dazhi518]

谢谢各位,,,,谢谢...