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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)