Introduction
This article includes a common function which can be used with the Insert,Delete,Update SQL Statements.
Public Function ExecuteSQLCmdTransaction(ByVal sql As String, ByVal strTablePath As String) As Boolean
Dim sqltrans As OleDbTransaction
Dim sqlCommand As System.Data.OleDb.OleDbCommand
Dim DONE As Boolean = False
Try
sqlConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTablePath & ";Jet OLEDB:System Database=" & Application.StartupPath & "\SV200SYSTEM.mdw;User Id=Batman;Password=Yamaha1234")
If sqlConn.State = ConnectionState.Closed Then
sqlConn.Open()
End If
sqlCommand = New OleDbCommand(sql, sqlConn)
sqltrans = sqlConn.BeginTransaction
sqlCommand.Transaction = sqltrans
sqlCommand.ExecuteNonQuery()
sqltrans.Commit()
DONE = True
Catch ex As OleDbException
MessageBox.Show(ex.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
sqltrans.Rollback()
DONE = False
Finally
sqlConn.Close()
sqlCommand.Dispose()
End Try
Return DONE
End Function
|
No responses found. Be the first to respond and make money from revenue sharing program.
|