一、为什么要用存储过程？
如果在应用程序中经常需要执行特定的操作，可以基于这些操作简历一个特定的过程。通过使用过程可以简化客户端程序的开发和维护，而且还能提高客户端程序的运行性能。
二、过程的优点？
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('',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('',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