Oracle实践之游标的使用(8)

Oracle的游标实例：

infomanager.sysfunction表结构：

功能编号    CHAR(8)           
功能名称    VARCHAR2(30)           
上级功能编号    CHAR(8)           
标志    CHAR(1)           

查询（select * from infomanager.sysfunction）


1    1           系统功能    0           0


2    2           客户中心    1           0


3    3           潜在客户    2           0


4    4           现在客户    2           1


5    5           历史客户    2           1


6    6           报表中心    1           1


7    7           总公司报表    6           1


8    8           中化工报表    7           1


9    9           基本情况表    8           1


10    10          主要经济    8           1


11    11          办公中心    1           1


12    12          公文流转    11          1


13    13          日程管理    11          1


14    14          功能分配    1           1


15    15          查询    3           1


16    16          修改    3           1


17    17          删除    3           1

 游标代码：


Declare




sys_func varchar2(20);


func_name varchar2(20);




CURSOR mycur(vartype char) is


select 功能编号,功能名称 from infomanager.sysfunction


where 标志 = vartype;




begin




if mycur%isopen = false then




open mycur(1);




end if;




fetch mycur into sys_func,func_name;




while mycur%found 




  loop


  


  dbms_output.put_line(sys_func||','||func_name);


  


    if mycur%rowcount=5 then


    


    exit;


    


    end if;


  


  fetch mycur into sys_func,func_name;




  end loop;




close mycur;




end;

输出：


4       ,现在客户


5       ,历史客户


6       ,报表中心


7       ,总公司报表


8       ,中化工报表



参考文献：http://www.souzz.net/html/database/ORACLE/4803.html http://www.cnblogs.com/reonlyrun/archive/2007/03/09/669164.html是Oracle PL/SQL不错的总结。