Begin, commit, RollbackTrans
He visto que esos metodos se utilizan al manipular objetos connection en visual basic, con el motor de SQL Server. Pueden utilizarse tambien con el motor Jet?
de antemano, gracias
de antemano, gracias
TRANSACCIONES EN VB
BeginTrans: Inicia una transacción y establece el estado inicial de la BD.
RollBack: Vuelve la BD a su estado inicial. Se deshacen todas las modificaciones.
CommitTrans: Guarda permanentemente las modificaciones desde la última BeginTrans. Una vez emitida la instrucción CommitTrans, la transacción no puede deshacerse.
Ejemplo:
BeginTrans
'Realiza un bucle hasta que el usuario finaliza la transacción de ventas
Do While Ventas
'Obtiene el número de artículo y cantidad de venta del formulario
'Inserta NumArticulo, CantVenta
'Halla número artículo en el inventario
Inv.FindFirst "NumArticulo" = & Numart
'Actualiza la cantidad en inventario
Inv.Edit
Inv("Cantidad") = Inv("Cantidad") - CantVenta
Inv.Update
Loop
'El usuario termina o cancela la venta
If VentaCom Then
CommitTrans
Else
RollBack
EndIf
BeginTrans: Inicia una transacción y establece el estado inicial de la BD.
RollBack: Vuelve la BD a su estado inicial. Se deshacen todas las modificaciones.
CommitTrans: Guarda permanentemente las modificaciones desde la última BeginTrans. Una vez emitida la instrucción CommitTrans, la transacción no puede deshacerse.
Ejemplo:
BeginTrans
'Realiza un bucle hasta que el usuario finaliza la transacción de ventas
Do While Ventas
'Obtiene el número de artículo y cantidad de venta del formulario
'Inserta NumArticulo, CantVenta
'Halla número artículo en el inventario
Inv.FindFirst "NumArticulo" = & Numart
'Actualiza la cantidad en inventario
Inv.Edit
Inv("Cantidad") = Inv("Cantidad") - CantVenta
Inv.Update
Loop
'El usuario termina o cancela la venta
If VentaCom Then
CommitTrans
Else
RollBack
EndIf
