1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Dim TransacMajAndroid5 As MySqlTransaction = Nothing
Dim NbEssai As Integer = 0
Try
MyConnexion5.Open()
TransacMajAndroid5 = MyConnexion5.BeginTransaction 'Ouverture de la transaction
Dim cmd As New MySqlCommand("call Android_MAJ_Table", MyConnexion5, TransacMajAndroid5)
' TransacMajAndroid5.save("save1") => CETTE INSTRUCTION EST REFUSE
cmd.ExecuteNonQuery()
TransacMajAndroid5.Commit()
Catch ex As Exception
NbEssai = +1
If NbEssai = 3 Then
MessageBox.Show(ex.Message)
Else
' TransacMajAndroid5.Rollback to savepoint("save1") FORCEMENT CELA NE MARCHE PAS NON PLUS
End If
Finally
MyConnexion5.Close()
End Try |
Partager