بسم الله الرحمن الرحيم

لقد استخدمت الكيرسر في الاستعلام لارجاع اكثر من صف كمان الامور تسير على ما يرام ...و لكن عند استخدام الفورمز و عند تنفيذ الكيرسر لا تظهر الا اخر صف من الصفوف المسترجعة مع اني استخدم عداد لاجل معرفة عدد الصفوف المسترجة و يظهر العداد انه يوجد اكثر من صف لذا افيدوني كيف اظهار جميع الصفوف ...سوف افق الكود المستخدم :

OPEN CMP_ORDER;

LOOP
FETCH CMP_ORDER INTO V_ORDER_ID,
V_NUMBERS_ORDER,
V_NATIONAL_ID,
V_CAREER_ID,
V_EXPERIENCE_ID,
V_CMP_ID;

:BNJ_CMP_ORDER.ORDER_ID := V_ORDER_ID;
:BNJ_CMP_ORDER.NUMBERS_ORDER := V_NUMBERS_ORDER;
:BNJ_CMP_ORDER.NATIONAL_ID := V_NATIONAL_ID;
:BNJ_CMP_ORDER.CAREER_ID := V_CAREER_ID;
:BNJ_CMP_ORDER.EXPERIENCE_ID := V_EXPERIENCE_ID;
:BNJ_CMP_ORDER.CMP_ID := V_CMP_ID;

Exit when CMP_ORDER%notfound;

END LOOP;

CLOSE CMP_ORDER;

EXECUTE QUERY;

سلام اخوي جرب هذي

OPEN CMP_ORDER;

LOOP
FETCH CMP_ORDER INTO V_ORDER_ID,
V_NUMBERS_ORDER,
V_NATIONAL_ID,
V_CAREER_ID,
V_EXPERIENCE_ID,
V_CMP_ID;

:BNJ_CMP_ORDER.ORDER_ID := V_ORDER_ID; 
:BNJ_CMP_ORDER.NUMBERS_ORDER := V_NUMBERS_ORDER; 
:BNJ_CMP_ORDER.NATIONAL_ID := V_NATIONAL_ID; 
:BNJ_CMP_ORDER.CAREER_ID := V_CAREER_ID; 
:BNJ_CMP_ORDER.EXPERIENCE_ID := V_EXPERIENCE_ID; 
:BNJ_CMP_ORDER.CMP_ID := V_CMP_ID; 

next_record; ---هذا اللي كان ناقص

Exit when CMP_ORDER%notfound;

END LOOP;

عندما وضعت امر NEXT_RECORD
ظهرت رسالة خطاء مع ظهور البيانات عند كل رسالة و في النهاية لا يظهر الا السجل الاخير لا يمكنني مشاهدة السجلات السابقة فما العمل افيدوني

كما أن رقم الرسالة
FRM-41009

FRM-41009: Function key not allowed. Press %s for list of valid keys.

Cause:You pressed a function key that is not allowed in this environment. 

Action:Press [show Keys] to determine which function key you should have pressed. 

Level:>25 

Type:Error 

لماذا تستخدم امر execute_query مع امر استرجاع البيانات من الكيرسير

هل هذا البلوك مرتبط بجدول ؟؟

ارجوا الايضاح مع كتابة امر ال cursor

هذا الكود شغال معي 100%

حاول تقيس عليه وتعدل الكود الخاص ببرنامجك

DECLARE

CURSOR book_detail_search IS 
SELECT seq, book_ed, cover_type, book_loc, pub_date, sale_price
FROM book_detail
WHERE isn = REC_book.ISN
AND seq in (select seq from branch_book 
where branch = TO_NUMBER(:blk_control.branch) 
AND seq in (select seq from book_detail where isn =REC_book.ISN))
ORDER BY seq;

rec_book_detail book_detail_search%rowtype;

BEGIN	
OPEN book_detail_search;
LOOP
 FETCH book_detail_search INTO  rec_book_detail;
 EXIT WHEN book_detail_search %NOTFOUND;
 :book.isn := rec_book.isn;
 :book.code_no := rec_book.code_no;
 :book.book_title:= rec_book.book_title;
 :book.book_author := rec_book.book_author;
 
 SELECT code_name INTO :book.pub_name FROM code_class 
 WHERE code_no = rec_book.pub_name;
 
 SELECT code_name INTO :book.pub_place FROM code_class    	WHERE code_no = rec_book.pub_place;    
 	
 :book.seq := rec_book_detail.seq;
 :book.book_ed := rec_book_detail.book_ed;

 IF rec_book_detail.cover_type = 1 THEN
 	:book.cover_type:= 'ÛáÇÝ ãÞæì';
 ELSIF rec_book_detail.cover_type = 0 THEN
       	:book.cover_type:= 'ÛáÇÝ æÑÞí';  	
       END IF;
 :book.book_loc := rec_book_detail.book_loc;
 :book.pub_date := rec_book_detail.pub_date;
 :book.sale_price := rec_book_detail.sale_price;   
 SELECT qty INTO :book.qty FROM branch_book 
 WHERE branch = TO_NUMBER(:blk_control.branch) 
 AND seq = :book.seq;
 NEXT_RECORD;
END LOOP;
CLOSE book_detail_search;
 END;

جرب هذا الكود نفس الكود تبعك بس مع تعديل مكان

Exit when CMP_ORDER%notfound;

OPEN CMP_ORDER;

LOOP
FETCH CMP_ORDER INTO V_ORDER_ID,
V_NUMBERS_ORDER,
V_NATIONAL_ID,
V_CAREER_ID,
V_EXPERIENCE_ID,
V_CMP_ID;

Exit when CMP_ORDER%notfound;

:BNJ_CMP_ORDER.ORDER_ID := V_ORDER_ID; 
:BNJ_CMP_ORDER.NUMBERS_ORDER := V_NUMBERS_ORDER; 
:BNJ_CMP_ORDER.NATIONAL_ID := V_NATIONAL_ID; 
:BNJ_CMP_ORDER.CAREER_ID := V_CAREER_ID; 
:BNJ_CMP_ORDER.EXPERIENCE_ID := V_EXPERIENCE_ID; 
:BNJ_CMP_ORDER.CMP_ID := V_CMP_ID; 

next_record; ---هذا اللي كان ناقص

END LOOP;