创建游标.存储过程及包

创建游标.存储过程及包
/*********************************游标********************************/
/*单向游标:
  declare cursor  游标名  is select 语句
  带参游标:
  declare cursor  游标名  (参数1 类型,.....)is select 语句(可以带参数)
  游标属性:
          %found     ---是否找到
          %isopen    ---是否打开
          %notfound  ---找不到游标
          %rowcount  ---判断游标是否有结果
  游标循环:
          FOR 变量 IN 游标名 LOOP
          语句
          END LOOP
/************例子**************/
declare
       cursor cur_emp is select * from emp;
       e emp%rowtype;
       begin
       open cur_emp;
       fetch cur_emp into e;
       while cur_emp%found
       loop
           dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job);
           fetch cur_emp into e;
       end loop;
       close cur_emp;
       end;
PL/SQL 过程已成功完成。
 
/*******不需定义和关闭游标****************/

SQL> begin
  2       for e in(select * from emp)
  3       loop
  4         dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job);
  5       end loop;
  6  end;
  7  /
 
PL/SQL 过程已成功完成。
 
/*************************************存储过程******************************/
/*过程(procedure)
     create or replace procedure
     (参数1  in/out/in out  类型,
      参数2  in/out/in out  类型,
       ..........)
       is/as
       pl/sql语句块
/************例子**************/
  1  create or replace procedure proc_emp
  2  ( j in varchar2,
  3    c  out integer)
  4  as
  5    counter integer:=0;
  6  begin
  7  for e in (select *from emp where job=j)
  8  loop
  9  dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job);
 10  counter:=(counter+1);
 11  end loop;
 12  c:=counter;
 13* end;
 14  /
 
过程已创建。
/********调用************/
exec 过程([参数])
 
/**********************************函数***************************/
/*函数(FOUCTION)
       create or replace function 名
          return 类型   is/as
          pl/sql语句块
/***********例子************/
  1  create or replace function fun_emp
  2     ( j in varchar2)
  3       return integer
  4        as
  5       counter integer:=0;
  6    begin
  7    for e in (select *from emp where job=j)
  8   loop
  9    dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job);
 10   counter:=(counter+1);
 11    end loop;
 12    return counter;
 13* end;
SQL> /
 
函数已创建。
执行:exec 函数([参数])
 
/************************************创建包**********************/
/*包头:
 create or replace package 名
    is/as
    定义部分
    end
  包体:
 create or replace package body 名
        is/as
        代码部分
        end
/*********例子*********************/
--..........建包头................
create or replace package pag_wlxt as
procedure proc_ruku(code  varchar2);              -- 入库单号
end;
 
--.........建包体.................
 
create or replace package body pag_wlxt as
procedure proc_ruku(code  varchar2) is
num integer :=0;
counter integer :=0;
shbz wltrkgl0.rkshbz%type;
rkcb wltrkgl0%rowtype;
kcb wltkcgl0%rowtype;
 
posted @ 2009-04-28 23:44  温景良(Jason)  Views(2386)  Comments(0Edit  收藏  举报