如何把recordset中的一部分记录复制到另一个recordset里面

Question

比如：有recordset A和B,其中A里有20条记录，B里记录数为空，如何把A里的第11--20条记录完全复制到B中?
在线等待！

Answer 1

set b = a
行不行？

Answer 2

Sub InsertIntoX1() Dim dbs  As Database ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")

' 在新客户表中选择所有记录，
' 并且添加它们至客户表。
dbs.Execute " INSERT INTO Customers " _
& "SELECT * " _
& "FROM [New Customers];"

dbs.CloseEnd Sub

Answer 3

也许我的表达不清楚，我只想把A中的一部分记录复制到B中，再把B中的所有记录保存为xml

Answer 4

部分源码如下：
Public Function GetDataXml() As String
    Dim tmpStream As New ADODB.Stream
    Dim strTmp As String
    Dim tmpRecordSet As New RecordSet
    tmpStream.Open
    If GetData() Then
        If myRecordSet.State = 1 Then
                myRecordSet.Save tmpStream, adPersistXML
                strTmp = tmpStream.ReadText
        End If
    End If
    
    tmpStream.Close
    GetDataXml = strTmp
End Function

Answer 5

现在的问题是我只想把myRecordSet的部分记录保存为xml,而不是全部

Answer 6

clone你的记录集，然后删除不想要的记录，然后。

Answer 7

晕啊，就算是clone的话，再一个副本中的更改也会反映到所有副本中的
你可以用事务啊,开始事务，然后删纪录，保存成xml,然后再回滚事务
cnn.BeginTrans 
rs.filter="id>10"
rs.delete AdAffectGroup
rs.save .......
cnn.RollbackTrans