第一次尝试了quot;transactionquo​​t;...

这是我第一次尝试使用事务...只是想知道如果我做了"正确"的呢？它似乎工作正常，但是，这并不意味着什么。

只是想从一个DataTable更新的Access数据库。

objConn.openConnection()

        Dim myTrans As OleDbTransaction = objConn.con.BeginTransaction()

        Dim cmd As New OleDbCommand

        cmd.Connection = objConn.con

        cmd.Transaction = myTrans

        Dim tRow As DataRow

        Dim sql As String

 

        Try

            For Each tRow In table.Rows

                sql = String.Format("UPDATE Pricing SET unitPrice = {0}, salesPrice = {1}, ProfitMargin = {2} WHERE ItemID = {3}", tRow(1), tRow(2), tRow(3), tRow(0))

                cmd.CommandText = sql

                cmd.ExecuteNonQuery()

            Next

            myTrans.Commit()

            MessageBox.Show("Update Complete", "Vending", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.ToString & vbCrLf & "Un-doing any work that has been done!", "Vending", MessageBoxButtons.OK, MessageBoxIcon.Error)

            myTrans.Rollback()

        Finally

            objConn.closeConnection()

        End Try