?? 為什么我的里層事務嵌套無效.txt
字號:
為什么我的里層事務嵌套無效?
雖然使用多層事務會讓我們的數據控制能力大大提高,但只能最多使用五層嵌套事務:
Dim con As ADODB.Connection
Dim iLevel As Integer
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=NWind.mdb;"
con.BeginTrans
' 改動 1
con.BeginTrans
' 改動 2
con.BeginTrans
' 改動 3
iLevel = con.BeginTrans
' 改動 4
MsgBox "Level " & iLevel
con.CommitTrans
con.RollbackTrans
con.CommitTrans
con.CommitTrans
con.Close
Set con = Nothing
可以看到,在上面這個例子中,改動1和2將成功,改動3和4無效。改動4表面上已經被提交,但由于第三層事務回退,從而導致所有它里面的事務都被回退。
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -