Question

如何从表EMP中检索每个部门的员工列表到逗号分隔的新表中类似的东西：

[column x:ie deptno]  [column y:ie ename]
--------------------------
    7           Jesus, María, José
    5           Staz, Przemek, Tomek 
    6           John, Jane, Bob

下面的表是我想从函数concatenate_list编译

中得到我的结果的地方

CREATE TABLE Z
(
   x NUMBER(2)     NOT NULL,
   y VARCHAR2 (4000)     NOT NULL
);




SET SERVEROUTPUT ON

CREATE OR REPLACE FUNCTION concatenate_list (xy_cursor IN SYS_REFCURSOR)
  RETURN VARCHAR2
IS
  lret  VARCHAR2(30000);
  ltemp VARCHAR2(30000);
BEGIN
  LOOP
    FETCH xy_cursor
    INTO ltemp;
    EXIT WHEN xy_cursor%notfound;
    lret  := lret  || ',' || ltemp;
    END LOOP;
    RETURN LTRIM(lret, ',');
 END;
/
SHOW ERRORS

如何从“Function concatenate_lit compile”中插入结果并获得如上所述的结果。也许使用这样的东西：

INSERT INTO Z( x, y) SELECT e1.x,
   concatenate_list(CURSOR(SELECT e2.y FROM EMP e2 WHERE e2.x= e1.x));

但是如何在PL / SQL块中设置它

Answer 1

这可能会对你有帮助。

declare
type cur_name is ref cursor;
emp_name cur_name;
v_ename emp.ename%type;
v_all_ename varchar2(1000);
v_deptno emp.deptno%type; 
cursor c is select deptno,cursor(select ename from emp e where e.deptno=f.deptno) from emp f group by deptno;
begin
open c;
loop
fetch c into v_deptno,emp_name;
exit when c%notfound;
loop
fetch emp_name into v_ename;
exit when emp_name%notfound;
v_all_ename:=v_all_ename||v_ename;
v_all_ename:=v_all_ename||',';
end loop;
dbms_output.put_line(v_deptno||' '||v_all_ename); 
v_all_ename:='';
end loop;
close c;
end;

PL / SQL：Cursor ::检索每个部门的员工列表

1 个答案: