السلام عليكم ورحمة الله وبركاتة
أخواني الاعزاء
تحياتي
لدي مشكلة في الكرسور داخل الفورم
اولاّ يرجع لي نتيجة واحدة فقط
وثانياّ رسائل حطاء
وأيكم الكود


Declare

cursor c is select empno,ename,job,mgr,hiredate,sal,comm,deptno from emp where empno between :control.from_cod and :control.to_cod ;


v_empno emp.empno%type;
v_ename emp.ename%type;
v_job emp.job%type;
v_mgr emp.mgr%type;
v_hiredate emp.hiredate%type;
v_sal emp.sal%type;
v_comm emp.comm%type;
v_deptno emp.deptno%type;

begin
open c;
loop
fetch c into v_empno,v_ename,v_job,v_mgr,v_hiredate,v_sal,v_comm,v_deptno;

:emp.empno:=v_empno;
:emp.ename:=v_ename;
:emp.job:=v_job;
:emp.mgr:=v_mgr;
:emp.hiredate:=v_hiredate;
:emp.sal:=v_sal;
:emp.comm:=v_comm;
:emp.deptno:=v_deptno;
next_record;
exit when c%notfound;
end loop;


close c;
exception
when no_data_found then
message('no data');
go_item(':control.con');

end;

أرجوا الاهمية ربنا يبارك في المنتدي

وضع جملة next_record; فى مكان غير صحيح
فيكون شكل الكود كما يلى :-

Declare

cursor c is select empno,ename,job,mgr,hiredate,sal,comm,deptno from emp where empno between :control.from_cod and :control.to_cod;


v_empno emp.empno%type;
v_ename emp.ename%type;
v_job emp.job%type;
v_mgr emp.mgr%type;
v_hiredate emp.hiredate%type;
v_sal emp.sal%type;
v_comm emp.comm%type;
v_deptno emp.deptno%type;

begin
open c;
loop
fetch c into v_empno,v_ename,v_job,v_mgr,v_hiredate,v_sal,v_comm,v_deptno;

:emp.empno:=v_empno;
:emp.ename:=v_ename;
:emp.job:=v_job;
:emp.mgr:=v_mgr;
:emp.hiredate:=v_hiredate;
:emp.sal:=v_sal;
:emp.comm:=v_comm;
:emp.deptno:=v_deptno;
exit when c%notfound;
end loop;
next_record;
close c;
exception
when no_data_found then
message('no data');
go_item(':control.con');
end;

ايهاب وجدى