サービス
サービスを探す
プロ人材を探す
仕事を探す
ブログを探す
トランザクション
記事IT・テクノロジー
Dim ws As Workspace: Set ws = DBEngine.Workspaces(0)
On Error GoTo ErrorHandler
ws.BeginTrans
処理
ws.CommitTrans
ws.Close
ErrorHandler:
ws.Rollback
ws.Close
このブログを見た人にオススメ
Dim ws As Workspace: Set ws = DBEngine.Workspaces(0)
On Error GoTo ErrorHandler
ws.BeginTrans
処理
ws.CommitTrans
ws.Close
ErrorHandler:
ws.Rollback
ws.Close
