Visual Basic - *** BEGINTRANS ***

Hola Foro,

Les agradezco de antemano por su ayuda...
Tengo una equipo PIV con Windows XP SP2, Visual Basic 6.0 SP5 y ADO 2.5
Estoy tratando de utilizar BEGINTRANS para MySQL 5.0, tengo el siguiente codigo para probar y ver si realiza el Rollback, pero no lo ejecuta...

cnConnection.Execute "SET AUTOCOMMIT=0;"
cnConnection.Execute "START TRANSACTION;"
'Aqui grabo los campos en la tabla
Update
cnConnection.Execute "COMMIT;"
cnConnection.Execute "ROLLBACK;"

Cuando verifico la tabla, los datos estan grabados, hay algo que este haciendo mal?

Espero me puedan ayudar y nuevamente les agradezco

Saludos,

CvargasK

Vargas...

Intentaste utilizar los métodos "BeginTrans", "CommitTrans" y "RollBackTrans" de la clase ADODB:Connection?

sería:

cn.BeginTrans

'acá haces lo que querés

cn.CommitTrans

Hola Matias,

Si, y lo que utilizo es lo siguiente:

cnConnection.BeginTrans
Recordset.AddNew
...
Recordset.Update
cnConnection.CommitTrans
cnConnection.RollbackTrans

Porque lo he hecho y cuando se ejecuta el rollbacktrans, me muestra el siguiente mensaje de error :

NO HAY NINGUNA TRANSACCION ACTIVA

Utilizo MySQL 5.0, el tipo de la tabla es InnoDB

Gracias nuevamente,

Saludos,

CvargasK.