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ベストアンサー
- 回答日時:
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
No.3
- 回答日時:
何か質問が見えない部分があるのですが・・・
>成功or失敗したかどうかを判定するには
とあるけど、もしかして先にお二人が述べているような、エラー処理(On Error)をすでに組み込んでいるのでしょうか?
処理件数=0が失敗ということではないですよね?
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
つい集めてしまうものはなんですか?
人間誰もは1つ「やたらこればかり集めてしまう」というものがあるもの。 あなたにとって、つい集めてしまうものはなんですか?
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
ちょっと先の未来クイズ第4問
11月ごろに発表される、2024年の「新語・流行語大賞」にノミネートされる言葉を書けるだけ書いてください。
-
あなたの習慣について教えてください!!
あなたが習慣だと思って実践しているものを共有してくださいませんか? 筋肉トレーニングでも朝シャワーでも、あなたが習慣だなと思えば何でも構いません
-
select文の戻り値を変数に格納したい。
Visual Basic(VBA)
-
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
6
フォーム上で押されたボタンによってサーブレットの処理を変えたい
Java
-
7
AccessのSQL文で1件のみヒットしたら終了させる構文。
その他(データベース)
-
8
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
9
テーブルの最後(最新)のレコードを抽出したい
MySQL
-
10
Excel-vba 文字列と変数を連結して更に変数として扱いたい
その他(プログラミング・Web制作)
-
11
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
12
別フォームから戻ったときのイベント
Visual Basic(VBA)
-
13
エクセルからアクセスのテーブルやクエリのレコード数を取得することは可能でしょうか?
Access(アクセス)
-
14
ListBoxで改行したい
Visual Basic(VBA)
-
15
VBのReturnの使い方
Visual Basic(VBA)
-
16
VBAで3秒だけ時間を止めたい
Visual Basic(VBA)
-
17
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
18
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
19
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
数式は残し値をクリアするマク...
-
【マクロ】 IFERROR関数をマク...
-
VBAでfunctionを利用しようとし...
-
フランスの生年月日(jj/mm/aaaa)
-
Excel vbaについての質問
-
WindowsでのPythonの挙動について
-
String""から型'Double'への変...
-
「実行時エラー '3167' レコー...
-
パソコンを起動するとこのよう...
-
HTMLソースが表示のページのも...
-
コンボボックスの特定項目だけ...
-
mailstorehomeのエクスポートで...
-
VBA Find でオートメーションエ...
-
VB 実行時エラー '3001'
-
ACCESSで値を代入できないとは?
-
LaTeXのエラーについて(コンパ...
-
マクロの「SaveAs」でエラーが...
-
ACCESS フォームから開...
-
ExcelのWebクエリでのエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
String""から型'Double'への変...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
On ErrorでエラーNoが0
-
「実行時エラー '3167' レコー...
-
【Access】Excelインポート時に...
-
インポート時のエラー「データ...
-
ACCESSで値を代入できないとは?
-
実行時エラー 438 の解決策をお...
-
Excel vbaについての質問
-
【VBAエラー】Nextに対するFor...
-
Filter関数を用いた結果、何も...
-
ApplicationとWorksheetFunctio...
-
エクセルVBAで埋め込みグラフ(C...
-
VBでSQL文のUPDATE構文を使った...
おすすめ情報