作成者	カテゴリ	返答の対象		公開
utu 01/15/2001 09:56 AM		Oracle8-PL/SQLでのデータ連携

質問を少し修正させてもらいます。

どうやらストアドプロシージャを呼び出すのに
ODBCResultSetクラスのExecProcedureを
使用すればいいことがわかったのですがどうもうまく行きません。

引数なしのプロシージャは実行できるので変数の渡し方に
問題があるようなのですが、どこを探してもサンプル等が
見当たらないので投稿させてもらいました。

もしわかる方いましたらよろしくお願いします。

バージョン：NotesR5

LLLLLLLLLLLLLLLLLLLLLLLL
プロシージャ(Oracle)

CREATE OR REPLACE PACKAGE BODY pk_Counter AS

PROCEDURE pc_GetRepCounter(inNumber IN NUMBER) IS
BEGIN
Insert Into NUM_MANAGE (INDATE, REPNUM) VALUES ('1999/12/12', inNumber);
commit;
END;

END pk_Counter;


LLLLLLLLLLLLLLLLLLLLLLLL
Notesプロシージャ(最終的には受け取りを行う)

Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet

Dim lngRepNo As Integer

'設定
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry

'Oracle接続
If Not con.ConnectTo("NOTES","NOTES","NOTES") Then
　　　Messagebox "Could not connect",,"Error connecting"
　　　Exit Sub
End If

'実行
lngRepNo = 299
Call result.ExecProcedure("pk_counter.pc_GetRepCounter", lngRepNo)

'Oracle切断
result.Close
con.Disconnect