发表于 2009-1-5 19:48
| 
Powerbuilder涓父鏍囩殑搴旂敤
鍙戝竷: 2008-6-26 20:45 | 浣滆: admin | 鏌ョ湅: 10娆
---- Powerbuilder浠ュ叾鐙壒鐨勪綋绯荤粨鏋勶紝浼樺紓鐨勬ц兘锛岃秺鏉ヨ秺鍙楀埌骞垮ぇ杞欢寮鍙戜汉鍛樼殑闈掔潗銆侾owerbuilder鎵鎻愪緵鐨勮澶氭妧鏈紝浣跨敤璧锋潵閮戒护浜哄緱蹇冨簲鎵嬶紝娓告爣锛圕ursors锛夋妧鏈紝渚挎槸鍏朵腑涔嬩竴銆傛父鏍囨槸涓涓笌T-SQL SELECT 璇彞鐩稿叧鐨勭鍙峰悕锛屽畠浣跨敤鎴峰彲閫愯璁块棶鐢盨QL Server杩斿洖鐨勭粨鏋滈泦銆傛父鏍囧厑璁哥▼搴忓鐢辨煡璇㈣鍙ELECT杩斿洖鐨勮闆嗗悎涓殑姣忎竴琛屾墽琛岀浉鍚屾垨涓嶅悓鐨勬搷浣滐紝鑰屼笉鏄鏁翠釜琛岄泦鍚堟墽琛屽悓涓涓搷浣滐紱鎻愪緵瀵瑰熀浜庢父鏍囦綅缃殑琛ㄤ腑鐨勮杩涜鍒犻櫎鍜屾洿鏂扮殑鑳藉姏銆
---- 涓銆佹父鏍囩殑鐢ㄦ硶锛
---- 浜屻佷笅闈互涓鍏蜂綋绀轰緥璇︾粏璁茶В娓告爣鐨勪娇鐢ㄦ妧鏈
---- 绀轰緥鐜涓猴細娆插皢宸ョ▼琛≒roject涓殑宸ョ▼鍚嶇Оname瀛楁涓庡垪琛ㄦ帶浠剁浉鎹嗙粦锛屼互瀹炵幇鐩稿叧鏁版嵁鐨勫姩鎬佸埛鏂般
---- 1锛 鍒涘缓涓鍚嶄负project鐨勬暟鎹〃锛
---- CREATE TABLE project ( id numeric(5), name varchar(50)) 锛
---- 鍏朵腑id涓洪」鐩紪鍙枫乶ame涓洪」鐩悕绉般
---- 2锛 鏂板缓涓绐楀彛 w_project锛屽湪绐楀彛鐢绘澘宸ヤ綔鍖哄鍔犱竴鍚嶄负ddlb_name鐨勪笅鎷夊紡鍒楄〃妗嗭紙DropDownListBox锛夛紝
---- 3锛庡湪w_project鐨刼pen浜嬩欢涓紪鍐欏涓嬩唬鐮侊細
int li_id
string ls_name
//娓告爣澹版槑
declare lcur_name cursor for
SELECT name
FROM project;
//娓告爣鎵撳紑
open lcur_name;
if sqlca.sqlcode < 0 then
MessageBox ("DataBase Error!",
sqlca.sqlerrtext, exclamation!)
return
end if
ddlb_name.SetRedraw(false)
do while sqlca.sqlcode = 0
//鎻愬彇
fetch lcur_name into 锛歭s_name锛
if sqlca.sqlcode = 0 then
//灏嗘彁鍙栫殑缁撴灉锛岄愯娣诲姞鍒颁笅鎷夊紡鍒楄〃妗
ddlb_name.AddItem (ls_name)
elseif sqlca.sqlcode < 0 then
MessageBox ("DataBase Error",
sqlca.sqlerrtext, exclamation!)
return
else
exit
end if
loop
ddlb_id.SetRedraw(true)
//鍏抽棴娓告爣
CLOSE lcur_name锛
//閲婃斁娓告爣
DEALLOCATE CURSOR lcur_name锛
---- 鐢辨鍙锛屾父鏍囦綔涓洪潰鍚戦泦鍚堢殑鏁版嵁搴撶鐞嗙郴缁燂紙RDBMS锛夊拰闈㈠悜琛岀殑绋嬪簭璁捐涔嬮棿鐨勬ˉ姊侊紝浣胯繖涓ょ澶勭悊鏂瑰紡閫氳繃瀹冩矡閫氳捣鏉ャ
銆
