SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Jueves 13 de Mayo de 2004, 13:14
-
Hola Compañer@s!
Estoy realizando un programa que realiza 3 SQl seguidos, quiero utilizar el metodo BeginTrans, para controlar que si alguna de las Sql, falle vuelva todo a su estado original.
Ejemplo:
BeginTrans
SQL1ª
SQL2ª
SQL2ª
CommitTrans
tratar error:
MsgBox "No se han podido realizar las actualizaciones"
Rollback
He estado buscando en la ayuda, del foro pero como es evidente no me ha valido para mucho. Lo se hacer en RPG, pero!!!!
Un saludo. :whistling:
-
Utiliza lo siguiente en tu procedimiento
Private Sub Command1_Click()
On Error Goto Crtl_Error
nError=0
'Primero envia a la base de datos el inicio de la transaccion
'es decir envia BEGIN TRAN
'<aqui va la primera sentencia sql>
if nError=0 then
'<Aqui va la segunda sentencia sql>
if nError=0 then
'<Aqui va la segunda sentencia sql>
endif
endif
if nError=0 then
'Envia el termino de la transaccion COMMIT TRAN
else
'Envia que se reversen los cambios con ROOLBACK TRAN
endif
Exit Sub
Ctrl_Error:
nError=Err.Number
msg="Error " & Err.Number & vblf & Err.Description
msgbox msg,vbcritical,"Advertencia
Resume Next
End Sub
-
Eskerrik Asko Jose!
Probatuko dut!