declare
cursor c is select * from emp1 where hiredate between :h1 and :h2 order by hiredate;
A EMP1.EMPNO%TYPE;
B EMP1.JOB%TYPE;
S EMP1.HIREDATE%TYPE;
Z EMP1.COMM%TYPE;
R EMP1.GENDER%TYPE;
O EMP1.ENAME%TYPE;
P EMP1.MGR%TYPE;
U EMP1.SAL%TYPE;
V EMP1.DEPTNO%TYPE;
begin
open c;
loop
fetch c into A,B,S,Z,R,O,P,U,V;
exit when c%notfound;
:EMPNO:=A;
:JOB:=B;
:HIREDATE:=S;
:COMM:=Z;
:GENDER:=R;
:ENAME:=O;
:MGR:=P;
:SAL:=U;
:DEPTNO:=V;
execute_query;
end loop;
end;
حيث ان H1 AND H2 TEXT ITEM (DATE DATA TYPE)
,وليسو داتا بيز ايتم

cursor c is select * from emp1 where hiredate between :h1 and :h2 order by hiredate;
A EMP1.EMPNO%TYPE;
B EMP1.JOB%TYPE;
S EMP1.HIREDATE%TYPE;
Z EMP1.COMM%TYPE;
R EMP1.GENDER%TYPE;
O EMP1.ENAME%TYPE;
P EMP1.MGR%TYPE;
U EMP1.SAL%TYPE;
V EMP1.DEPTNO%TYPE;
begin
open c;
loop
fetch c into A,B,S,Z,R,O,P,U,V;
exit when c%notfound;
:EMPNO:=A;
:JOB:=B;
:HIREDATE:=S;
:COMM:=Z;
:GENDER:=R;
:ENAME:=O;
:MGR:=P;
:SAL:=U;
:DEPTNO:=V;
execute_query;
end loop;
end;

لو مشكله الكود بتاعك انه بيجيب الداتا بتاعه اخر ريكورد بس يبئي لازم تزود سطر بعد

:EMPNO:=A;
:JOB:=B;
:HIREDATE:=S;
:COMM:=Z;
:GENDER:=R;
:ENAME:=O;
:MGR:=P;
:SAL:=U;
:DEPTNO:=V;

وتكتب

Down;

لو مش هي دي مشكلتك يا ريت تقولي ايه اللي بيحصل بالظبط وايه هي الرساله اللي بتطلعلك

جزاك الله خيرا اخى سارسل الفورمة لك على الميل