SQLServer2000上でOUT変数によって戻り値を呼び出し元に返すストアドプロシージャを作成し、VBScriptから実行したいと思っていますが、OUT変数上の戻り値を取得する方法がわかりません。
ADO経由でselect文の結果をrecordsetとして取得するメソッドは用意されているようなのですが、OUT変数として取得する適当なメソッドがVBScriptには見つかりませんでした。
同じようなことを行ったことのある方がいらっしゃいましたらやり方を教えて頂けますでしょうか。
No.1ベストアンサー
- 回答日時:
実行環境が無いため未確認ではあるのですが、以下の方法でできないかやってみてください。
Dim objConnect
Dim objCommand
set objConnect=CreateObject("ADODB.Connection")
set objCommand=CreateObject("ADODB.Command")
'※接続です。接続するDB環境に合わせてください。
objConnect.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=pubs;", "sa", ""
'※使用するコネクションを指定
objCommand.ActiveConnection = objConnect
'※testプロシージャを実行します。(引数が1つ)
objCommand.CommandText = "test ?"
objCommand.Execute
'※1つめの引数の値をひろう
Msgbox objCommand.Parameters(0).Value
いかがでしょうか?
コメントが遅れてしまい、すみませんでした。
ご回答頂いた方法では、エラーになってしまいました。が、CreateParameterを使用して明示的にOUTパラメータであることを指定することで、実現することができました。
set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = "プロシージャ名"
.CommandType = adCmdStoredProc
' ストアドプロシージャにOUT変数パラメータを設定
.Parameters.Append .CreateParameter("@outparameter",adInteger,adParamOutput)
.Execute ln, , adExecuteNoRecords
' プロシージャからの戻り値を変数に格納
outParameter = .Parameters("@outparameter").Value
End With
ご協力頂きありがとうございました。
また分らないことがあったらご教授いただきたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
バッチで実行するVBScriptからのストアドプロシージャの実行
その他(プログラミング・Web制作)
-
VBでストアドの戻りパラメータを受け取る方法
Visual Basic(VBA)
-
SQL ServerのストアドでOUTPUTパラメータを2つ
Visual Basic(VBA)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
[VBA]GetSaveAsFilenameメソッ...
-
コマンドプロンプト実行後に画...
-
DataGridViewでセルクリックイ...
-
オートシェイプの位置がずれる...
-
(String args[])というメッソ...
-
PDFファイルから別ウィンドウで...
-
引数は省略できません。とのコ...
-
Excel VBA シェイプの原型のサ...
-
エクセルVBAにおけるON TIMEメ...
-
ODBCでMoveNextがうまく動作し...
-
javascriptからjavaを呼び出したい
-
CALLされていないメソッドを見...
-
VBPをダブルクリックするとたま...
-
JSPで<SELECT>の中にDBから持っ...
-
クエリ文字列の"?"の後を非表示...
-
ASP.NET MVCのホームページ表...
-
配列のメソッド
-
AccessレポートのラベルをVBAで...
-
Labelコントロールに数字を代入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
DataGridViewでセルクリックイ...
-
final修飾子を使っているのに、...
-
javascriptからjavaを呼び出したい
-
Labelコントロールに数字を代入...
-
VBPをダブルクリックするとたま...
-
vbaエクセルマクロ RemoveDupli...
-
【sendkeysメソッドが動かずに...
-
mainメソッドのthrows節で設定...
-
エクセルVBAにおけるON TIMEメ...
-
Refreshメソッドの使い方
-
onClickで関数呼出し後に、結果...
-
ウィンドウを最前面にできません
-
JSPで<SELECT>の中にDBから持っ...
-
コマンドプロンプト実行後に画...
-
Application.Wait の参照設定
-
Excel VBA でExcelを終了したい...
-
配列のメソッド
-
エクセルのマクロでプリンタを...
-
Excel VBA シェイプの原型のサ...
おすすめ情報