Oracle 存儲過程示例
1. SQLPLUS 之 SET 指令:
SQL>set colsep' '; //-域輸出分隔符
SQL>set echo off; //顯示start啟動的腳本中的每個sql指令，預設為on
SQL> set echo on //設定運作指令是是否顯示語句
SQL> set feedback on; //設定顯示“已選擇XX行”
SQL>set feedback off; //回顯本次sql指令處理的記錄條數，預設為on
SQL>set heading off; //輸出域标題，預設為on
SQL>set pagesize 0; //輸出每頁行數，預設為24,為了避免分頁，可設定為0。
SQL>set linesize 80; //輸出一行字元個數，預設為80
SQL>set numwidth 12; //輸出number類型域長度，預設為10
SQL>set termout off; //顯示腳本中的指令的執行結果，預設為on
SQL>set trimout on; //去除标準輸出每行的拖尾空格，預設為off
SQL>set trimspool on; //去除重定向(spool)輸出每行的拖尾空格，預設為off
SQL>set serveroutput on; //設定允許顯示輸出類似dbms_output
SQL> set timing on; //設定顯示“已用時間：XXXX”
SQL> set autotrace on-; //設定允許對執行的sql進行分析
set verify off //可以關閉和打開提示确認資訊old 1和new 1的顯示.
2. 過程
-- 表t5管理過程
-- BEGIN 存儲過程
create or replace procedure tablemanage(optype in integer, pk in integer) as
-- 變量聲明
v_optype integer := optype; -- 0 查詢 1 删除
v_entity t5%ROWTYPE; -- 實體
v_pk integer := NVL(pk, '');
v_code NUMBER;
v_errm VARCHAR2(64);
CURSOR v_cursor IS
SELECT * FROM t5;
begin
-- 過程體
DBMS_OUTPUT.put_line('start table t5 process... ');
-- 查詢
if v_optype = 0 then
-- 打開遊标
OPEN v_cursor;
-- 提取資料
LOOP
fetch v_cursor into v_entity;
DBMS_OUTPUT.put_line('query...' || v_entity.id);
EXIT when v_cursor%NOTFOUND;
END LOOP;
-- 關閉遊标
CLOSE v_cursor;
-- 删除
elsif v_optype = 1 then
delete from t5 where id = v_pk;
commit;
elsif v_optype = 2 then
insert into t5 values (3, 'wang5');
commit;
elsif v_optype = 3 then
update t5 set name = 'ma6' where id = v_pk;
commit;
end if;
DBMS_OUTPUT.put_line('start table t5 process...ok.');
exception
-- 異常處理
when others then
DBMS_OUTPUT.put_line('An exception occurred.');
v_code := SQLCODE;
v_errm := SUBSTR(SQLERRM, 1 , 64);
DBMS_OUTPUT.PUT_LINE('Error code ' || v_code || ': ' || v_errm);
rollback;
-- 記錄錯誤日志表
DBMS_OUTPUT.put_line('start logging into error_log...');
insert into error_log values (sysdate, v_entity.id, v_code, v_errm);
commit;
DBMS_OUTPUT.put_line('start logging error_log... ok.');
-- END 存儲過程
end tablemanage;
3. 建立表
create table t5(id integer primary key , name varchar(20));
create table error_log(now date primary key, id varchar2(20), error_code number, error_msg varchar2(255));
insert into t5 values (1, 'zhang3');
insert into t5 values (2, 'li4');
commit;
4. SQLPLUS調用過程
SQL> set serveroutput on
SQL> select * from t5
2 ;
ID NAME
---------- ----------------------------------------
2 li4
3 ma6
SQL> call tablemanage(0, 0);
start table t5 process...
query...2
query...3
query...3
start table t5 process...ok.
調用完成。
SQL>
5. 完成