Tengo el siguiente error: "error en la comprobacion de
simultaneidad optimista, se modifico la fila fuera de este
cursor" esto es asi cuando pasa lo siguiente: el
ususario A y B hacen una consulta, B se va al baño, A
modifica un dato. B vuelve y trata de modificar ese mismo
dato. cuando trata de modificarlo salta un error y el
programa sigue pero cuando intenta hacer recordset.movenext
el error es el indicado arriba. como seria la solucion??
gracias
Private Sub Form_Load()
conexion.Open "Provider=SQLNCLI;datasource=(local);initial
catalog=base3; user id=borra12; password=borraborra;"
Set registro.ActiveConnection = conexion
registro.Properties("Preserve On Commit") = True
registro.Properties("Preserve On Abort") = True
registro.Open "tabla", conexion, adOpenDynamic,
adLockOptimistic
Set Adodc1.Recordset = registro
end sub
Private Sub EDITAR_Click()
On Error GoTo errores
conexion.BeginTrans
registro!codigo = Text1.Text
registro.Fields("nombre").Value = Text2.Text
registro!sueldo = Text3.Text
registro.Update
MsgBox ("Guardado")
conexion.CommitTrans
Exit Sub
errores:
MsgBox ("hubo un error")
conexion.RollbackTrans
End Sub
private sub siguiente_click()
registro.MoveNext
If registro.EOF = True Then
registro.MoveLast
Exit Sub
End If
Text1.Text = registro!codigo
Text2.Text = registro!nombre
Text3.Text = registro!sueldo
end sub
