Forums Neueste Beiträge
 

Gebundenes Recordset in ungebundenes Recordset kopieren

06/12/2010 - 18:25 von Wilfried Dietrich | Report spam
Wie kopiere ich, am schnellsten, ein gebundenes
ADODB.Recordset in ein ungebundenes Recordset?
Die DS-Struktur ist identisch.

Ein simples "Set RS.ActiveConnection = Nothing"
um ein ungebundenes Recordset zur Hand zu haben, kann ich
leider nicht anwenden.

Do Until RS1.EOF
RS2.AddNew
For i = 0 To RS1.Fields.Count - 1
RS2.Fields(i).Value = RS1.Fields(i).Value
Next i
Loop
Das dauert mir etwas zu lange.

Mit .Save speichern und neu öffnen, bringt's auch nicht.
Gibt es andere, schnellere Lösungen?

Gruß
Wilfried
 

Lesen sie die antworten

#1 Schmidt
06/12/2010 - 19:52 | Warnen spam
"Wilfried Dietrich" schrieb im Newsbeitrag
news:idj6be$knk$
Wie kopiere ich, am schnellsten, ein gebundenes
ADODB.Recordset in ein ungebundenes Recordset?
Die DS-Struktur ist identisch.

Ein simples "Set RS.ActiveConnection = Nothing"
um ein ungebundenes Recordset zur Hand zu haben, kann ich
leider nicht anwenden.



Schneller als der Loop geht es mit binàrer Serialisierung
über den VB6-PropertyBag:

Function GetRsCopy(SrcRs As Recordset) As Recordset
With New PropertyBag
.WriteProperty "Rs", SrcRs
Set GetRsCopy = .ReadProperty("Rs")
End With
End Function

Olaf

Ähnliche fragen