On Error Goto Catch

    Dim cnTXN As ADODB.Connection			･･･ �@
    Dim strSQLQueue() As String			･･･ �A
    Dim intI As Integer
    Redim strSQLQueue(10)

strSQLQueue(1) = "UPDATE [TST_ADO] SET [Number] = [Number] + 1;"
strSQLQueue(2) = "UPDATE [TST_ADO2] SET [Number] = [Number] + 1;"

	･･･    					･･･ �B

    Set cnTXN = New ADODB.Connection			･･･ �C
    cnTXN.Open "Provider=SQLOLEDB.1;Data Source=INTSTSRV01;" & _
        " Trusted_Connection=Yes;Initial Catalog=TST_ADO"

    cnTXN.BeginTrans				･･･ �D

For intI = 1 To 10					･･･ �E
            cnTXN.Execute strSQLQueue(intI), , adCmdText + adExecuteNoRecords
    Next

cnTXN.CommitTrans					･･･ �F

Catch:
    If Not(cnTXN Is Nothing) Then			･･･ �G
       If cnTXN.State <> adStateClosed Then cnTXN.RollbackTrans
    End If
				

�@･･･ トランザクション用のコネクションオブジェクトを宣言します

トランザクションに関わるプロセス情報を一本化し，既存の他の接続と分離するため，トランザクション用のコネクションを専用に宣言します。
専用コネクションはトランザクション処理を行う間だけ有効になるように，可能な限りローカルな変数として宣言します。

�A･･･ トランザクション処理で送信するSQL文を保存しておく変数を宣言します

トランザクションで送信する更新をSQL文の形に整形して保存しておくための一時領域です。

�B･･･ 送信するSQL文を生成します

トランザクションで送信する更新に関わる情報をここで全て取得します。
この処理の間では各種のレコードセットを生成して更新に利用するデータを取得すること及びデータを解析することを行えます。
取得した情報を元に，実際の更新を行うSQL文を生成して，一時領域にプールします。

�C･･･ トランザクション用コネクションを開きます

トランザクション処理用のコネクションはトランザクション開始の直前に開きます。
このコネクションが有効化されている間は，トランザクション実行中とアプリケーション側では判断します。
（厳密にはリアルタイムで一致しているわけではありません）

�D･･･ トランザクションを開始します

トランザクション開始を明示します。開始後はデータの更新のみを可能な限り迅速に行います。
トランザクションの開始に関わるエラーは以下の２つになります（サーバーとの接続状況など，コネクションを原因とするエラーは除きます）。
どちらもエラーが発生した時点でSQL Serverは内部の更新処理を全てロールバックします。
プログラマーは利用しているADO内部のトランザクション実行状態をロールバックするためにRollbackTransメソッドを呼び出します。
（SQL Serverはネットワーク不良，アプリケーションの強制終了などの障害でトランザクションのプロセスが切断された場合にも適切にロールバックを実行します）

• １．ロック取得待ちのタイムアウトエラー （-2147217871）
  他のプロセスの既得ロックに阻害されて自プロセスがロックを取得できないためにトランザクションが開始できない場合に発生します。



• ２．デッドロック発生のエラー（-2147467259）
  エラー番号はSQL Server用のプロバイダーが共通で返す一般的なエラーの番号ですが，コネクションオブジェクトのErrors.NativeErrorプロパティが返す内部エラー番号が1205になります。
  ２つのトランザクションが同時実行された場合に発生し，通常はデッドロックチェインとなります。
  デッドロックの問題解決自体はSQL Serverが自動で行うため，プログラマーは通常の更新失敗とみなして必要な処理を続行することが可能です。

�E･･･ 保存されている更新を送信します

プールされている更新を全て送信します。

�F･･･ トランザクションをコミットします

全ての更新を送信した時点でトランザクションのコミットを行います。
特にトランザクションのコミットに他の条件が関わる場合は，ここで評価を行い，変更を確定するか，戻すかを判断します。

�G･･･ 何らかのエラーが発生した場合はトランザクションをロールバックします

SQL Serverが解決するロックなどの問題が発生した時点でSQL Server内部のトランザクションはロールバックされています。
プログラマーはADOに対してトランザクション処理の取り消しを指示するためにRollbackTransメソッドを呼び出します。
また，通常は行うべきではありませんが，トランザクション実行中にSQL Server以外の要因でランタイムエラーが発生するような処理を行っている場合には，このRollbackTransメソッドによってSQL Server及びADOにトランザクションのロールバックが指示されます。

