作成者カテゴリ 
公開
utu
01/09/2001 10:16 AM
データベース
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
5.x5.xWindows 95Windows 98TCP/IP

Oracle8-PL/SQLでのデータ連携



初めて投稿させてもらいます。

今回、採番機能のみOracleにて行うことになったのですが、
Oracleにて取得したデータをNotes側で取得できません。
接続にはODBC経由で行い、Oracle側に登録済みのPL/SQLを起動。
そこで取得した値をNotes側で受け取るという処理です。

SQL自体は起動できることは確認しているのですが
どうもパラメータの受け渡し/受け取りがうまく言っていないようです。

まだNotesをはじめて1ヶ月程度なので初歩的なことを間違えている
かもしれませんが、助言のほうよろしくお願いします。


バージョン:Lotus.NotesR5

プロシージャ pc_GetRepCounterはNotesより日付データを送り、
その日に採番した最大の番号をoutRepNoにセットして返します。



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

'作成
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry

'Oracle接続
con.ConnectTo "NOTES" , "NOTES" , "NOTES"

'パラメータ定義
strName = "outRepNo"
varRes = result.SetParameter( 0, Cstr(0))

'SQL定義
qry.SQL = "Begin pk_Counter.pc_GetRepCounter('2003/12/12', ?outRepNo?); End;"

'実行
if Not result.Execute Then
'失敗
Messagebox result.GetExtendedErrorMessage,, _
result.GetErrorMessage
else
'結果取得
varRes = result.GetParameter("outRepNo")
End If

'Oracle切断
result.Close
con.Disconnect


[Previous Main Document]
Oracle8-PL/SQLでのデータ連携 (utu) * 現在地 *
. . ExecProcedureについて (utu)
. . . . ExecProcedure (matsumura)
[Next Main Document]