Question

VB中如何将一个记录集中的多条数据加到另一个记录集中

Dim STemp As String
Dim STemp0 As String
Dim Rs As ADODB.Recordset
Dim Rs0 As ADODB.Recordset
Set Rs = New ADODB.Recordset
Set Rs0 = New ADODB.Recordset
STemp0= "Select ID.table0 , name.table0 From table0 WHERE ID='" & Me.txtID & "'"
STemp= "Select ID.table , name.table From table"
将Rs0中的数据加到Rs中
已经解决
Do Until Rs.EOF

Rs.MoveNext
Loop

Answer 1

利用记录集个数和for语句实现

追问

EOF或者BOF出错

Answer 2

贴一下完整代码，如果EOF或BOF出错很可能是语句逻辑错误。

追问

已经解决了
应该是逻辑出错，开始用的是
For i=1 To me.Lst.ListCount
代码
Next
后来没直接从列表框调用要添加的数据，用ado
Do Until Rs.EOF
代码
Rs.MoveNext
Loop

问题解决