VBScript ストアド実行 パラメータ設定でエラー

質問

お世話になります。
VBScriptでOracle DBへ接続して
パラメータ(IN、OUTあり)を設定し、
ストアドプロシージャを実行しようとしています。

パラメータなしで実行すると、正常にＤＢへ実行処理が
流れますが、パラメータ設定のステップでエラーが発生するため、
ＤＢへ実行まで処理できていない状況となっています。

原因解明とエラー解消のためにお聞きしたい点は以下の２点です。
１）29行目（行番号が見えなくすいません）のステップでの
Set Iparm1 = Cmd.CreateParameter("Iparm1",adChar,adParamInput,5,TheForm.Text1.Value)
param1は任意の名前でよいのか？

２）１）はエラーにならず、b（39行目）がエラーになる理由は何か？
Set Iparm1 = Cmd.CreateParameter("Iparm1",adChar,adParamInput,5,TheForm.Text1.Value)
b Cmd.Parameters.Append Iparm1

以下URLがソースとなっております。
http://park2.wakwak.com/~homepage999/Ora_LocalTest.html
よろしくお願い致します。

回答No.4

takkunnet · ベストアンサー

＃１です。

>Const adChar = 129を宣言するとなぜかエラーになる。

とのことですが、そのときにエラーになるのは
Set Iparm1 = Cmd.CreateParameter("Iparm1",adChar,adParamInput,5,TheForm.Text1.Value)
の行じゃないですか？

これは、TheForm.Text1.Valueの「デフォルト値の桁数が６桁」あるのに対しパラメタの桁数が「５」となっているために起きております。
（エラーは「現在の操作に対して、間違った型の値を使用しています。」ですよね？）
そのため桁数を「６」にするか「代入する値を５桁」にするかしてやるとエラーが発生しません。

また、「adCharの宣言をなくすとエラーが発生しない」とのことですが、これは以下のような理由からです。

【理由】
adCharを宣言していなかった場合、VBScriptはadCharの部分が「変数」だと認識し、変数を確保します。その場合初期値として「０（ゼロ）」がセットされることになります。
CreateParameterにおいて「０（ゼロ）」は「adEmpty」を意味し、それでCreateParameterが実行されています。型がEmptyのため他の値が無視され、正常処理となるのです。
しかし、Emptyのままではパラメタとして使用できませんので「b Cmd.Parameters.Append Iparm1」でエラーが発生してしまうのです。

このようなバグをなくすためにも「Option Explicit」宣言をしておくことをお勧めします。

一応以上が今回のバグの詳細になります。
がんばって開発を続けてください。

お礼

takkunnet様

すべて解決しました。
> これは、TheForm.Text1.Valueの「デフォルト値の桁数が６桁」あるのに対しパラメタの桁数が「５」となっているために起きております。
> （エラーは「現在の操作に対して、間違った型の値を使用しています。」ですよね？）
> そのため桁数を「６」にするか「代入する値を５桁」にするかしてやるとエラーが発生しません。
全くそのとおりでした。桁数設定が問題とは恥ずかしいです。

> また、「adCharの宣言をなくすとエラーが発生しない」とのことですが、これは以下のような理由からです。
>
> 【理由】
...以下省略
ＶＢと基本的に同じであることが、エラーを解消していくうちに理解できました。

ありがとうございました。

回答No.3

takkunnet

＃１です。

わかりました。

定数部を宣言するか、数値にする必要があります。

adCmdStoredProc = 4
adChar = 129
adParamInput = 1

それで実行できるはずです。
VBSではVBのときのように参照設定できないので定数が使用できません。ご注意ください。

補足

takkunnetさん

回答ありがとうございます。

ご指摘のとおりに試してみまして、以下の結果となりました。

１）Const adChar = 129を宣言するとなぜかエラーになる。
宣言をコメントにすると、
Set Iparm1 = Cmd.CreateParameter("Iparm1",adChar,adParamInput,5,TheForm.Text1.Value)
が続行できます。

また、Cmd.Parameter.Append Iparm1
は引き続きエラーとなりました。

お時間があれば、追加質問にもお答えいただければ助かります。

回答No.2

takkunnet

＃１です。

２）についてですが、

私のほうがソースをよくみていませんでした。。。すいません(^^;
変数で問題ないですね。

回答No.1

takkunnet

全く実行せずに回答するのも申し訳ないのですが。。。。

ちなみに「１）２９行目。。。」となっていますが、３５行目の間違いですよね・・・？

１）について
任意の名前でよいと思いますが、ストアドプロシージャ内で使用する名前と同一にしておく必要があったと思います。

b Cmd.Parameters.Append Iparm1
の「Iparm1」が「"（ダブルコーテーション）」でくくられていないからでは？
これでは「Iparm1」という変数の値を代入しようとするのでは？