Consulta bloqueo pesimista
Hola experto antes que nada agradezco tu ayuda, mi consulta es la siguiente:
En vb6 tengo un formulario con tres botones (agregar, actualizar y eliminar). Tengo entendido que los bloqueos se hacen solo en las actualizaciones. Quisiera saber si esta bien codificado su uso en el botón actualizar:
base.BeginTrans
On Error GoTo ErrorProc
If tabla.State = 1 Then
temporada.Close
End If
tabla.LockType = adLockPessimistic
tabla.Open
Set tabla = base.Execute("update temporada set temporada= '" & MaskEdBox1.Text & "', descripción ='" & Text2.Text & "' where temporada = '" & MaskEdBox1.Text & "'")
base.CommitTrans
deshabilitar
limpiar
MsgBox "Tabla actualizada", vbInformation
deshabilitar
limpiar
ErrorProc:
If Err.Number <> 0 Then
base.RollbackTrans
MsgBox Err.Number & " - " & Err.Description
End If
La variable tabla (tipo recordset) es general en el formulario.
Desde ya muchas gracias.
1 respuesta
Gracias experto, entonces mi botón modificar ¿está bien así?:
base.BeginTrans
On Error GoTo ErrorProc
Set tabla = base.Execute("update temporada set temporada= '" &
MaskEdBox1.Text & "', descripción ='" & Text2.Text & "'
where temporada = '" & MaskEdBox1.Text & "'")
base.CommitTrans
deshabilitar
limpiar
MsgBox "Tabla actualizada", vbInformation
deshabilitar
limpiar
ErrorProc:
If Err.Number <> 0 Then
base.RollbackTrans
MsgBox Err.Number & " - " & Err.Description
End If
Desde ya muchas gracias.
Si, yo lo veo bien
