実行したＳＱＬの結果を返す方法

VBでSQLを発行、及び実行をし、
MDBを更新する処理を作成しています。
各SQLの実行（SELECT、INSERT、DELETE等）が
成功or失敗したかどうかを判定するには
どのようにすれば良いのでしょうか？
ソースのイメージとしては↓のような感じです。

Dim db As DAO.Database

'DB設定
Set db = OpenDatabase(DB名)

'SQL実行
db.Execute (DB内で作成したSQL)

【実行したSQLの正常終了の判定】
【実行メッセージ（成功or失敗）出力】

No.1 ベストアンサー 回答者： takap 回答日時： 2002/10/21 17:02

On Error GoToを使用すれば、正常・異常の判断出来ます。

例
正常終了した場合、戻り値（True）でリターンされます。
異常終了した場合、ErrEndラベルにジャンプしエラー内容を
イミディエイトウインドウに表示し戻り値（False）でリターンされます。

Public Function DBSEL_PROC(SQL As String) As Boolean
On Error GoTo ErrEnd 'エラー処理を設定します。
DBSEL_PROC = False '関数の戻り値として異常終了を設定します。
'実行したいＳＱＬ文を書く
DBSEL_PROC = True '関数の戻り値として正常終了を設定します。
On Error GoTo 0 'エラー処理を無効にします。
Exit Function
ErrEnd:
'異常終了した場合のエラー内容を表示します。
Debug.Print Err.Description
Exit Function
End Function

No.3 回答者： TAGOSAKU7 回答日時： 2002/10/22 01:57

何か質問が見えない部分があるのですが・・・

＞成功or失敗したかどうかを判定するには
とあるけど、もしかして先にお二人が述べているような、エラー処理(On Error)をすでに組み込んでいるのでしょうか？

処理件数＝０が失敗ということではないですよね？

この回答へのお礼

＞回答者の方へ

ありがとうございました。
解決出来ました！

お礼日時：2002/10/29 14:17

No.2 回答者： sienna 回答日時： 2002/10/21 17:12

DAOのエラートラップならこちらにのっています。

参考まで。

http://homepage2.nifty.com/inform/vbdb/dao_error …