ADO連携でトランザクション制御を行うサンプルコードについて説明します。
トランザクション制御は、明示的に行うことができます。
Connection.BeginTransメソッド、Connection.CommitTransメソッドまたはConnection.RollbackTransメソッドで明示的に行うことができます。これらのメソッドでトランザクションを制御していない場合は、トランザクションはSQL文を実行することで開始され、そのSQL文の処理完了後すぐにコミットされて終了します。
アクセスモードの設定または変更は、SET TRANSACTION文またはConnection.Modeプロパティで行います。Connection.Modeプロパティはコネクションが切れている時だけ設定または変更することができます。コネクション接続中に変更が可能なSET TRANSACTION文による設定または変更を推奨します。
独立性水準の設定または変更は、Connection.IsolationLevelプロパティまたはSET TRANSACTION文で行います。SET TRANSACTION文で設定または変更を行う場合は、Connection.BeginTransメソッド実行時にConnection.IsolationLevelプロパティ設定値に変更されるため、Connection.BeginTransメソッド実行後に行う必要があります。このため、Connection.IsolationLevelプロパティによる設定または変更を推奨します。
本サンプルコードは、アクセスモードをREAD WRITE、独立性水準をREAD COMMITTEDに設定します。
アプリケーションの手順
コネクションを接続します。詳細は、“C.3.1 接続および切断”を参照してください。
Connection.ExecuteメソッドでSET TRANSACTION文を実行しアクセスモードを設定します。
Connection.IsolationLevelプロパティ独立性水準(adXactReadCommitted)を設定します。
Connection.BeginTransメソッドでトランザクションを開始します。
データ操作が正常終了した場合、Connection.CommitTransメソッドを実行します。
データ操作が異常終了した場合、Connection.RollbackTransメソッドを実行します。
コネクションを切断します。
オブジェクトを破棄します。
エラー処理については、“C.3.11 エラー処理”を参照してください。
'オブジェクト宣言 Dim Con As Connection 'Connectionオブジェクトの生成と設定 Set Con = New Connection Con.ConnectionString = "DSN=DSN01;UID=USER01;PWD=PASS01;" On Error GoTo ErrorProc '1. コネクション接続 Con.Open '2. アクセスモードの設定 Con.Execute "SET TRANSACTION READ WRITE", , adCmdText '3. IsolationLevelの設定 Con.IsolationLevel = adXactReadCommitted '4. トランザクション開始 Con.BeginTrans 'データ操作を行う処理を記述 '5. コミット Con.CommitTrans '6. コネクション切断 Con.Close '7. オブジェクトの破棄 Set Con = Nothing Exit Sub 'エラー処理 ErrorProc: '5. ロールバック Con.RollbackTrans 'エラー処理ルーチンを記述
