Kopiere recordset over i et andet recordset - possible ?

Er rs1 og rs2 altid lige store?

Jeg har selv brugt følgende kode:

Function KopierRecordsetStruktur(rsInd As Recordset) As Recordset
  Dim rsUd As Recordset
  Dim fld As Field
 
  Set rsUd = New Recordset
  For Each fld In rsInd.Fields
    rsUd.Fields.Append fld.Name, fld.Type, fld.DefinedSize, fld.Attributes
  Next
  rsUd.Open
 
  Set KopierRecordsetStruktur = rsUd
End Function

Sub KopierRecordsetData(rsInd As Recordset, rsUd As Recordset)
  Dim fld As Field
 
  If rsInd.RecordCount <> 0 Then
    rsInd.MoveFirst
    Do Until rsInd.EOF
      rsUd.AddNew
      For Each fld In rsInd.Fields
        rsUd.Fields(fld.Name).Value = fld.Value
      Next
      rsUd.Update
      rsInd.MoveNext
    Loop
  End If
End Sub


Den første funktion laver et nyt recordset med de samme felter som et eksisterende. Den anden funktion kopierer alle data fra et recordset til et andet med samme struktur.

Som svar til martin_moth:

Nej de to recordset er ikke nødvendigvis altid lige store (afhænger dog af hvad du mener) Forespørgslen foretages på nøjagtigt samme tabeldata (samme parametre selectes), men da rs2's indhold af records styres af en søgeparameter, så er antallet af hits variabel.

Som svar til Venne:

Jeg har set flere eksempler på den kode, om du har valgt at vise, men
vil gerne have afklaret om det kan klares på en mere impel måde, ved
at sætte et (fyldt) recordset lig et andet (fyldt) recordset direkte.
Men tak for kodestumpen ;-)

VH

Ing

Jeg kender ikke nogen simplere måde, men hvis man dykker ned i de underliggende interfaces i OLEDB kan det være man kan finde noget... Der er nok stor risiko for at det så skal foregå i C++...

Jeg finder en anden løsning som er mere hensigtsmæssig for
hele koden. Jeg har ikke lyst til at rode med C++ desværre ;-)

Tak

VH

Ing