VBからoo4o接続でストアドを呼ぶ方法
お世話になります、
VBからoo4o接続でストアドを呼ぶ方法を探しています。
＜現在の状況＞
■ストアドパッケージ
・次のように値を返すストアドパッケージがあるとします。これを CreatePLSQLDynaset で実行して、レコードセットを取得します。(OraDynaset)
create or replace package testp is
procedure GetTestm(key in number, cu out CHAR);
end;
/
create or replace package body testp is
procedure GetTestm(key in number,cu out CHAR) is
begin
select NAME into cu from TEMP where STATUS=key;
end;
end;
/
■VBのボタンイベント
Private Sub Command1_Click()
Dim dbname
Dim cnuser
'** サービス、ユーザ設定
dbname = "aaa"
cnuser = "bb/bb"
'** oo4o 接続
Set GoORASESSION = CreateObject("OracleInProcServer.XOraSession")
Set GoORADATABASE = GoORASESSION.OpenDatabase(dbname, cnuser, &H0)
'** リクエリレコードセットオープン
Set Recordset = GoORADATABASE.CreatePLSQLDynaset("Begin testp.GetTestm (1,:cu); end;", "cu", &H0)
End Sub
これを実行したところ以下のようなエラーが出ました
＜エラー＞
____________________________
実行時エラー '440'
SQL実行エラー,ORA-06550:行:1、列:7
PLS-00306:'GETTESTM'の呼び出しで、引数の数または型が正しくありません
ORA-06550:行:1、列:7
PL/SQL:Statement ignored
_______________________________
というエラーが出てしまいます、引数の数は合っていると思うのですが、どこがお菓子のでしょうか？
よろしくお願いします。
お礼
ありがとうございました。 こ、こんなところに・・。