Private Sub SubmitChange()
On Error Goto Catch
    Dim cnTXN As ADODB.Connection
    Dim strSQLQueue() As String
    Dim intI As Integer

    Redim strSQLQueue(10)
    strSQLQueue(1) = "UPDATE [TST_ADO] SET [Number] = [Number] + 1;"

	･･･    							･･･ �@

    Set cnTXN = New ADODB.Connection			･･･ �A
    cnTXN.Open "Provider=SQLOLEDB.1;Data Source=INTSTSRV01;" & _
        " Trusted_Connection=Yes;Initial Catalog=TST_ADO"

    Set rsMain.ActiveConnection = cnTXN ･･･ �B

    cnTXN.BeginTrans			･･･ �C
        rsMain.UpdateBatch		･･･ �D
        For intI = 1 To 10
            cnTXN.Execute strSQLQueue(intI), , adCmdText + adExecuteNoRecords
    Next
    cnTXN.CommitTrans			･･･ �E

Catch:
    If Not(cnTXN Is Nothing) Then	･･･ �F
        If cnTXN.State <> adStateClosed Then cnTXN.RollbackTrans
    End If
				

�@･･･ 整合性確保のために，メインのレコードセットがアクセスする以外のテーブルに対する更新をセットします。

�A･･･ 共有するトランザクション用コネクションを確保します

�B･･･ 共有コネクションを非接続レコードセットの再接続に使用します。

�C･･･ トランザクションを開始します。

�D･･･ 更新を全て送信します。

レコードセットに対するUpdateBatchとExecuteによる更新を送信します。
更新処理定義の必要要件に従えば，レコードセットに対する更新とExecuteによる更新の順番は任意です。

�E･･･ トランザクションをコミットします。

�F･･･ エラー発生時にはロールバックを実行します。

非接続レコードセットを使用しているため，更新の競合に関するエラーは高い頻度で発生する可能性があります。
この場合にもいち早くRollbackTransメソッドによってトランザクションを終了して，ロックを解放する必要があります。
その後，非接続レコードセットの競合処理機能を利用して競合の状態を評価して，再更新を試みる場合は新たな別のトランザクションとして再送信することが推奨されます。
UpdateBatchのエラーにより一度停止したトランザクションを保持したまま状態評価を含む制御を行うと，ロック保持時間が伸びるため，他プロセスと連鎖的なエラーを引き起こす原因になります。

Private Sub SubmitChange()
On Error Goto Catch
    Dim cnTXN As ADODB.Connection

    Set cnTXN = New ADODB.Connection	･･･ �@
    cnTXN.Open "Provider=SQLOLEDB.1;Data Source=INTSTSRV01;" & _
        " Trusted_Connection=Yes;Initial Catalog=TST_ADO"

    Set rsMain.ActiveConnection = cnTXN		･･･ �A
    Set rsSub.ActiveConnection = cnTXN

    cnTXN.BeginTrans			･･･ �B
        rsMain.UpdateBatch		･･･ �C
        rsSub.UpdateBatch
cnTXN.CommitTrans			･･･ �D

Catch:
    If Not(cnTXN Is Nothing) Then	･･･ �E
        If cnTXN.State <> adStateClosed Then cnTXN.RollbackTrans
    End If
				

�@･･･ 共有するトランザクション用コネクションを確保します

�A･･･ 共有コネクションを全ての非接続レコードセットの再接続に使用します。

�B･･･ トランザクションを開始します。

�D･･･ 更新を全て送信します。

レコードセットに対するUpdateBatchを全レコードセットに対して適用します。
この際，バッチ更新競合を起こしたレコードセットがどのレコードセットなのかを判定する処理が必要になります。
UpdateBatchを適用する間のみ，On Error Resume Nextを利用したインラインエラー処理を利用することも一つの手法です。

�E･･･ トランザクションをコミットします。

�F･･･ エラー発生時にはロールバックを実行します。

複数のレコードセットにUpdateBatchを適用するために，エラーにより一度停止したトランザクションを保持したまま状態評価を含む制御を行うと，ロック保持間が伸びるため，他プロセスと連鎖的なエラーを引き起こす原因になります。
トランザクションを停止した後に，各レコードセットのエラー状態を評価して，レコードセットごとに適切な処理を実行する必要があります。

Dim cnSQL As ADODB.Connection
Dim rsSQL As ADODB.Recordset
Dim rsSQL2 As ADODB.Recordset

Set cnSQL = New ADODB.Connection
Set rsSQL = New ADODB.Recordset
Set rsSQL2 = New ADODB.Recordset

cnSQL.Open "Provider=SQLOLEDB.1;Data Source=IXWRKSRV10;" & _
        "Trusted_Connection=Yes;Initial Catalog=TST_CHOKAN"

rsSQL.Open "SELECT * FROM [TST_ADO]", cnSQL, adOpenKeyset, _
adLockOptimistic, adCmdText
cnSQL.BeginTrans
Set rsSQL = cnSQL.Execute("SELECT * FROM [TST_ADO2]", , adCmdText)
Set rsSQL2 = cnSQL.Execute("SELECT * FROM [TST_ADO2]", , adCmdText) ･･･ �@
				

�@･･･ ２つ目の読み取り専用レコードセットを取得する時点で，-2147467259：手動または分散トランザクションモードのため，新規接続を開始できませんというエラーが発生します。