第一个问题:
create or replace function get_roles(user_id in number ) return varchar2
is
v_name  varchar2(2000);
TYPE type_cursorsss IS REF CURSOR;
cur_recwe type_cursorsss;
BEGIN
  OPEN cur_recwe FOR select username from adm_user; -- 使用open for 的形式打开游标
  
  -- 为什么不能使用这种 for in loop 的形式进行循环
  -- 提示错误 ‘CUR_RECWE’ is not a procedure or is undefined
  for v_name in cur_recwe loop  dbms_output.put_line(v_name);
  end loop;  RETURN '';  -- 返回一个空的,故意的
end get_roles;
create or replace function get_roles(user_id in number ) return varchar2
is
v_name  varchar2(2000);
TYPE type_cursorsss IS REF CURSOR;
cur_recwe type_cursorsss;
BEGIN
  OPEN cur_recwe FOR select username from adm_user; -- 使用open for 的形式打开游标
  
  -- 是不是只能使用这种 loop fetch 的形式进行循环
  -- 这样没有编译报错的情况
  loop
    fetch cur_recwe into v_name ;
    dbms_output.put_line(v_name);
  end loop;  RETURN '';  -- 返回一个空的,故意的
end get_roles;第二个问题:
create or replace function get_roles(user_id in number ) return varchar2
iscursor cur_rec is ( select r.name from adm_user where id = user_id) ;
-- 这样直接使用传进来的参数不行,会查询 adm_user 表中的所有记录
-- user_id 根本就没有起到作用BEGIN
  FOR cur_sin IN cur_rec LOOP
    l_text := l_text || ';' || cur_sin.name;
    dbms_output.put_line(l_text);
  END LOOP;
  RETURN ''; -- 故意返回一个空
end get_roles;-- 使用下面的方法才有效,不知道为什么
create or replace function get_roles(user_id in number ) return varchar2
is
v_userid number := user_id;  -- 先声明一个变量,并把参数赋给他 
cursor cur_rec is ( select r.name from adm_user where id = v_userid) ; -- 在这儿使用 v_userid 刚才声明的变更
 BEGIN
  FOR cur_sin IN cur_rec LOOP
    l_text := l_text || ';' || cur_sin.name;
    dbms_output.put_line(l_text);
  END LOOP;
  RETURN ''; -- 故意返回一个空
end get_roles;

解决方案 »

  1.   

    第一个问题 可以参照 http://topic.csdn.net/u/20110407/14/03402905-8057-4794-94fe-3e5fb7871f73.html 里面的回答应该可以满足第二个问题 同求
      

  2.   


    --第一种情况你可以这么写:
    create or replace function get_roles
           (user_id in number ) 
           return varchar2
    is
      v_name  varchar2(2000);
      cursor cur_recwe is
             select username from adm_user;
    BEGIN
      for v_name in cur_recwe 
      loop
          dbms_output.put_line(v_name);
      end loop;
      
      RETURN '';
    end get_roles;
      

  3.   

    参考http://www.techonthenet.com/oracle/loops/cursor_for.php
      

  4.   

    视图打开一个已经打开的游标会报错:
    ORA - 06511 :CURSOR_ALREADY_OPEN 
      

  5.   

    第一个问题的总结:
        引用:for cursor隐含了open cursor,但是因为result是一个已经打开的cursor,所以没法使用for cursor的语法。
    只能使用
      loop
      fetch into
      exit when cursorname%notfound
      end loop 
      

  6.   

    为什么不能使用这种 for in loop 的形式进行循环
    --你的这个应该是可以用for的吧
    create or replace function get_roles(user_id in number ) return varchar2
    is
    BEGIN
      FOR  v_name in  (select username from adm_user) 
      loop 
       dbms_output.put_line(v_name);
      end loop;  RETURN '';  -- 返回一个空的,故意的
    end get_roles;
    --游标是要先提取的 for会自动提取关闭游标 ,所以不是用for的话要先fetch的
      

  7.   

    第二个问题总结:
     请教了公司里的专业级DBA
     原因:参数user_id 和列名相同了,所以导致这种问题产生