by mike vickers (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 9th May 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5)
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
No comments have been posted about create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5). Why not be the first to post a comment about create a copy of an ADO Recordset using ADODB Stream (requires ADO 2.5).