VBscriptまたはVBAでストアドプロシージャから値を取得したい

Question

下記のようにすれば、Functionの戻り値を取得できますが、
配列とレコード件数を返すストアドプロシージャから
配列の値と、レコード件数を格納した変数の値を取得するには
どのように書けばいいでしょうか？

ご教授のほど、宜しくお願い致します。
DBはOracleです。

Dim Conn    'Connectionオブジェクト用
Dim objRs

Set Conn  = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
Conn.Open 接続情報

strSql = "SELECT FUNC_CAL('2019/09/11') as Col1 From dual"
objRs.open strSql, Conn, adOpenForwardOnly, adLockReadOnly
val = objRs.Fields("Col1").value

【WHERE条件は１つ、取得列は１列、且つ２，３行だが、ストアドにしたい理由】
①クラシックASPとサードパーティ製ソフトの組み合せの画面だけ、エラーになってもエラーが表示されない(処理が終わらなければエラー)為、VBscript側では極力、分岐を少なくしたい
②①の事があるので、数年後の仕様変更は、極力ストアドだけの変更で済ませたい

Answer 1

これを見る限りストアドではなくて通常のSQL文ですよね。

strSql = "SELECT FUNC_CAL('2019/09/11') as Col1 From dual"

実際のストアドは別ということでしょうか
仮に『レコード件数を格納した変数の値』というものが存在しているのであれば

declare @行数 int

set @行数=10

SELECT FUNC_CAL('2019/09/11') as Col1,@行数 as 行数じゃ From dual

のように変数をselectに含めればあとは通常の値として取り出せばいいと思います。

val = objRs.Fields("Col1").value
msgbox(objRs.Fields("行数じゃ").value)

関係ありませんが読み取るだけならADODB.ConnectionのExecuteでも取得できます。

'objRs.open strSql, Conn, adOpenForwardOnly, adLockReadOnly
set objRs=Conn.execute(strSql)

Comments

[kamiyui_bidan]

ご回答、ありがとうございます。
FUNC_CAL()とは別に、StoredA()というプロシージャ(PL/SQL)があります（といいますか、これから作ります）。

現在は
```SQL
Select Col1 From テーブルA --結果は0件以上
WHERE ym='2019/11/11'
```
で取得し、RecordCountプロパティとMoveNextを使い、RecordCountの値によって処理を分岐させています。
Col1の結果が２，３行の場合、VARRAYというのを使えばいいのかな、と考えています。
その場合、VARRAYの値はどのようにして取得するのでしょうか？

※ストアドを利用したい理由を追記しました。

[sousuke]

すみませんSQLServerだと思ってました

いずれにしてもvb側では列値として引き受けるしかないので
val = objRs.Fields("VARRAY型の列名").value
これでエラーが出るのかどうかを確認されてみては？