السلام عليكم


عندي TLIST ولمشكله هي انه عند وضع شرط الخروج متن LOOP يظهر عندي هذا ال ERROR

begin
   Y:=1;
   open c_get_daily_card;
   LOOP
   fetch c_get_daily_card into col1;
      IF c_get_daily_card%NOTFOUND THEN
      MESSAGE ('NOT FOUND');
          MESSAGE ('NOT FOUND');
          FLAG := 1;
        EXIT  WHEN c_get_daily_card%NOTFOUND OR FLAG =1;
          
      ELSE
       
      Y:=Y+1;
          EXIT WHEN c_get_daily_card%NOTFOUND;
        add_list_element('LIST_CARD',Y,col1,col1); 
        Text_IO.New_Line;
       EXIT WHEN c_get_daily_card%NOTFOUND;
       END IF;
      END LOOP;
     

للعلم ان البرنامج يعمل دون اي عطل ولكن مع ظهور هذه المشكله

اخي العزيز هذا الكود بعد التعديل والله أعلم
begin
Y:=1;
open c_get_daily_card;
LOOP
IF c_get_daily_card%NOTFOUND THEN
MESSAGE ('NOT FOUND');
MESSAGE ('NOT FOUND');
FLAG := 1;
EXIT;
END IF;
Y:=Y+1;
fetch c_get_daily_card into col1;
add_list_element('LIST_CARD',Y,col1,col1);
Text_IO.New_Line;
EXIT WHEN c_get_daily_card%NOTFOUND;
END LOOP;

وهذا هدية مني

declare
cursor c_tab select Col from your_table;
begin 
    select count(*) into x from your_table;
    for i in c_tab loop
 add_list_element('LIST',x,Col,Col); 
    end loop;
    if x <1 then
    message('Sorry No Record to Display');
    message('Sorry No Record to Display');
end;

اسف توجد بعض الأخطاء وهذا هو التعديل

declare
i number;
x number;
cursor c_tab select Col from your_table;
begin 
   select count(*) into x from your_table;
   for i in c_tab loop
add_list_element('LIST',x,i.Col,i.Col); 
   end loop;
   if x <1 then
   message('Sorry No Record to Display');
   message('Sorry No Record to Display');
end;

السلام عليكم

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

ولكن هذا الكود لا يحل المشكله

انا اريد ان اعرف ماذا يعني هذا ال error إي ما هي المشكله


و شكرا لك

ارجو كتابة نص الERROR

السلام عليكم


ارجو من الاخوه مساعدتي
عندي مشكله تظهر على النحو الاتي

frm-41332 list elemant indexout of range

أخي العزيز ..
عندي ملف توجد فيه حميع الاخطاء التي تظهر في الاوراكل وهو مرفق في الاسفل وهذا الخطا مكتوب عنه مايلي:

FRM-41332: List element index out of range.

Cause:Not enough memory.

Action:Contact your DBA.

Level:99

Type:Error


الملف مرفق ...

جربت ارفاق الملف ..

جربت ارفاق الملف ولم أفلح ..
راسلني على ايميلي لاتمكن من بعثه لك ...

[email protected]