PROCEDURE LISTTABLE IS
/*
هذا البروسيجر يقو باخذ محتويات الجدول ويقو بعرضها  داخل كومبو بوكس
*/

 rg_dname varchar2(40) := 'divn_rec';
 status number;
 groupidd recordgroup;

BEGIN
 

  groupidd := create_group_from_query(rg_dname,
     'select EMPNO,Ename from EMP 
     order by empno');
 status := populate_group(groupidd);
 populate_list('BLOCK_1.Empno',groupidd);

END;

شكرا يا اخى وجزاك الله خيرا

مشكور اخي جزاك الله خيرا
hanon_ocp

شكرا أخى
واكن هناك طريقه اخرى مبنية على نفس المنطق و هى عمل Recored Group و العرض منة بمثل الكود السابق ماعدا جملة الـ Select

declare
v_group number;
begin
 v_group := populate_group('rexcord group name');
 populate_list('combo box name','rexcord group name');
end;

تم تعديل 15 فبراير 200422 سنة بواسطة عمر باعقيل

مشكور أخ حسين
الكود جميل ومفيد

مشكور

شكرا اخي حسين على البروسيدر الرائع
وانا لدي مقترح صغير اتمنى ان لا يزعجك وهو
حتى يكون الـ Procedure عام اي يستخدم مع اي كمبوبوكس واي Query افضل ان تقوم بإضافة
Tow parameters للـ Procedure
الاول لاستقبال السم الكمبوبكس
والثاني لادخال الQuery الذي نريد ان نضعه في الكمبوبكس كالاتي

Procedure (p_listname varchar2 , Query_text Varchar2)

وبهذه الطريقه نستطيع استخدام البروسيدير في اي فورم مع اي كمبو
وشكرا

كل مشاركات مفيدة جدا أخ خالد
لا أعرف كيف أصف مجهودك فى المنتدى

مجهود تشكرون عليه ولكن هناك شي مفيد ياليت لو كان الشرح موضح بمثال يرفع على الموقع اي شاشة معمولة وعليها الشرح
ولكم اطيب التمنيات بالتوفيق

يعطيك ألف عافيه

أفكار متميزة و ذهبية.بارك الله فيكم جميعاً.

أخوكم:

سامر حداد

بارك الله فيكم يا جماعة على هذا المجهود الطيب..وعلى المعلومات المفيدة التي نتعلمها منكم

والى الأمام دوماً........

هذه طريقة اخرى لتعبئة ال list بدون record group عن طريق cursor.

declare

cursor emp_name is select ename from emp
begin
for myrec in emp_name loop
add_list_element('list1',1000,myrec.ename,myrec.ename);
end loop;
end;

للتعديل على مشاركة الاخ fadi1948

declare

cursor emp_name is select ename,empno from emp order by 2;
index number:=1;
begin
for myrec in emp_name loop
add_list_element('list1',index,myrec.ename,myrec.empno);
index:=index+1;
end loop;
end;

note :the syntax of list item is : add_list_element('name of list',index,label,value)

شكرا على التعديل اخ m_dba وجزاك الله خيرا...............

جزاكم الله خيرا ياشباب معلومات مفيده جدا

مشكور أخوي حسين على الطريقة الرائعة

يعطيك الف عافية

جزاكم الله خيرا جميعا

Thanks alot

.