编写oracle存储过程
一. 概述
Oracle存储过程开发的要点是：
? 使用Notepad文本编辑器，用Oracle PL/SQL编程语言写一个存储过程;
? 在Oracle数据库中创建一个存储过程;
? 在Oracle数据库中使用SQL*Plus工具运行存储过程;
? 在Oracle数据库中修改存储过程;
? 通过编译错误调试存储过程;
? 删除存储过程;
二.环境配置
包括以下内容：
? 一个文本编辑器Notepad;
? Oracle SQL*Plus工具，提交Oracle SQL和PL/SQL 语句到Oracle database。
? Oracle 10g express数据库，它是免费使用的版本;
需要的技巧：
? SQL基础知识,包括插入、修改、删除等
? 使用Oracle's SQL*Plus工具的基本技巧;
? 使用Oracle's PL/SQL 编程语言的基本技巧;
三.写一个存储过程
存储过程使用Oracle's PL/SQL 程序语言编写，让我们写一个什么工作都不做的存储过程，我们可以编译和运行它而不用担心会对数据库产生任何损害。
在Notepad, 写下：
CREATE OR REPLACE PROCEDURE skeleton
IS
BEGIN
NULL;
END;
把文件存为skeleton.sql.
让我们一行行遍历这个存储过程:
1 CREATE OR REPLACE PROCEDURE skeleton
2 IS
3 BEGIN
4 NULL;
5 END;
行1:
CREATE OR REPLACE PROCEDURE 是一个SQL语句通知Oracle数据库去创建一个叫做skeleton存储过程, 如果存在就覆盖它;
行2:
IS关键词表明后面将跟随一个PL/SQL体。
行3:
BEGIN关键词表明PL/SQL体的开始。
行4:
NULL PL/SQL语句表明什么事都不做，这句不能删去，因为PL/SQL体中至少需要有一句;
行5:
END关键词表明PL/SQL体的结束
四.创建一个存储过程
SQL语句CREATE OR REPLACE PROCEDURE在Oracle数据库中创建、编译和保存一个存储过程。
从Window打开SQL*Plus并且从SQL*Plus登录到你的数据库;打开skeleton.sql文件.
在SQL>命令提示符下输入以下命令：
SQL>@skeleton
SQL>/
SQL*Plus装载skeleton.sql文件的内容到SQL*Plus缓冲区并且执行SQL*Plus语句;SQL*Plus 会通知你存储过程已经被成功地创建。
现在你的存储过程被创建，编译和保存在你的Oracle数据库，我们可以运行它。
五.运行一个存储过程
从SQL*Plus 命令行提示符运行你的存储过程使用EXECUTE命令，如下:
SQL> EXECUTE skeleton;
SQL*Plus 输出一下信息确信存储过程成功执行: PL/SQL procedure successfully completed.
你也可以在一个无名PL/SQL块内运行你的存储过程，在SQL*Plus命令提示符下，它看起来像：
SQL> BEGIN
2 SKELETON;
3 END;
4 /
现在我们已经运行了我们的存储过程，我们如何修改它呢?
六.修改一个存储过程
让我们写一个输出字符串“Hello World!”的存储过程，用Notepad打开你的skeleton.sql 文件，. 用DBMS_OUTPUT.PUT_LINE 过程调用去替换NULL语句，如下所示:
CREATE OR REPLACE PROCEDURE skeleton
IS
BEGIN
DBMS_OUTPUT.PUT_LINE('Hello World!');
END;
保存到文件skeleton.sql.
从SQL*Plus命令行, 打开文件skeleton.sql .
SQL> @skeleton
SQL>
1 CREATE OR REPLACE PROCEDURE skeleton
2 IS
3 BEGIN
4 DBMS_OUTPUT.PUT_LINE('Hello World!');
5* END;
SQL> /
SQL*Plus 通知你存储过程成功创建并输出提示信息：Procedure created.
SQL>
用EXECUTE 命令运行你的存储过程:
SQL> EXECUTE skeleton;
SQL*Plus显示存储过程运行成功：PL/SQL procedure successfully completed.
我们想要的输出字符串 "Hello World!"没有出来，在显示一个DBMS_OUTPUT.PUT_LINE 结果前需要运行一个SET命令，在SQL*Plus 命令行提示符,键入：
SQL> SET SERVEROUTPUT ON?
再次执行你的存储过程：
SQL> EXECUTE skeleton;
现在结果输出了：Hello World!
PL/SQL procedure successfully completed.
七.调试一个存储过程
当调试一个存储过程时，遵循一样的步骤，修改SQL文件，创建存储过程，执行存储过程，根据编译器反馈的出错信息进行修改，这一步是非常繁琐的，需要依靠经验。
在实际的商用存储过程的开发调试过程中，由于涉及很多表、类型、光标、循环、条件等复杂的逻辑，和PL/SQL语句的灵活运用，编译时会产生很多错误提示信息，程序员在根据这些错误信息定位，进行修正，再编译最后得到正确的结构;
八.放弃一个存储过程
如果在数据库中你不在需要一个存储过程你可以删除它，SQL语句 DROP PROCEDURE 完成从数据库中删除一个存储过程，DROP PROCEDURE 在SQL中被归类为数据定义语言(DDL) 类操作，其他的例子有CREATE, ALTER, RENAME 和TRUNCATE。.
在SQL*Plus 命令提示符下，使用DROP PROCEDURE SQL 语句删除你的叫做skeleton的存储过程：
SQL> DROP PROCEDURE skeleton;
SQL*Plus assures us the procedure has been removed:
Procedure dropped.
总结
本文详细讨论了如何使用Oracle工具开发Oracle商用存储过程的步骤。最后在存储过程的使用中可能是程序直接调用，也可能被触发器调用。
?
一个存储过程的实例：
create or replace procedure hwkr.pr_sj_061_gprs_m_detail_07 (is_month in varchar2, oi_return out number)/** HEAD * @caption * @type * @parameter is_date in varchar2 统计月份，格式：YYYYMM * @parameter oi_return out number 执行状态码，整数，0 正常，-1 出错 * @description */is vs_user_name varchar2(30); -- 用户名 vs_task_name varchar2(30); -- 任务名称 vs_table_name varchar2(30); -- 表名称 vs_partition_name varchar2(30); -- 表分区名称 vs_message varchar2(200); -- 日志信息 vi_task_id integer; -- 日志ID vi_result integer; -- 临时结果 vi_month integer; -- 统计日期 --vs_first_date varchar2(8); -- 本月首日(字符型) -- vd_last_day date; --月末begin vs_user_name := 'hwkr'; vs_task_name := 'pr_sj_061_gprs_m_detail_07'; vs_table_name := 'tr_sj_061_gprs_m_detail_07'; vs_partition_name := 'gprs_m_detail_07'; vi_month :=to_number(is_month); -- 程序开始日志 hwkr.ps_log(vs_task_name, vs_table_name, is_month, 1, null, vi_task_id); if (is_month is null) then vs_message := '没有输入统计日期参数'; hwkr.ps_log(null, null, null, 3, vs_message, vi_task_id); oi_return := -1; return; end if; -- 处理表当月分区 select count(*) into vi_result from all_tab_partitions where table_owner = upper(vs_user_name) and table_name = upper(vs_table_name) and partition_name = upper(vs_partition_name) || '_' || is_month; if vi_result > 0 then -- 当月分区存在则清空分区数据 execute immediate 'alter table ' || vs_user_name || '.' || vs_table_name || ' truncate partition ' || vs_partition_name || '_' || is_month; else -- 当月分区不存在则建立分区 execute immediate 'alter table ' || vs_user_name || '.' || vs_table_name || ' add partition ' || vs_partition_name || '_' || is_month || ' values (' || is_month || ')'; end if; execute immediate 'truncate table hwkr.tr_sj_061_gprs_m_mid1_07'; --execute immediate 'truncate table hwkr.tr_sj_061_gprs_m_mid2_07'; insert into hwkr.tr_sj_061_gprs_m_mid1_07 ( serv_number, last_1_months, last_2_months, last_3_months, last_4_months, last_5_months, last_6_months ) select serv_number, total_note_flow+gprs_total_flow last_1_months, 0 last_2_months, 0 last_3_months, 0 last_4_months, 0 last_5_months, 0 last_6_months from hwkr.tr_sj_061_basic_cust_m where statis_month=to_char(add_months(to_date(is_month,'yyyymm'),-1),'yyyymm'); commit; insert into hwkr.tr_sj_061_gprs_m_mid1_07 ( serv_number, last_1_months, last_2_months, last_3_months, last_4_months, last_5_months, last_6_months ) select serv_number, 0 last_1_months, last_1_months last_2_months, last_2_months last_3_months, last_3_months last_4_months, last_4_months last_5_months, last_5_months last_6_months from hwkr.tr_sj_061_gprs_m_detail_07 where statis_month=to_char(add_months(to_date(is_month,'yyyymm'),-1),'yyyymm'); commit; insert into hwkr.tr_sj_061_gprs_m_detail_07 ( statis_month, serv_number, last_1_months, --前1月GPRS流量 last_2_months, --前2月GPRS流量 last_3_months, --前3月GPRS流量 last_4_months, --前4月GPRS流量 last_5_months, --前5月GPRS流量 last_6_months --前6月GPRS流量 ) select vi_month, serv_number, sum(last_1_months), sum(last_2_months), sum(last_3_months), sum(last_4_months), sum(last_5_months), sum(last_6_months) from hwkr.tr_sj_061_gprs_m_mid1_07 group by serv_number; commit;------------------------------------------------------------ -- 程序结束日志 hwkr.ps_log(null, null, null, 2, null, vi_task_id); -- 成功返回 oi_return := 0; return;exception when others then -- 得到出错信息 vs_message := substr(sqlerrm, 1, 200); -- 回滚事务 rollback; -- 程序出错日志 hwkr.ps_log(null, null, null, 3, vs_message, vi_task_id); -- 出错返回 oi_return := -1; return;end;/?