トランザクション（ADO）BeginTrans、CommitTrans、RollbackTrans

2017/09/20 2017/10/23

ADO でのトランザクション処理

【書式】

Sub Sample_Transaction

	＜＜データベース接続＞＞
	On Error GoTo ErrHandler	……>	エラートラップ開始
	connection_object.BeginTrans	……>	トランザクション開始
	処理１　　　　　　処理２　　　　　　・　　　　　　・　　　　　　・
	connection_object.CommitTrans	……>	処理の確定
	On Error GoTo 0	……>	エラートラップ終了
	＜＜終了処理等＞＞
	Exit Sub	……>	処理が正常に行われた場合は終了
ErrHandler:		……>	エラーが発生した時、ここまで移動
	connection_object.RollbackTrans	……>	すべての処理を破棄する
	＜＜終了処理等＞＞

End Sub

　※ connection_object …… Connection オブジェクト

BeginTrans メソッド

【書式】

object.BeginTrans

引数・戻り値

object ・・・対象となる Connection オブジェクトを指定します。
戻り値・・・トランザクションのネストのレベルを示す長整数型（Long）の値。

BeginTrans メソッドを呼び出すと、CommitTrans メソッドまたは RollbackTrans メソッドを呼び出しトランザクションを終了するまで、変更は実行されません。

CommitTrans メソッド

【書式】

object.CommitTrans

CreateObject 関数

object ・・・対象となる Connection オブジェクトを指定します。

CommitTrans メソッドを呼び出すとその接続上で開いているトランザクションに加えた変更が保存され、トランザクションが終了します。開いているトランザクションが存在しない場合、エラーが発生します。

RollbackTrans メソッド

【書式】

object.RollbackTrans

CreateObject 関数

object ・・・対象となる Connection オブジェクトを指定します。

RollbackTrans メソッドを呼び出すとその接続上で開いているトランザクションに加えた変更がすべて元に戻され、トランザクションが終了します。開いているトランザクションが存在しない場合、エラーが発生します。

トランザクション使用例

サンプルVBAソースその１

　
Sub Sample_Transaction1()

    '参照設定:Microsoft ActiveX Data Objects 6.1 Library
    
    Dim cn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim constr As String
    Dim DBFile As String
    Dim i As Long
    Dim j As Long
    Dim strSQL1 As String
    Dim strSQL2 As String
    Dim rcnt As Long
    
    DBFile = ActiveWorkbook.Path & "\mydb1.accdb"
    constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
    strSQL1 = "delete from テーブル4 " & _
             "where 社員ID in('E0040','H0055')"
    strSQL2 = "select * from テーブル4 where 部署C > 104 order by 社員ID"
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = constr
    cn.Open
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cn
    
    On Error GoTo ErrHandler
    
    'トランザクションの開始
    cn.BeginTrans
    
    With cmd
        .CommandText = strSQL1
        .Execute RecordsAffected:=rcnt
    End With
            
    '処理を確定（トランザクション終了）
    cn.CommitTrans
    
    On Error GoTo 0
                
ErrHandler:
    'エラー発生時は処理を元に戻す（トランザクション終了）
    If Err.Number <> 0 Then cn.RollbackTrans
    
    cmd.CommandText = strSQL2
    Set rs = cmd.Execute
                
    With Worksheets("Sheet1")
        .Cells.Clear
        i = 1
        .Cells.Clear
        Do Until rs.EOF
            For j = 0 To rs.Fields.Count - 1
                If i = 1 Then .Cells(i, j + 1) = rs(j).Name
                .Cells(i + 1, j + 1) = rs(j).Value
            Next j
            rs.MoveNext
            i = i + 1
        Loop
        .Columns("A:H").AutoFit
    End With
        
    Set cmd = Nothing
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

Sub Sample_Transaction1()

'参照設定:Microsoft ActiveX Data Objects 6.1 Library

Dim cn As ADODB.Connection

Dim cmd As ADODB.Command

Dim rs As ADODB.Recordset

Dim constr As String

Dim DBFile As String

Dim i As Long

Dim j As Long

Dim strSQL1 As String

Dim strSQL2 As String

Dim rcnt As Long

DBFile = ActiveWorkbook.Path & "\mydb1.accdb"

constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile

strSQL1 = "delete from テーブル4 " & _

"where 社員ID in('E0040','H0055')"

strSQL2 = "select * from テーブル4 where 部署C > 104 order by 社員ID"

Set cn = New ADODB.Connection

cn.ConnectionString = constr

cn.Open

Set cmd = New ADODB.Command

