mySQL Rollback

Hello!

I need a opinion about the following problem

I want to Update and Insert data in a mySQL database directly from ADO in VBA Excel.

The rotines works perfectly,but in case of connection fail, can I control mySQL have possibility to make a rollback of incompleted data ???
mySQL have rollback possibility ???

Thanks

Use the BeginTrans method of the command object.



Dim strString as string
Dim cn as ADODB.connection

strString = "INSERT INTO Table1(Field1, Field2) VALUES('blah', 'blah')"
Set cn = New ADODB.connection

cn.connectionstring = "YOUR ADO CONNECTION"
cn.Open

'now nest an error handler WITHIN your transaction
cn.BeginTrans

On Error goto handle_Error:

cn.Execute strString

'if it goes through, commit the changes

cn.commitTrans
cn.close

handle_Error: If err.number > 0 Then
cn.RollbackTrans
msgbox "The following error has occured: " & Err.description
cn.close
Exit sub
Else
Err.clear
End If

Thanks very must...

I already find too, but I make the VBA rotine with SQL statements.
My rotine only works in a InnoDB and not MyISAM.
I think it only works in mySQL 4 and upper...

Nevetheless, your code is better.

Thanks again...

No problem, glad to help.