一. 概述
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;
/