cmd.ActiveConnection = cn

On Error GoTo ErrHandler

'トランザクションの開始

cn.BeginTrans

With cmd

.CommandText = strSQL1

.Execute RecordsAffected:=rcnt

End With

'処理を確定（トランザクション終了）

cn.CommitTrans

On Error GoTo 0

ErrHandler:

'エラー発生時は処理を元に戻す（トランザクション終了）

If Err.Number <> 0 Then cn.RollbackTrans

cmd.CommandText = strSQL2

Set rs = cmd.Execute

With Worksheets("Sheet1")

.Cells.Clear

i = 1

.Cells.Clear

Do Until rs.EOF

For j = 0 To rs.Fields.Count - 1

If i = 1 Then .Cells(i, j + 1) = rs(j).Name

.Cells(i + 1, j + 1) = rs(j).Value

Next j

rs.MoveNext

i = i + 1

Loop

.Columns("A:H").AutoFit

End With

Set cmd = Nothing

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

実行結果

サンプルVBAソースその２

　
Sub Sample_Transaction2()

    '参照設定:Microsoft ActiveX Data Objects 6.1 Library
    
    Dim cn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim constr As String
    Dim DBFile As String
    Dim i As Long
    Dim j As Long
    Dim strSQL As String
    Dim strSQL1 As String
    Dim strSQL2 As String
    Dim strSQL3 As String
    Dim rcnt 'RecordsAffected
    
    DBFile = ActiveWorkbook.Path & "\mydb1.accdb"
    constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
    
    strSQL1 = "insert into " & _
              "テーブル4 (社員ID,氏名,フリガナ,性別,部署C,入社年月日) " & _
              "values ('E0040','田野仁','タノヒトシ','男',105,#1995/4/2#)"
    
    strSQL2 = "insert into " & _
              "テーブル4 (社員ID,氏名,フリガナ,性別,部署C,入社年月日) " & _
             "values ('H0055','国立浩司','クニタチコウジ','男',105,#1999/4/20#)"
    
    strSQL3 = "select * from テーブル4 where 部署C > 104 order by 社員ID"
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = constr
    cn.Open
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = cn
    
    On Error GoTo ErrHandler
    
    'トランザクションの開始
    cn.BeginTrans
    
    With cmd
        
        .CommandText = strSQL1
        .Execute
        
        .CommandText = strSQL2
        .Execute
    
    End With
            
    '処理を確定（トランザクション終了）
    cn.CommitTrans
            
    On Error GoTo 0
                
ErrHandler:
    'エラー発生時は処理を元に戻す（トランザクション終了）
    If Err.Number <> 0 Then cn.RollbackTrans
    
    cmd.CommandText = strSQL3
    Set rs = cmd.Execute
    
    With Worksheets("Sheet1")
        .Cells.Clear
        i = 1
        .Cells.Clear
        Do Until rs.EOF
            For j = 0 To rs.Fields.Count - 1
                If i = 1 Then .Cells(i, j + 1) = rs(j).Name
                .Cells(i + 1, j + 1) = rs(j).Value
            Next j
            rs.MoveNext
            i = i + 1
        Loop
        .Columns("A:H").AutoFit
    End With
        
    Set cmd = Nothing
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub

Sub Sample_Transaction2()

'参照設定:Microsoft ActiveX Data Objects 6.1 Library

Dim cn As ADODB.Connection

Dim cmd As ADODB.Command

Dim rs As ADODB.Recordset

Dim constr As String

Dim DBFile As String

Dim i As Long

Dim j As Long

Dim strSQL As String

Dim strSQL1 As String

Dim strSQL2 As String

Dim strSQL3 As String

Dim rcnt 'RecordsAffected

DBFile = ActiveWorkbook.Path & "\mydb1.accdb"

constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile

strSQL1 = "insert into " & _

"テーブル4 (社員ID,氏名,フリガナ,性別,部署C,入社年月日) " & _

"values ('E0040','田野仁','タノヒトシ','男',105,#1995/4/2#)"

strSQL2 = "insert into " & _

"テーブル4 (社員ID,氏名,フリガナ,性別,部署C,入社年月日) " & _

"values ('H0055','国立浩司','クニタチコウジ','男',105,#1999/4/20#)"

strSQL3 = "select * from テーブル4 where 部署C > 104 order by 社員ID"

Set cn = New ADODB.Connection

cn.ConnectionString = constr

cn.Open

Set cmd = New ADODB.Command

cmd.ActiveConnection = cn

On Error GoTo ErrHandler

'トランザクションの開始

