🚀 go-pugleaf

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

私もＲＤＯは得意ではないので、もっと詳しい方いたら
フォローしてください。

Kazuhito Sakai wrote in message
<01bd406d$cab95b40$5ff384d2@sakai.so-net.or.jp>...
>ＶＢ ５ ＋ ＳＱＬ ＳＥＲＶＥＲ を使用して
>ＲＤＯでプログラムを開発しているのですが、
>
>ＳＱＬ ＳＥＲＶＥＲ の方で、 数列  値（結果）を帰す
>ストアドプロシジャーの呼び出しかた
>および
>ＶＢでの戻ってきた列の使用方法を教えてください。


RDO を使ったデータの取出しの基本は何か本を見た方がいい
と思いますが、私は人から教えてもらったので、どの本とは
いいきれません。

とりあえず、VB Magazine ３月号の P.92 - 93 あたりに
ちょろっと書いています。（これは Excel から呼ぶ例ですが
基本は同じだと思います。）


で、数値を取る方法ですが、
私の場合は以下のようにしました。
（おおまかな流れです。実際のコードは違います。）

    Dim n, i           as Integer
    Dim DblAry(10, 10) as Double
    Dim Rs             as rdoResultset
    Dim cl             as rdoColumn

    ' 途中略
    n = 0
    Do While Not Rs.EOF
        n = n + 1
        i = 0
        For Each cl In Rs.rdoColumns
            i = i + 1
            DblAry(n, i) = cl.Value    ' 値の取得
        Next cl
        rs.MoveNext
    Loop

こんな感じで数値を取ってきています。
----
    〒105  港区芝大門2-5-5 住友芝大門ビル9F
    イントラネットシステム株式会社 ＩＴ部
    田川  勇治  (Email: yujit@intranet.co.jp)
    (TEL: 03-5403-2688(Ext.537)    FAX: 03-5403-0940)