例子：查询某个指定部门中员工的姓名

1 --查询某个部门中员工的姓名 2 set SERVEROUTPUT ON 3 declare 4     --定义带参数的光标 5     cursor cemp(dno number) is select ename from emp where deptno=dno; 6     pename emp.ename%type; 7 begin 8     --打开光标 9     open cemp(10);10         11     loop12     13     --取出每个员工的姓名14     fetch cemp into pename;15     exit when cemp%notfound;16     17     --打印该部门下所有员工的姓名18     dbms_output.put_line(pename);19     20     end loop;21 22     --关闭光标23     close cemp;24 end;25 /

 

结果：