VBスクリプトでDBにアクセスし、ストアドプロシージャを実行したいのですが、実行できなくて困っています。ADODB.Commandを使わずに、ADODB.Connection.ExecuteでCommandTextを実行するとレコードを取得することができるので、DBにコネクトすることはできているようなのですが、ストアドプロシージャを実行することができません。どなたか原因分かる方いらっしゃいますでしょうか。このスクリプトはASPではなく、バッチで実行します。よって参照設定ができないので、ComandTypeにadCmdStoredProcを値で入れるようにしています。サーバはWindows2003Server,DBはSQLServer2005です。よろしくお願いします。
Option Explicit
On Error Resume Next
Dim blnRetCode ' 戻り値
Dim objAdoCon ' ADO 接続
Dim objComm ' コマンドオブジェクト
'Dim return_value 'DBバックアップの成功、失敗の戻り値
' ADO 定数の読み込み
Set objAdoCon = WScript.CreateObject("ADODB.Connection")
If Err.Number = 0 Then
'ADODBを使用してDBにアクセスする
objAdoCon.ConnectionString = "Provider=SQLOLEDB.1;Password=aaaa;User ID=user2;Catalog=dbname;Data Source=192.168.8.2"
objAdoCon.Open
Set objComm = CreateObject("ADODB.Command")
objComm.ActiveConnection = objAdoCon
objComm.CommandType = 4
objComm.CommandText = "ExportData"
objComm.Execute
If (Err.Number <> 0) Then
MsgBox Err.Number
End If
objAdoCon.Close
End If
Set objComm = Nothing
Set objAdoCon = Nothing
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
「実行できなくて」ではなんとも言えないのでもう少し具体的な現象(エラーメッセージ等)を書いていただいたほうが良いかと。
ぱっと見て一箇所だけ気になったのは、
objComm.ActiveConnection = objAdoCon
は
Set objComm.ActiveConnection = objAdoCon
ではないのでしょうか?
この回答への補足
ご回答ありがとうございます。
分かりにくい表現で申し訳ありません。エラーは、エラーコード-2147217900で、メッセージを調べてみると、ランタイムエラーやSQLサーバにオブジェクトがみつからないなど、いろいろなメッセージがあり、どのエラーだか分からない状態です。また、
>objComm.ActiveConnection = objAdoCon
>は
>Set objComm.ActiveConnection = objAdoCon
>ではないのでしょうか?
に関して、
Set objComm = CreateObject("ADODB.Command")
でobjComm にオブジェクトを設定しているので
プロパティの値設定はSETが無くてもいいかと思ったのですが、
Setの使い方が間違えておりますでしょうか。
objComm.ActiveConnection = objAdoCon
を
Set objComm.ActiveConnection = objAdoCon
と書き直すと、同じくエラーコード-2147217900があがります。
初心者的な質問で大変申し訳ありませんが、ご存知の方教えていただけますようお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBScriptからストアドプロシージャのOUT変数の取得について
Microsoft ASP
-
VBScriptでSQLファイルの実行
その他(プログラミング・Web制作)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
-
4
ストアド・プロシージャをバッチから起動させて実行する方法
Oracle
-
5
SQLServer2005のストプロでxp_cmdshellを使いvbsファイルを実行できない
SQL Server
-
6
VBSの処理中一旦処理を止めて再開させたい。
Visual Basic(VBA)
-
7
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
8
SQL ServerのストアドでOUTPUTパラメータを2つ
Visual Basic(VBA)
-
9
vbsのセル値の取得について
その他(プログラミング・Web制作)
-
10
レコードが存在しなかった場合
Microsoft ASP
-
11
ストアドの速度がクエリの30倍遅いです
SQL Server
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
pythonスクリプトを管理者権限...
-
VScodeのエラー解決法 Pythonの...
-
WESTERN DIGITAL製HDDのローレ...
-
VBSでバッチを実行できません。
-
exeファイルを実行するとコマン...
-
シェルで5分前の時間を取得したい
-
これってパソコンの最適化が完...
-
Excel(エクセル) VBA プロシー...
-
imacroで組んだマクロをバッチ...
-
powershellをバックグラウンド実行
-
「読み取りと実行」と「読み取...
-
Vba ShellObj.Run でアプリケー...
-
再起動が止まらない・・
-
CHKDSKユーティリティとは
-
Access の VBA 実行中に他の操...
-
コマンドプロンプトを管理者と...
-
Excelのセルの内容をコマンドプ...
-
[teraterm] waitコマンドで停止...
-
vbscriptを用いて他のVBSファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
exeファイルを実行するとコマン...
-
バッチファイルの内容を表示さ...
-
「読み取りと実行」と「読み取...
-
VBscriptが起動しない?
-
[teraterm] waitコマンドで停止...
-
エクセル フォルダの画像を画...
-
Excel VBA ステップインが途中...
-
PDFファイルを開き、印刷し、閉...
-
バッチファイルで以下のような...
-
VScodeのエラー解決法 Pythonの...
-
VBScriptでコマンドプロンプト...
-
バッチファイルが不正終了して...
-
複数のbatファイルを自動実行し...
-
pythonスクリプトを管理者権限...
-
これってパソコンの最適化が完...
-
ネットワーク名が見つかりません
-
VBS実行時にコマンドプロンプト...
-
メッセージを他のPCに出したい
-
VB.NETでのDOSコマンドを実行に...
おすすめ情報