广场 › 其它 › VB6连接MySQL后如何支持事务处理

admin 发表于 2022-10-22 21:36:02

VB6连接MySQL后如何支持事务处理

今天尝试修改Free仓储管理系统支持事务处理，发现按VB默认的启动事务的方式不管用：
Dim connectionString As String
    connectionString = ConnectString
   
    Dim objConnect As New ADODB.Connection
    objConnect.connectionString = connectionString
    objConnect.Open
   
    objConnect.BeginTrans
    ......省略....
    If 错误 Then
      objConnect.RollbackTrans
    Else
      objConnect.CommitTrans
    End If

查了很多篇文章后，仍不知问题在哪，后来查了一段PHP连接MySQL支持事务处理的代码，恍然大悟，Mysql启动事务需要以SQL命令的形式执行，修改代码如下，问题解决：
Dim connectionString As String
    connectionString = ConnectString
   
    Dim objConnect As New ADODB.Connection
    objConnect.connectionString = connectionString
    objConnect.Open
   
    objConnect.Execute ("BEGIN")
    ......省略....
    If 错误 Then
      objConnect.Execute ("ROLLBACK")
    Else
      objConnect.Execute ("COMMIT")
    End If
希望能够给大家有所启示，这么老的编程语言仍然能完美的支持事务处理，很好了。

查看完整版本: VB6连接MySQL后如何支持事务处理