Copiar em profundidade ou clonar um conjunto de registros ADODB no VBA
Eu tenho procurado uma maneira de duplicar ou copiar um conjunto de registros no VBA. E com isso quero dizer, ter os dados indesejáveis independentes um do outro.
eu tentei
Set copyRS = origRS.Clone
Set copyRS = origRS
Quando uso qualquer um dos métodos, não consigo modificar um conjunto de registros sem modificar o outro. Então, neste exemplo:
Eu crio um conjunto de registrosPovo o conjunto de registros com o nome JohnEu clono o conjunto de registrosEu modifico o clonadoVerificar resultadoCódigo:
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)
Infelizmente, para mim, isso modifica os dois conjuntos de registros
Minha pergunta é:
Existe uma maneira de copiar um conjunto de registros de outro conjunto de registros e modificar os dados independentemente um do outro (sem loop)?
Eu sei que, evidentemente, você pode fazer isso através de um loop, mas não há outra maneira?