Amigos,
A petición de un gran amigo de la comunidad César Cortez.
Como hacer transacciones con TMySql.
oMysql:begintransaction()
lError := .f.
oCliente:fieldput( "saldo", nSaldo )
lError := oCliente:update()
IF !lError
oVenta:fieldput( "venta", nVenta )
oVenta:fieldput( "cliente", cCliente )
lError := oVenta:append()
ENDIF
IF !lError
oMysql:Commit()
ELSE
oMysql:rollback()
ENDIF
Es un ejemplo sencillo, pero es para que tengan un idea de como aplicarlo.
Saludos
Perfecto amigo Willi,
ResponderEliminaruna duda mas resuelta, gracias...
Ahi la llevamos, esperemos mas amigos colegas, empiecen a probar o testear la tmysql.
ResponderEliminarSaludos
PD. No olviden registrarse, así llevamos un record de los usuarios.