🚀 go-pugleaf

イントラネットシステムの田川です。


From が長くて化けているんですけど。
会社名は Organization: に入っているから、
From には書かなくていいんじゃないでしょうか？

森精機製作所 須？？？ wrote in message
<01bd4404$78a9e500$0301a8c0@uemura.infoweb.or.jp>...
>ＶＢ＋ＳＱＬ ＳＥＲＶＥＲ （ＲＤＯ）で開発を行っていますが、
>ＳＱＬ ＳＥＲＶＥＲ側で 作成した引数を持ったストアドプロシジャー
>の流し方がわかりません。


人から聞いたやり方なので、ヘルプのどこに載っているかわからないのですが
以下の方法でうまく行っています。

Dim g_conn  As rdoConnection   <--- Global 変数にしています。

Dim en      As rdoEnvironment
Dim qy      As rdoQuery
Dim rs      As rdoResultset
Dim sql_cmd As String

Set en = rdoEnvironments(0)
Set g_conn = en.OpenConnection( _
    dsname:="DSNAME", _
    Prompt:=rdDriverNoPrompt, _
    Connect:="uid=UID;pwd=password;")         <=== はじめに１回だけ実行


sql_cmd = "{ call STP1 ('param1') }"          <=== STP1 に param1 を渡す
Set qy = g_conn.CreateQuery("STP1", sql_cmd)  <=== STP1 の呼び出し
Set rs = qy.OpenResultSet(rdOpenForwardOnly, rdConcurReadOnly)

Do While Not rs.EOF
    AnwserA = rs(0)        <=== 値の取出し
    AnswerB = rs(1)
    rs.MoveNext
Loop

rs.Close
qy.Close

----
    〒105  港区芝大門2-5-5 住友芝大門ビル9F
    イントラネットシステム株式会社 ＩＴ部
    田川  勇治  (Email: yujit@intranet.co.jp)
    (TEL: 03-5403-2688(Ext.537)    FAX: 03-5403-0940)