Oracle 游标练习

游标循环练习：

declare v_dname dept.dname%type;

cursor cur_my is
     select dname from dept;
v_name varchar2(100);
begin
open cur_my;
fetch cur_my into v_dname;
while cur_my%found
loop
dbms_output.put_line('部门 '||v_dname||'的人员有：');
select wm_concat(ename) into v_name from emp,dept 
where emp.deptno=dept.deptno and dept.dname=v_dname;
dbms_output.put_line(nvl(v_name,'暂无人员'));
fetch cur_my into v_dname;
end loop;
end;
/
部门 ACCOUNTING的人员有：
CLARK,ff,MILLER
部门 RESEARCH的人员有：
JONES,FORD,ADAMS,SMITH,SCOTT
部门 SALES的人员有：
WARD,TURNER,ALLEN,JAMES,BLAKE,MARTIN
部门 OPERATIONS的人员有：
暂无人员


PL/SQL 过程已成功完成。