oracle 存储过程 包 【转】

一、为什么要用存储过程？

如果在应用程序中经常需要执行特定的操作，可以基于这些操作简历一个特定的过程。通过使用过程可以简化客户端程序的开发和维护，而且还能提高客户端程序的运行性能。

二、过程的优点？

1、预编译：存储过程预先编译好放在数据库内，减少编译语句所花的时间。

2、缓存：预编译的存储过程会进入缓存，所以对于经常执行的存储过程，除了第一次执行外，其它次数的执行速度会明显提高。

3、减少网络传输：特别是对于一些处理数据的存储过程，不必像直接使用SQL语句那样多次传送数据到客户端。

4 、可维护性高：更新存储过程通常要比更改、测试和部署应用程序需要的时间和精力要少。

5、代码的重用：一个可以重用的存储过程可以应用到应用程序的多个位置。

6、增强安全性：通过对用户授权对存储过程的访问权限，它们可以提供对特定数据的访问；提高数据安全性，来防止SQL注入。

三、缺点：

1、如果需要对存储过程的输入输出参数做更改的话，还要更改程序。

2、可移植性差：因为存储过程将应用程序的业务处理绑定到数据库中，以此使用存储过程来处理业务逻辑限制了应用程序的可移植性。

四、创建存储过程

--1、简单的存储过程
create or replace procedure procedure_test
(p_id in varchar,p_status out varchar)  --p_id为输入参数 ,p_status为输出参数
as
 t_name varchar2(20);
 t_count number:=0;
begin
 select votetitle,vatesum into t_name,t_count from votemaster where id=p_id; --注意：此处没有：来赋值
 if t_count <=0 then
     p_status:= t_name||':差';
 elsif t_count >0 and t_count <3 then
     p_status:= t_name||':良好';
 else
     p_status:= t_name||':优秀';
 end if;
end;
--执行
declare 
 out_param varchar2(50);
begin 
 procedure_test('1',out_param);
  dbms_output.put_line(out_param);
end;

--2、带游标的存储过程
create or replace procedure procedure_cursor_test
(p_id in varchar2,p_status out varchar2)
as
  vote votemaster%rowtype; --声明一个对象(votemaster)类型的对象
  cursor my_cur is select * from votemaster; --声明一个游标并填充数据
begin
  open my_cur; --打开游标
       loop
          fetch my_cur into vote ; --循环游标，并放入对象
          exit when my_cur%notfound; --如果没有数据，则直接exit
          if vote.id=p_id then
             p_status := vote.votetitle||'：'||vote.vatesum;
             --如果想终止循环，可以直接exit;
          end if;
       end loop;
  close my_cur; --关闭游标
end;
--执行
declare 
 out_param varchar2(50);
begin 
  procedure_cursor_test('1',out_param);
  dbms_output.put_line(out_param);
end;

 五、程序包

1、程序包：包是一组相关过程、函数、变量、游标、常量等PL/SQL程序设计元素的组合。它具有面向对象程序设计语言的特点，是对这些PL/SQL程序设计元素的封装。包类似于C++或Java程序中的类，而变量相当于类中的成员变量，过程和函数相当于方法，把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。与类相同，包中的程序元素也分为公用元素和私有元素两种，这两种元素的区别是他们允许访问的程序范围不同，即他们的作用域不同。公用元素不仅可以被包中的函数、过程调用，也可以被包外的PL/SQl块调用。而私有元素只能被该包内部的函数或过程调用。

2、使用程序包的优点：在PL/SQL设计中，使用包不仅可以使程序模块化，对外隐藏包内所使用的信息，而写程序包可以提高程序的运行效率。因为，当程序首次调用程序包内部的函数或过程时，Oracle将整个程序包调入内存，当再次调用程序包中的元素时，Oracle直接从内存中读取，而不需要进行磁盘的IO操作，从而使程序的执行效率提高。

3、一个程序包分为两部分组成：

(1)、包定义：包定义部分声明包内数据类型、变量、常量、游标、子程序和函数等元素，这些元素为包的共有元素。

(2)、包主体：包主题则定义了包定义部分的具体实现，在包主体中还可以声明和实现私有元素。

--包定义
create or replace package t_package
is
  --定义过程
  procedure append_proc(t varchar2,a out varchar2);
  --过程的重载
  procedure append_proc(t number,a out varchar2);
  --定义函数
  function append_fun(t varchar2) return varchar2;
  
end;

--包主题
create or replace package body t_package
is
  v_t varchar2(30);
  --私有成员函数
  function private_fun(t varchar2) return varchar2 is
  begin
     v_t := t||'hello';
     return v_t;
  end;
  --实现过程
  procedure append_proc(t varchar2,a out varchar2) is
  begin
   a := t||'hello'; 
  end;
  --过程的重载
  procedure append_proc(t number,a out varchar2) is 
  begin 
    a := t||'hello'; 
  end;
  --实现函数
  function append_fun(t varchar2) 
  return varchar2 is
  begin
     v_t := t||'hello';
     return v_t;
  end;
end;

http://zxf-noimp.iteye.com/blog/1145442

CREATE OR REPLACE PROCEDURE testp(p_value IN VARCHAR2)
       IS
    TYPE ref_cursor_type IS REF CURSOR; --定义一个动态游标
    users ref_cursor_type;   --定义游标类型
    user Users%ROWTYPE; --定义变量类型
    vSql VARCHAR2(255);
