VBSでADO接続に失敗した場合にフリーズするのですが、何とか
ならないでしょうか。
以下、わたしのコード(戻り値を返(WSCript.Quit Err.Number)したいので、On Error Resume Nextは外せません。)
Option Explicit
On Error Resume Next
Dim objADO
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Driver={SQL Server};server=" & WScript.Arguments(0) & _
"; database=" & WScript.Arguments(1) & _
";uid=" & WScript.Arguments(2) & _
";pwd=" & WScript.Arguments(3) & ";"
objADO.Execute(WScript.Arguments(4))
objADO.Close
Set objADO = Nothing
WSCript.Quit Err.Number
No.1ベストアンサー
- 回答日時:
よく、On Error Resume Nextを先頭に置いたスクリプトを見かけますが、
まるで、Option Explicitをスクリプトの先頭に置くような感覚で、
「適当にエラーをリカバるオプション」のような誤解があるのではないでしょうか。
On Error Resume Nextの意味は、言わば、
「エラーがあっても無視して、どうなってもいいから暴走しろ」ですから、
そんな、自暴自棄に走らなくても、と思ってしまいます。
そのような時は、きちんとエラー判定を行い、適切な処理をしましょう。
例1では、Openしかエラー判定を行っていませんが、Executeもエラーが起こりそうなのでエラー判定を行ってください。
ようは、Resume Nextを使うなら、エラーが起こりそうなところで、適切なエラー処理を行わなければいけないと言うことです。
例1
sub 処理1
Option Explicit
On Error Resume Next
Dim objADO
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Driver={SQL Server};server=" & WScript.Arguments(0) & _
"; database=" & WScript.Arguments(1) & _
";uid=" & WScript.Arguments(2) & _
";pwd=" & WScript.Arguments(3) & ";"
if Err.Number <> 0 then
else
objADO.Execute(WScript.Arguments(4))
objADO.Close
end if
Set objADO = Nothing
WSCript.Quit Err.Number
End Sub
例2
sub 処理1
Option Explicit
'On Error Resume Next
On Error GoTo Err処理
Dim objADO
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Driver={SQL Server};server=" & WScript.Arguments(0) & _
"; database=" & WScript.Arguments(1) & _
";uid=" & WScript.Arguments(2) & _
";pwd=" & WScript.Arguments(3) & ";"
objADO.Execute(WScript.Arguments(4))
objADO.Close
Set objADO = Nothing
Exit Sub
Err処理:
Set objADO = Nothing
WSCript.Quit Err.Number
End Sub
注:全角空白があるのでそのまま貼り付けないで。
わたしの求めている回答のほか、プログラミングをする上での哲学まで教えて頂き非常に感謝しております。残念ながら、わたしの周囲にはあなたのようなプログラマーはおりません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript 1日1回引けるJavaScriptおみくじについて 1 2022/12/12 22:28
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- MySQL MySQLのテーブル作成でハイフン - は使用できないのでしょうか? 2 2022/10/21 16:50
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- MySQL 参考書に従って入力したつもりでしたが、最後はエラーがでました。 1 2022/09/28 03:45
- C言語・C++・C# C++のcase文の書き方 4 2023/02/24 20:50
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- MySQL 何にかが違うから エラーなんでしょうね! 2 2022/09/18 05:28
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
エクセル関数を教えてください
-
String""から型'Double'への変...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
インポート時のエラー「データ...
-
マクロで"#N/A"のエラー行を削...
-
ApplicationとWorksheetFunctio...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
【VB.NET】 パワポ操作を非表示で
-
文字列内で括弧を使うには
-
ASPで、変数名に、変数を入れら...
-
マクロの「SaveAs」でエラーが...
-
VBスクリプトでIEの404 not fou...
-
変数にするとエラーになる理由は?
-
「実行時エラー '3167' レコー...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
ACCESSで値を代入できないとは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報