MySQLとVB.NETを使った開発：トランザクション処理機能の実装方法

Imports MySql.Data.MySqlClient

Public Class Form1

    Private Sub BtnSubmit_Click(sender As Object, e As EventArgs) Handles BtnSubmit.Click
        ' 获取输入的id和name
        Dim id As Integer = CInt(TxtId.Text)
        Dim name As String = TxtName.Text

        ' 建立数据库连接
        Dim connStr As String = "server=localhost;user=root;database=test;port=3306;password=123456;"
        Dim conn As New MySqlConnection(connStr)

        Try
            ' 打开数据库连接
            conn.Open()

            ' 开始事务
            Dim transaction As MySqlTransaction = conn.BeginTransaction()

            Try
                ' 执行SQL语句插入数据
                Dim sqlInsert As String = "INSERT INTO student (id, name) VALUES (@id, @name)"
                Dim cmdInsert As New MySqlCommand(sqlInsert, conn)
                cmdInsert.Parameters.AddWithValue("@id", id)
                cmdInsert.Parameters.AddWithValue("@name", name)
                cmdInsert.ExecuteNonQuery()

                ' 提交事务
                transaction.Commit()

                MsgBox("数据插入成功！")
            Catch ex As Exception
                ' 回滚事务
                transaction.Rollback()

                MsgBox("数据插入失败：" & ex.Message)
            End Try

        Catch ex As Exception
            MsgBox("数据库连接失败：" & ex.Message)
        Finally
            ' 关闭数据库连接
            conn.Close()
        End Try
    End Sub

End Class