PBでのdropdownlistboxとデータベースバインディングの実装(カーソル使用)
516 ワード
PBでdropdownlistboxとデータベースバインディングを実現
説明:これはPB内のカーソルの高度なアプリケーションで、カーソルを定義することによってデータセットの1行のデータをループして読み出し、dropdownlistboxにデータadditem()を追加します.
string ls_temp
declare readdate dynamic cursor for sqlsa;
string ls_sql="select ROLENAME from T_ROLE"
prepare sqlsa from :ls_sql;
open dynamic readdate;
do while sqlca.sqlcode=0
fetch readdate into:ls_temp;
if sqlca.sqlcode=0 then
tab_1.tabpage_1.ddlb_1.additem(ls_temp)
end if
loop
tab_1.tabpage_1.ddlb_1.SelectItem(2)
close readdate;説明:これはPB内のカーソルの高度なアプリケーションで、カーソルを定義することによってデータセットの1行のデータをループして読み出し、dropdownlistboxにデータadditem()を追加します.