• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5)

create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5)

create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5)

Rate create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Create a copy (true clone) of a recordset
 Requires ADO 2.5
 IN  : Recordset to Clone
 OUT : Cloned Recordset
Public Function CloneRecordset(rs As Recordset) As Recordset
Dim strWork As New ADODB.Stream

    On Error GoTo CloneRecordset_Error
    
     Save input recordset to stream as ADTG (smaller than XML)
    rs.Save strWork, adPersistADTG
    
     Create New recordset for output
    Set CloneRecordset = New ADODB.Recordset
    
     Clone Output Recordset from stream
    CloneRecordset.Open strWork
    
     Tidy Up
    Set strWork = Nothing
    
    Exit Function

CloneRecordset_Error:
     if we fail then returned rs = Nothing
    Set CloneRecordset = Nothing
End Function