cn.BeginTrans

With cmd

.CommandText = strSQL1

.Execute

.CommandText = strSQL2

.Execute

End With

'処理を確定（トランザクション終了）

cn.CommitTrans

On Error GoTo 0

ErrHandler:

'エラー発生時は処理を元に戻す（トランザクション終了）

If Err.Number <> 0 Then cn.RollbackTrans

cmd.CommandText = strSQL3

Set rs = cmd.Execute

With Worksheets("Sheet1")

.Cells.Clear

i = 1

.Cells.Clear

Do Until rs.EOF

For j = 0 To rs.Fields.Count - 1

If i = 1 Then .Cells(i, j + 1) = rs(j).Name

.Cells(i + 1, j + 1) = rs(j).Value

Next j

rs.MoveNext

i = i + 1

Loop

.Columns("A:H").AutoFit

End With

Set cmd = Nothing

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

実行結果

- データベース Access, ADO, BeginTrans メソッド, CommitTrans メソッド, Connection オブジェクト, CreateObject 関数, excel vnba, RollbackTrans メソッド, SQL, VBA中・上級, エクセル VBA, データベース, トランザクション, 参照設定

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

: データベース（MySQL）に接続する（ADO）

MySQL ODBCドライバ Windowsには標準で、いくつかの ODBC ド …

: クエリの作成・削除（ADOX）

ADOX を使用してクエリを作成・削除クエリを作成する手順【書式】＜参照設 …

: Recordset オブジェクトの内容をワークシートにコピーする（CopyFromRecordset メソッド・ADO）

CopyFromRecordset メソッド ADO の Recordset オ …

: Recordset オブジェクト内のレコード数（ADO）RecordCount プロパティ

RecordCount プロパティ Recordset オブジェクトのレコード数 …

: インデックス、プロパティの設定（ADOX）

インデックスを作成する index オブジェクト【書式】＜CreateObj …

: テーブルの作成・削除／フィールドの作成・削除（ADOX）

ADOX を使用してテーブル・フィールド（列）を作成・削除 Table オブジェ …

: BOF プロパティ・EOF プロパティ（ADO）

EOF プロパティ・BOF プロパティ BOF プロパティは、カレントレコードの …

: CSVファイルに接続（ADO）

ADOでCSVファイルに接続 ADO を使用してCSVファイルを読み込みます。C …

: フィールド名（ADO）Fields コレクション

Fields コレクション Recordset オブジェクト内の１つ以上の列（フ …

: レコードの削除（ADO）Delete メソッド

データベースのレコードを削除する Delete メソッドカレントレコードを削除 …

PREV: クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド
NEXT: Excelファイルに接続（ADO）

トランザクション（ADO）BeginTrans、CommitTrans、RollbackTrans

ADO でのトランザクション処理

BeginTrans メソッド

引数・戻り値

CommitTrans メソッド

CreateObject 関数

RollbackTrans メソッド

CreateObject 関数

トランザクション使用例

サンプルVBAソースその１

実行結果

サンプルVBAソースその２

実行結果

Message コメントをキャンセル

関連記事

データベース（MySQL）に接続する（ADO）

クエリの作成・削除（ADOX）

Recordset オブジェクトの内容をワークシートにコピーする（CopyFromRecordset メソッド・ADO）

Recordset オブジェクト内のレコード数（ADO）RecordCount プロパティ

インデックス、プロパティの設定（ADOX）

テーブルの作成・削除／フィールドの作成・削除（ADOX）

BOF プロパティ・EOF プロパティ（ADO）

CSVファイルに接続（ADO）

フィールド名（ADO）Fields コレクション

レコードの削除（ADO）Delete メソッド

SQL文を実行する(ADO)Execute メソッド

並べ替え（Sort オブジェクト, SortFields コレクション）

ブックのコピーを保存（SaveCopyAs メソッド）

テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

データベース（Oracle）に接続する（OLE DB を使用）

フィルタ解除して全データを表示（ShowAllData メソッド）

クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

データベース（Oracle）に接続する（ODBC を使用）

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

トランザクション（ADO）BeginTrans、CommitTrans、RollbackTrans

ADO でのトランザクション処理

BeginTrans メソッド

引数・戻り値

CommitTrans メソッド

CreateObject 関数

RollbackTrans メソッド

CreateObject 関数

トランザクション 使用例

サンプルVBAソース その１

実行結果

サンプルVBAソース その２

実行結果

Message コメントをキャンセル

関連記事

トランザクション使用例

サンプルVBAソースその１

サンプルVBAソースその２