Attribute VB_Name = "dbCommit"
'----------------------------------------------------------------------------
'
' (c) Copyright IBM Corp. 2007 All rights reserved.
' 
' The following sample of source code ("Sample") is owned by International 
' Business Machines Corporation or one of its subsidiaries ("IBM") and is 
' copyrighted and licensed, not sold. You may use, copy, modify, and 
' distribute the Sample in any form without payment to IBM, for the purpose of 
' assisting you in the development of your applications.
' 
' The Sample code is provided to you on an "AS IS" basis, without warranty of 
' any kind. IBM HEREBY EXPRESSLY DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR 
' IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 
' MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. Some jurisdictions do 
' not allow for the exclusion or limitation of implied warranties, so the above 
' limitations or exclusions may not apply to you. IBM shall not be liable for 
' any damages you suffer as a result of using, copying, modifying or 
' distributing the Sample, even if IBM has been advised of the possibility of 
' such damages.
'----------------------------------------------------------------------------
'
' SOURCE FILE NAME: dbCommit.bas
'
' SAMPLE: How to control autocommit dynamically by using transaction methods
'
'         In order to be able to set the autocommit mode dynamically
'         without the necessity of making a new connection, neither
'         adXactAbortRetaining nor adXactCommitRetaining must be
'         specified in the Connection object's Attributes property.
'
'         For static autocommit mode settings, either AUTOCOMMIT=0 or
'         AUTOCOMMIT=1 can be added to the ConnectionString argument.
'
' FORMS USED:
'         frmMain (Demo.frm)
'
'----------------------------------------------------------------------------
'
' For more information on the sample programs, see the README file.
'
' For information on building ADO applications with Visual Basic, 
' see the Developing ADO.NET and OLE DB Applications book.
'
' For information on using SQL statements, see the SQL Reference.
'
' For the latest information on programming, compiling, and running DB2
' applications, visit the DB2 Information Center:
'     http://publib.boulder.ibm.com/infocenter/db2luw/v9r7/index.jsp
'----------------------------------------------------------------------------

Option Explicit

'This procedure stops the provider instantaneously commit changes
'have been made until a Commit or Rollback is called.
Public Function AutoCommitOff(con As ADODB.Connection)
  con.BeginTrans
End Function

'This procedure commits the previous changes have been made if
'there is any, and reinstates the autocommit mode.
Public Function Commit(con As ADODB.Connection)
  con.CommitTrans
End Function

'This procedure rollbacks the previous changes have been made if
'there is any, and reinstates the autocommit mode.
Public Function Rollback(con As ADODB.Connection)
  con.RollbackTrans
End Function