RE: [indopb] Generate Menu dari table

[Ruby Zanuar Zacharias]

Dear Andi, Masukkan dulu hasil selectnya ke datawindow ( kalau dalam script harus memakai datastore ), terus di retrieve. Setelah dapat hasil countnya baru dibaca satu-satu pakai for next contohnya :   long  ll_row, ll_count datastore ld_menu   ld_menu = create ld_menu ld_menu.dataobject = "nama_datawindow_yang_ada_select_menunya" ld_menu.SetTransObject(sqlca) ll_row = ld_menu.retrieve()   String data, i_menu, menu[50] integer i, j   if ll_row is not null or ll_row > 0 then    for ll_count = 1 to ll_row         // ambil data menunya dari ld_menu         data = "" "n_menu")         //masukkan script kamu disini, tanpa i = i + 1, karena sudah otomatis nilai i ditambah         // dan sebenarnya 2 script  for next bisa digabung jadi satu, jadi tidak wasting time    next end if ld_menu.destroy() From: indopb@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of Andi Eko Prasetyo Sent: Wednesday, September 20, 2006 8:43 AM To: indopb@yahoogroups.com Subject: [indopb] Generate Menu dari table Dear All, saya mohon pencerahan untuk generate menu dari table dg sql script. dibawah ini, saya ingin mendapatkan nilai i_menu dalam array yang saya masukan dibawah ini, tapi masih blm dpt juga, mohon koreksi nya dimana letak kesalahan nya. //**** Start Script String data, i_menu, menu[50] Integer i,j SELECT DISTINCT n_menu into :i_menu FROM "KS"."T_USRMNT" WHERE id_user =:ls_login_user USING SQLCA; data='' j=0; FOR i = 1 to LEN(i_menu) IF mid(i_menu,i,1) <> ',' THEN data="">i_menu,i,1) //menu[j]=data //MESSAGEBOX("INFO",MENU[J]) END IF IF TRIM(mid(i_menu,i,1)) = TRIM(',') THEN data='' i=i+1 j=j+1 MessageBox('Info',',') END IF i=i+1 NEXT FOR i = 1 to j IF menu[i]='1' THEN m_main_menu.m_administrator.enabled=TRUE END IF IF menu[i]='2' THEN m_main_menu.m_master.enabled=TRUE END IF IF menu[i]='3' THEN m_main_menu.m_utility.enabled=TRUE END IF i=i+1 NEXT //**** End of script Thx a lot atas pencerahan dan bantuan nya. -- Tks & Best regards, Andi EP IT Engineer mailto:[EMAIL PROTECTED]com __._,_.___ ----------------------------------------------- IndoPB - Indonesia PB User Group An Indonesian PowerBuilder User Group's Event 2nd PowerBuilder Update Rumah Sakit Jantung Harapan Kita 26/27 August 2006 To Register : http://groups.yahoo.com/group/indopb/database?method=addRecord&tbl=4 SPONSORED LINKS Computer software program Computer software spy Discount computer software Computer software for kid Software developer Your email settings: Individual Email|Traditional Change settings via the Web (Yahoo! ID required) Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe __,_._,___ CAUTIONARY NOTE: This communication is confidential and privileged and may not be read, copied or disclosed or used by any person other than the stated addressee. Any unauthorized use, copying or disclosure is strictly prohibited and may be unlawful. If you have received this email in error or by mistake, please notify us immediately and delete it from your system. Any confidentiality and privilege of this email is not waived because the email has been sent to you due to such error or mistake.