Recordset2.Clone 方法 (DAO)

适用于：Access 2013、Office 2013

创建引用原始 Recordset2 对象的重复 Recordset 对象。

语法

表达式 .Clone

表达 一个代表 Recordset2 对象的变量。

返回值

Recordset

说明

使用 Clone 方法可以创建多个重复的 Recordset 对象。 每个 Recordset 都可以具有其自身的当前记录。 使用 Clone 自身并不会更改对象中的数据或对象基础结构中的数据。 使用 Clone 方法时，可以在两个或更多个 Recordset2 对象之间共享书签，因为这些对象的书签是可以交换的。

如果要对需要多个当前记录的 Recordset 执行操作，可使用 Clone 方法。 这样比打开第二个 Recordset 更加快速和高效。 使用 Clone 方法创建了 Recordset 后，该记录集最初会缺少一个当前记录。 若要在使用 Recordset 克隆之前使某记录成为当前记录，必须设置 Bookmark 属性，或使用 Move 方法之一、 Find 方法之一或 Seek 方法。

无论是对原始对象还是对复制对象使用 Close 方法，都不会影响其他对象。 例如，对原始 Recordset 使用 Close 不会关闭克隆。

注意

• 在待定事务中关闭克隆 Recordset 将导致隐式 Rollback 操作。
• 在 Microsoft Access 工作区中克隆表类型的 Recordset 对象时，不会将 Index 属性设置克隆到 Recordset 的新副本上。 必须手动复制 Index 属性设置。

示例

以下示例使用 Clone 方法创建 Recordset 的副本，然后让用户单独定位每个副本的记录指针。

    Sub CloneX() 
     
       Dim dbsNorthwind As Database 
       Dim arstProducts(1 To 3) As Recordset2 
       Dim intLoop As Integer 
       Dim strMessage As String 
       Dim strFind As String 
     
       Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
       ' If the following SQL statement will be used often, 
       ' creating a permanent QueryDef will result in better 
       ' performance. 
       Set arstProducts(1) = dbsNorthwind.OpenRecordset( _ 
          "SELECT ProductName FROM Products " & _ 
          "ORDER BY ProductName", dbOpenSnapshot) 
     
       ' Create two clones of the original Recordset. 
       Set arstProducts(2) = arstProducts(1).Clone 
       Set arstProducts(3) = arstProducts(1).Clone 
     
       Do While True 
     
          ' Loop through the array so that on each pass, the  
          ' user is searching a different copy of the same  
          ' Recordset. 
          For intLoop = 1 To 3 
     
             ' Ask for search string while showing where the 
             ' current record pointer is for each Recordset. 
             strMessage = _ 
                "Recordsets from Products table:" & vbCr & _ 
                "  1 - Original - Record pointer at " & _ 
                arstProducts(1)!ProductName & vbCr & _ 
                "  2 - Clone - Record pointer at " & _ 
                arstProducts(2)!ProductName & vbCr & _ 
                "  3 - Clone - Record pointer at " & _ 
                arstProducts(3)!ProductName & vbCr & _ 
                "Enter search string for #" & intLoop & ":" 
             strFind = Trim(InputBox(strMessage)) 
             If strFind = "" Then Exit Do 
     
             ' Find the search string; if there's no match, jump 
             ' to the last record. 
             With arstProducts(intLoop) 
                .FindFirst "ProductName >= '" & strFind & "'" 
                If .NoMatch Then .MoveLast 
             End With 
     
          Next intLoop 
     
       Loop 
     
       arstProducts(1).Close 
       arstProducts(2).Close 
       arstProducts(3).Close 
       dbsNorthwind.Close 
     
    End Sub