Working with Transactions with an Access Database
<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) Dim DBConn as OleDbConnection Dim DBDelete As New OleDbCommand Dim DBTrans As OleDbTransaction DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("EmployeeDatabase.mdb;")) DBConn.Open() DBTrans = DBConn.BeginTransaction() DBDelete.Connection = DBConn DBDelete.Transaction = DBTrans DBDelete.CommandText = "Delete From Employee " _ & "Where ID = 1" DBDelete.ExecuteNonQuery() DBDelete.CommandText = "Delete From Employee " _ & "Where ID = 2" DBDelete.ExecuteNonQuery() DBTrans.RollBack() lblMessage.Text = "No action was taken." 'DBTrans.Commit() End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Working with Transactions with an Access Database</TITLE> </HEAD> <Body LEFTMARGIN="40"> <form runat="server"> <BR><BR> <asp:label id="lblMessage" runat="Server" /> </form> </BODY> </HTML>