请教:recordset的批量更新的方法

sunny　发表于：2010-06-28 15:07:09 　

这样可以增加一条,如果rs(0)里有很多条记录,怎么把他们都增加到rs(1)?

Dim rs(1) As New ADODB.Recordset, x(1) As String
x(0) = "select * from 元件"
rs(0).Open x(0), CnnDB, 1, 3, 512

x(1) = "select * from 元件_L1"
rs(1).Open x(1), CurrentProject.Connection, 1, 3, 512
rs(1).AddNew
rs(1)!元件编号 = rs(0)!元件编号
rs(1)!单位 = rs(0)!单位
rs(1)!BOM用量 = rs(0)!BOM用量
rs(1).Update
rs(1).Close

Top

王樵民发表于：2010-06-28 15:33:22

看看如下代码行吗，我测试了一下，还是可以的。供参考。

Dim rs1 As New ADODB.Recordset, x(1) As String
Dim rs0 As New ADODB.Recordset
x(0) = "select * from 元件"
rs0.Open x(0), CurrentProject.Connection, 1, 3, 512
x(1) = "select * from 元件_L1"
rs1.Open x(1), CurrentProject.Connection, 1, 3, 512
While Not rs0.EOF
rs1.AddNew
rs1!元件编号 = rs0!元件编号
rs1!单位 = rs0!单位
rs1!BOM用量 = rs0!BOM用量
rs1.Update
rs0.MoveNext
Wend
rs1.Close
rs0.Close
MsgBox ("完成")

Top

赵文斌发表于：2010-06-28 16:20:11

知其然知其所以然。问题中的代码主要是没有循环语句，所以只能添加一条记录。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请教:recordset的批量更新的方法