電子書籍の厳選無料作品が豊富!

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失敗)出力】

A 回答 (3件)

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




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

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

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



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

処理件数=0が失敗ということではないですよね?
    • good
    • 0
この回答へのお礼

>回答者の方へ

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

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

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

参考まで。

http://homepage2.nifty.com/inform/vbdb/dao_error …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


おすすめ情報

このQ&Aを見た人がよく見るQ&A