copying from one recordset to another

Mort,
I want to copy the contents of one RS to another.

Thanks,
DG

BTW, the recordset will be very small, so speed isn't a big issue.

Thanks,
DG

Use Clone method to create copy or copies of a recordset.

See the following link:
http://www.w3schools.com/ado/met_rs_clone.asp

Thanks, I just gave that a try.  Unfortunately my recordset doesn't support bookmarks, so the clone method won't work for me.  

Any other ideas?

Thanks,
David

Clarification, I should have said "my PROVIDER doesn't support bookmarks..." instead of recordset.

Hi David,

Here is some sample code for VB6 on Oracle:
Please note that this code is used to copy a row... you will have to do some more footwork to ensure PK violations don't occur.

What is the context of your requirement?

Private Sub Tester()
Dim rsOld As ADODB.Recordset
Dim rsNew As ADODB.Recordset
Dim nProgress As Integer
Dim nFieldCount As Integer

On Error GoTo EHTester
   
    Set rsOld = New ADODB.Recordset
    Set rsNew = New ADODB.Recordset
    rsOld.Open "Select * From DbTable Where Key = 5", adoCon, adOpenDynamic, adLockBatchOptimistic
   
    rsNew.CursorLocation = adUseClient
    rsNew.Open "Select * From DbTable Where 1=2", adoCon, adOpenKeyset, adLockOptimistic
   
   
    Do Until rsOld.EOF
        If Not rsOld.EOF Then
            rsNew.AddNew
            nFieldCount = rsOld.Fields.Count - 1
            For nProgress = 0 To nFieldCount
                If rsNew.Fields(nProgress).Name = "KEY" Then
                    rsNew.Fields(nProgress).Value = rsOld.Fields(nProgress).Value + 1
                Else
                    rsNew.Fields(nProgress).Value = rsOld.Fields(nProgress).Value
                End If
            Next
        End If
        rsNew.Update
        rsOld.MoveNext
    Loop
   
    Exit Sub
    Resume
EHTester:
    MsgBox Err.Number & " - " & Err.Description & " has occurred in frmMain.Tester", vbOKOnly + vbCritical, " Error! "
   
End Sub

try the .clone with  static cursor and/or client side cursors if you can, some providers will do bookmarks in some modes but not others.

clone would create a copy (like a new pointer to the recordset) .. but deleting a record from the original recordset would delete the record in the copy too.
assuming u have the structure of both the recorsets .. try writing a code to loop thorugh the field and creating them
if u want to create a new recordset on the fly then
loop through the field collection of the original recordset  and use the newrocordset.fields.append method to add these fields to the new recordset and then loop through the original recordset (original recordset.eof = false) to add each record.

Thanks for the comments.  I will give them a try and get back to you.

Thanks,
DG

i think i have answered the question ..... the author has to get back if there has any more queries ...