PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
21870 05/04/13 17:15:25 RE(4):PB6.5: ドロップダウンリストの値 By ミュウ
21869 05/04/13 17:01:20 RE(3):PB6.5: ドロップダウンリストの値 By kmaru
21868 05/04/13 16:18:23 RE(2):PB6.5: ドロップダウンリストの値 By ミュウ
21867 05/04/13 15:31:26 RE(1):PB6.5: ドロップダウンリストの値 By kmaru
21866 05/04/13 13:31:29 PB6.5: ドロップダウンリストの値 By ミュウ

カテゴリ:スクリプトの記述
日付:2005年04月13日 17:15 発信者:ミュウ
題名:RE(4):PB6.5: ドロップダウンリストの値

kmaruさん、こんにちは。

>ミュウさん、こんにちは。

>データベースはORACLEを使用されていると勝手に想像して書いています。
>下記では、配列の変数に値を格納するところまで行います。

>根本的な疑問なのですが、retrieveするだけでは駄目だったので
>SQLを使おうとしていたんですよね。

>//カーソル宣言
>DECLARE C_INPUT CURSOR FOR
>  select kacd,kaname
>    from kamst
>   order by kacd;

>//カーソル実行
>OPEN C_INPUT;

>DO WHILE TRUE
>   ll_cnt += 1

>   //カーソル実行結果を取得
>   FETCH C_INPUT INTO :cd[ll_cnt],:name[ll_cnt];

>   CHOOSE CASE sqlca.sqlcode
>     CASE 0    //正常
>     CASE 100  //レコード無し
>        EXIT;
>     CASE ELSE //オラクルエラー
>        //カーソルを閉じる
>        CLOSE C_INPUT ;
>        ROLLBACK;
>        messagebox(\"\",\"error\")
>   END CHOOSE
>LOOP

>//カーソルを閉じる
>CLOSE C_INPUT;

今までVBをやっていたのですがどうも勝手が違いますね。
まだまだ勉強不足です。ここまで親切に教えていただいたのにまだ分からないところがちらほらあります。
あとは自分でがんばってみたいと思います。ありがとうございました


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS (記載なし)
DBMS (記載なし)
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.