Глубокое копирование или клонирование набора записей ADODB в VBA

Я искал способ дублирования или копирования набора записей в VBA. И под этим я подразумеваю наличие независимых данных, независимых друг от друга.

я пытался

Set copyRS = origRS.Clone
Set copyRS = origRS

Когда я использую любой из методов, я не могу изменить один набор записей без изменения другого. Итак, в этом примере:

Я создаю набор записейЯ заполняю набор записей именем ДжонЯ клонирую набор записейЯ модифицирую клонированныйПроверить результат

Код:

Dim origRS As Recordset, copyRS As Recordset
Set origRS = New Recordset
'Create field
origRS.Fields.Append "Name", adChar, 10, adFldUpdatable
origRS.Open
'Add name
origRS.AddNew "Name", "John"
'Clone/copy
Set copyRS = origRS.Clone
'Change record in cloned/copied recordset
copyRS.MoveFirst
copyRS!Name = "James"
'This should give me "JamesJohn"
MsgBox copyRS.Fields(0).Value & origRS.Fields(0)

Но, к сожалению для меня, это изменяет оба набора записей

Мой вопрос:

Есть ли способ скопировать набор записей из другого набора записей, а затем изменить данные независимо друг от друга (без зацикливания)?

Я знаю, что, очевидно, вы можете сделать это через цикл, но другого пути нет?

Ответы на вопрос(1)

Ваш ответ на вопрос