BEGIN
  vSql := 'select * from Users'; --要查询的sql字符串，可拼接起来
  OPEN users FOR vSql;  --打开游标
  LOOP
    FETCH users INTO users; --循环遍历users列表给user，user为临时对象
    exit when bills%notfound;
    -- user相当于表对象可以直接拿来用
    --比如要打印user对象里面的name
    dbms_outpt.put_line(user.name);
  end loop;
  CLOSE bills;
END;

CREATE OR REPLACE PROCEDURE PRODUCT_TEMP_UPDATE_PRC AS  --第1行表示创建存储过程，名称为PRODUCT_TEMP_UPDATE_PRC 。
  PC_DELESTR   VARCHAR2(50); --删除临时表记录语句            第2~7行表示声明变量。
  PC_CREATESTR VARCHAR2(500); --创建临时表
  TABEXT       VARCHAR2(10); --用于判断临时表是否存在中间变量

  CUR_CTGY   PRODUCTINFO.CATEGORY%TYPE;
  CUR_PRTIFO PRODUCTINFO%ROWTYPE;
                                                        --第9~11行表示创建游标cur_category;
  CURSOR CUR_CATEGORY --产品表中的  产品类型  游标
  IS
    SELECT CATEGORY FROM PRODUCTINFO GROUP BY CATEGORY;
 --第13~19行表示创建游标CUR_PROINFO；该游标带有参数，其参数代表产品类型的编码。游标根据产品的类型不同，获取产品类型中价格最低的数据。
  CURSOR CUR_PROINFO(CTGY VARCHAR) IS
    SELECT *
      FROM (SELECT *
              FROM PRODUCTINFO
             WHERE CATEGORY = CTGY
             ORDER BY PRODUCTPRICE ASC)
     WHERE ROWNUM < 2;

BEGIN
  SELECT COUNT(1)--第22~25表示判断临时表productinfo_tmp是否存在。此处利用select into语句把结果放到变量tabext中，如果该表存在结果为1，否则为0.tabext变量将在第37行使用。
    INTO TABEXT
    FROM ALL_TABLES
   WHERE TABLE_NAME = 'productinfo_tmp';

  PC_DELESTR   := 'delete from productinfo_tmp';
  PC_CREATESTR := 'create global temporary table productinfo_tmp
  (productid varchar2(10) not null,
  productname varchar2 (20),
  productprice number(8,2),
  quantity number(10),
  category varchar2(10),
  desperaction varchar2(1000),
  origin varchar2(10))on commit preserve rows';
--第37~44行完成分析步骤中的第一步：创建临时表productinfo_tmp。首先判断临时表是否存在，如果不存在，则创建，如果存在则删除表中数据。这里使用了execute immediate语句，利用它执行DDL语句及动态语句。
  IF TABEXT = 0 THEN
    --不存在临时表就创建一个
    EXECUTE IMMEDIATE PC_CREATESTR;
    DBMS_OUTPUT.PUT_LINE('创建临时表成功！');
  ELSE
    EXECUTE IMMEDIATE PC_DELESTR;
    DBMS_OUTPUT.PUT_LINE('删除记录完成！');
  END IF;
  OPEN CUR_CATEGORY;--第45~49行表示打开游标cur_category（产品类型  游标），并进入流循环取值。当游标的%nofound属性为true时退出。
  LOOP
    FETCH CUR_CATEGORY
      INTO CUR_CTGY;
    EXIT WHEN CUR_CATEGORY%NOTFOUND;
    OPEN CUR_PROINFO(CUR_CTGY);--第50~53行表示打开游标cur_proinfo，它的参数是cur_category中的结果。
    FETCH CUR_PROINFO
      INTO CUR_PRTIFO;
    IF CUR_PROINFO%FOUND THEN
      IF CUR_PRTIFO.PRODUCTPRICE < 20 THEN--第54~58行表示判断价格是否低于20，如果低于20输出到屏幕。
        ---产品价格低于20
        DBMS_OUTPUT.PUT_LINE('产品ID' || CUR_PRTIFO.PRODUCTID || '产品名称' ||
                             CUR_PRTIFO.PRODUCTNAME || '产品价格' ||
                             CUR_PRTIFO.PRODUCTPRICE);
      ELSE
        --非低于20价格的产品输入到临时表productinfo_tmp            第60~69行表示如果非低于20的插入表productinfo_tmp中。
        EXECUTE IMMEDIATE 'insert into productinfo_tmp(
        productid,productname,productprice,quantity,category,desperaction,origin) values
        (''' || CUR_PRTIFO.PRODUCTID || ''',''' ||
                          CUR_PRTIFO.PRODUCTNAME || ''',''' ||
                          CUR_PRTIFO.PRODUCTPRICE || ''',''' ||
                          CUR_PRTIFO.QUANTITY || ''',''' ||
                          CUR_PRTIFO.CATEGORY || ''',''' ||
                          CUR_PRTIFO.DESPERACTION || ''',''' ||
                          CUR_PRTIFO.ORIGIN || ''')';
      END IF;
    END IF;
    CLOSE CUR_PROINFO;
  END LOOP;
  COMMIT;
  CLOSE CUR_CATEGORY;
  EXECUTE IMMEDIATE 'update productinfo_tmp set desperaction = ''热销产品''';--第76行表示将productinfo_tmp表中的数据修改为热销产品。
END;

【执行】

SQL>exec PRODUCT_TEMP_UPDATE_PRC ;

转自:http://www.cnblogs.com/Rainbow-G/articles/4301131.html