例子:查询某个指定部门中员工的姓名
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 loop 12 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 /
结果: