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
