Método Recordset.Clone (DAO)

Se aplica a: Access 2013, Office 2013

Crea un objeto Recordset duplicado que hace referencia al objeto Recordset original.

Sintaxis

expression .Clone

expression Variable que representa un objeto Recordset.

Valor devuelto

Recordset

Comentarios

Use el método Clone para crear varios objetos Recordset duplicados. Cada objeto Recordset puede tener su propio registro actual. El método Clone por sí mismo no cambia los datos en los objetos ni en las estructuras subyacentes. Cuando use el método Clone, puede compartir marcadores entre dos o más objetos Recordset, porque sus marcadores son intercambiables.

Puede usar el método Clone cuando quiera realizar una operación en un conjunto de registros que requiera varios registros actuales. Es más rápido y eficaz que abrir un segundo conjunto de registros. Cuando se crea un conjunto de registros con el método Clone, al principio no tiene un registro actual. Para que haya un registro actual antes de usar el clon del conjunto de registros, debe definir la propiedad Bookmark o usar uno de los métodos Move, uno de los métodos Find o el método Seek.

El uso del método Close en el objeto original o duplicado no afecta al otro objeto. Por ejemplo, usar Close en el conjunto de registros original no cierra el clon.

Nota:

• Al cerrar una copia del conjunto de registros en una transacción pendiente, se genera una operación Rollback implícita.
• Al clonar un objeto Recordset de tipo tabla en un área de trabajo de Microsoft Access, no se clona el valor de la propiedad Index en la nueva copia del conjunto de registros. Debe copiar el valor de la propiedad Index manualmente.

Ejemplo

En este ejemplo se usa el método Clone para crear copias de un conjunto de registros y, después, se deja que el usuario coloque el puntero de registros de cada copia de manera independiente.

    Sub CloneX() 
     
       Dim dbsNorthwind As Database 
       Dim arstProducts(1 To 3) As Recordset 
       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