expediente X, ¿Quien me lo puede explicar?
Hola a ver si alguien me puede explicar lo siguiente:
Tengo un recorset que lo cargo con 2 registros y hago una copia del recorset , inserto al primero 1 registro más y me lo inserta en el segundo también, pero yo no quiero que me lo inserte en el segundo. como puedo hacer esto.
el ejemplo que tengo es:
Private Sub Command1_Click()
Dim rs As Recordset
Dim rsCloned As Recordset
Set rs = New Recordset
Set rsCloned = New Recordset
rs.Fields.Append "A", adVarChar, "10", adFldIsNullable
rs.Open
rs.AddNew
rs!A = "A"
rs.Update
rs.AddNew
rs!A = "AA"
rs.Update
Set rsCloned = rs.Clone
rs.AddNew
rs!A = "AA"
rs.Update
MsgBox rs.RecordCount
MsgBox rsCloned.RecordCount
End Sub
Lo he probado con clone y sin clone y me sigue dando que tieene 3 registros en los 2.
Un saludo y gracias
Tengo un recorset que lo cargo con 2 registros y hago una copia del recorset , inserto al primero 1 registro más y me lo inserta en el segundo también, pero yo no quiero que me lo inserte en el segundo. como puedo hacer esto.
el ejemplo que tengo es:
Private Sub Command1_Click()
Dim rs As Recordset
Dim rsCloned As Recordset
Set rs = New Recordset
Set rsCloned = New Recordset
rs.Fields.Append "A", adVarChar, "10", adFldIsNullable
rs.Open
rs.AddNew
rs!A = "A"
rs.Update
rs.AddNew
rs!A = "AA"
rs.Update
Set rsCloned = rs.Clone
rs.AddNew
rs!A = "AA"
rs.Update
MsgBox rs.RecordCount
MsgBox rsCloned.RecordCount
End Sub
Lo he probado con clone y sin clone y me sigue dando que tieene 3 registros en los 2.
Un saludo y gracias