Commitにおけるエラーハンドリングについて

質問

アドバイスをお願い致します。

【環境】
・Visual Basic6.0(以後、VB)
・SQLServer2000

データを挿入もしくは更新後にCommitする際に
例えば、LANケーブルが外れていて通信できない場合
VBでCommitを発行してもエラー(On Errorに飛ばない)になりません。

エラー現象が極端ですが、Commit時のエラーを判断したい時
どのようにすればよろしいでしょうか？

回答No.1

TAGOSAKU7 · ベストアンサー

エラー出ませんか？

質問があります。
仮に以下の関数があるとします。あなたのコミットが実行されるファンクションと置き換えて見てください。

sub test
On Error Goto PGMERR
　　Dim Cnn As ADODB.Connection
　　Set Cnn = New ADODB.Connection

　　Cnn.Open "接続文字"

　　Cnn.BeginTrans
　　Cnn.Execute "insert into tablename values (1,2) "
　　Cnn.CommitTrans

　　degub.print "成功"

　　exit sub
PGMERR:
　　degub.print "エラー"
end sub

それでコミットのタイミング直前にLANケーブルが抜けたとき、あなたの環境ではどのようになりますか？
以下から選んでください。
(1).成功が出力
(2).エラーが出力
(3).このtest関数から突然抜けてしまう。

もし(1)番なら、あなたのトランザクションの開始からコミットを行うまでの間の関数を、載せてください。
特にOn Errorがどこに、どういうように入っていて、どのように使用されているかがわかれば、回答が得られると思います。