هل يمكن انشاء cursor واعمله fetch فى tabular

انا عملت

declare
cursor cur is select * from employees;
begin
open cur;
loop
exit when cur%notfound;
fetch cur into empno,ename,tel;
:block.text1 = empno;
:block.text2 = ename;
:block.text3 = tel;
end loop;
close cur;
end;

حيث text1,text2,text3 هى من نوع tabular
لكن الطريقة دى ما نفعتش
حد عنده اقتراحات؟؟

تم تعديل 19 يوليو 200619 سنة بواسطة ahmedmax

السلام عليكم
الكود بتاعك تمام بس ناقصة جملة بسيطة اوى
اخر سطر فى اللوب ضع
next_record
وهتمشى معاك بأذن الله

للاسف لم تعمل معى هذه الطريقة

الطريقة تعمل ولكن يظهر اخر record فقط
اريد ان تظهر جميع الrecords

يعطيكم العافية:
الحل حسب خبرتي هي وضع بعد close cursor جملة :
clear_form وذلك كي يجلب جميع الريكوردات

السلام عليكم
يمكنك تجربة الاتى
]eclare
cursor cur is select * from employees;
begin
Go_Block('BLOCK');
Frist_Record
For Rec In C Cur Loop
:block.text1 = Rec.empno;
:block.text2 = Rec.ename;
:block.text3 = Rec.tel;
Next_Record;
end loop;
Frist_Record;
end;

DECLARE
CURSOR GETEMP IS
 SELECT EMPNO,ENAME,JOB,HIREDATE,MGR,SAL,COMM
 FROM EMP
 where ename=n;
BEGIN
GO_BLOCK('EMP');
FIRST_RECORD;
OPEN GETEMP;
  LOOP 
FETCH GETEMP INTO :EMP.EMPNO,:EMP.ENAME,:JOB,:HIREDATE,:MGR,:SAL,:COMM;
EXIT WHEN GETEMP%NOTFOUND;
NEXT_RECORD;
END LOOP;
CLOSE GETEMP;
END;

thanks hobaa it works