經驗分享:Informix和Oracle存儲過程的異同

在工作過程中涉及到過有時要進行INFORMIX和ORACLE之間的移植,有時應用需要既支持INFORMIX數據庫又要支持ORACLE數據庫,如果應用程序涉及到存儲過程的話,就需要既熟悉INFORMIX存儲過程的寫法,又需要熟悉ORACLE存儲過程的寫法。筆者將在工作中總結的一些經驗寫出來與大家共享。

建立存儲過程的語法:

一、Informix

create procedure proc_name( [....in_parameter_list])

returning out_para_list / out_result_set;

二、Oracle

create [or replace] procedure procedue_name

[ (arg1 [ {in | out | in out }] type

(argn [ {in | out | in out }] type,)]

{is | as} --代替DECLARE關鍵字

[ 變量定義區]

begin

end procedure_name;

三、幾個簡單的例子

1、沒有參數也沒有返回值

1)Informix

create procedure pNoParam()

begin

on exception

rollback work;

return;

end exception

begin work;

delete from t1;

delete from t2;

commit work;

end;

end procedure;

2)Oracle

create or replace procedure pNoParam

as

begin

delete from t1;

delete from t2;

commit;

exception

when others then

begin

rollback;

end;

end pNoParam;

2、有輸入輸出

往t1表中插入一條記錄,返回值表示插入是否成功。

1)Informix

create procedure pNormalParam(f1 integer, f2 varchar(10))

returning integer;

begin

on exception

rollback work;

return -1;

end exception

begin work;

insert into t1 values(f1, f2);

commit work;

return 0;

2)Oracle

create or replace procedure pNormalParam(f1 number,

f2 varchar2, v_Result out number)

as

begin

insert into t1 values(f1,f2);

commit;

v_Result = 0;

return;

exception

when others then

begin

rollback;

v_Result := -1;

end;

end pNormalParam;

需要注意的是,在oracle存儲過程中,參數是不能加上size的,比如f1,在t1表中該字段是number(10,0),而這裏只能寫number,而不能寫number(10,0)。

3、返回記錄集

1)Informix

create procedure pReturnSet() returning integer, varchar(10);

define i integer;

define j varchar(10);

foreach

select f1, f2 into i, j from t1

return i, j with resume;

end foreach;

end procedure;

2)Oracle

create or replace package TestRefCursorPkg as type TestRefCursorTyp is ref cursor; procedure pReturnSet(RefCursor out TestRefCursorTyp); end TestRefCursorPkg;

create or replace package body TestRefCursorPkg as

procedure pReturnSet (RefCursor out TestRefCursorTyp)

as

localCursor TestRefCursorTyp;

begin

open localCursor for select f1, f2 from t1;

RefCursor := localCursor;

end pReturnSet;

end TestRefCursorPkg;

/

四、其他差異說明

1、錯誤捕捉

1)Informix

使用

on exception

end exception

2)Oracle

使用

exception

when others then

2、對遊標的處理

1)Informix

create procedure pHasCursor()

define v_f1 integer;

begin

on exception

rollback work;

return;

end exception

begin work;

foreach curt1 with hold for

select f1 into v_f1 from t1 -- 注意這裏沒有分號

if (v_f1 = 1) then

update t1 set f2 = 'one' where current of curt1;

elif (v_f1 = 2) then

update t1 set f2 = 'two' where current of curt1;

else

update t1 set f2 = 'others' where current of curt1;

end if;

end foreach;

commit work;

end;

end procedure;

2)Oracle

create or replace procedure pHasCursor

as

v_f1 number(10,0);

cursor curt1 is

select f1 from t1 for update;

begin

open curt1;

loop

fetch curt1 into v_f1;

exit when curt1%notfound;

if (v_f1 = 1) then

update t1 set f2 = 'one' where current of curt1;

elsif (v_f1 = 2) then

update t1 set f2 = 'two' where current of curt1;

else

update t1 set f2 = 'others' where current of curt1;

end if;

end loop;

commit;

return;

exception

when others then

begin

rollback;

end;

end pHasCursor;

3、在存儲過程中調用另外一個存儲過程

1)Informix

Call pNoParam();

Call pNormalParam(1, 『a』) returning v_Result;

2)Oracle

pNoParam;

pNormalParam(1, 『a』, v_Result);

4、日期操作

1)當前時間

① Informix

define cur_dtime_var datetime year to second;

當前日期時間: let cur_dtime_var = current; -- datetime

② Oracle

Currtime date;

Currtime := sysdate;

2)當前日期的增減

① Informix

let tmp_date = today + 3 UNITS day; -- 當前時間加三天

let tmp_datetime = current + 1 UNITS second; -- 當前時間加1秒種

② Oracle

Tmp_date := sysdate + 3; -- 當前時間加三天

Tmp_date := sysdate + 1/24/3600; --當前時間加1秒種

3)日期轉換成字符串

① Informix

let v_PeriodEndTime = year(v_date)||extend(v_date,month to month)

||extend(v_date,day to day) ||extend(v_date,hour to hour)

||extend(v_date,minute to minute)|| extend(v_date,second to second);

② Oracle

v_PeriodEndTime := to_char(v_date, 'yyyymmddhh24miss');

4)字符串轉換成日期

假設字符串的形式是yyyymmddhhmiss形式的

① Informix

-- 直接轉換成日期

let v_BeginDate = substr(v_BeginTime,1,4)||'-'||substr(v_BeginTime,5,2)

||'-'||substr(v_BeginTime,7,2)||' '||substr(v_BeginTime,9,2)

||':'||substr(v_BeginTime,11,2)||':'||substr(v_BeginTime,13,2);

-- 這個月的第一天

let v_date = substr(v_BeginTime,1,4)||'-'

||substr(v_BeginTime,5,2)||'-1 00:00:00';

-- 這個星期的第一天

let v_date = substr(v_BeginTime,1,4)||'-'||substr(v_BeginTime,5,2)

||'-'||substr(v_BeginTime,7,2)||' 00:00:00';

let v_week = weekday(v_date);

let v_date = v_date - v_week UNITS day;

② Oracle

-- 直接轉換成日期

v_BeginDate := to_date(v_BeginTime, 'yyyymmddhh24miss');

-- 這個月的第一天

v_BeginDate := trunc(to_date(v_BeginTime, 'yyyymmddhh24miss'), 『mm』);

-- 這個星期的第一天

v_BeginDate := trunc(to_date(v_BeginTime, 'yyyymmddhh24miss'), 『day』);

5)事務

在oracle中缺省情況下,一個事務的結束就是下一個事務的開始,所以對于一個事務來說,我們只要寫commit;即可,不需要明確標出什麽時候開始一個事務,而informix需要。

6)打印調試信息

7)Informix

--設置跟蹤模式

set debug file to "trace_check"; -- with append;

--說明「with append」表示以追加模式打開跟蹤結果文件

trace '開始執行存儲過程'

trace 'v_date='||v_date;

trace 『存儲過程執行完畢』

trace off;

執行完以後打開當前目錄下的trace_check即可看到打印出來的信息。

8)Oracle

DBMS_OUTPUT.PUT_LINE(『開始執行存儲過程』);

DBMS_OUTPUT.PUT_LINE('v_date='||v_date);

DBMS_OUTPUT.PUT_LINE(『存儲過程執行完畢』);

先設置一下緩沖區的大小

set serveroutput on size 100000; -- 如果不執行該語句,會看不到調試信息

執行完畢以後,打印出來的信息就會直接顯示在界面上。

5、關于參數的說明

如果存儲過程想返回一個參數,在informix中是通過返回值的形式實現的,而在oracle是通過輸出參數或者輸入輸出參數實現的。

舉例:

1)Informix:

create procedure p1() returning integer;

return 0;

end procedure;

2)oracle:

create or replace procedure p1(x out number)

as

begin

x := 0;

end p1;

6、賦值

1)informix

let v_1 = 100;

2)oracle

v_1 := 100;

7、if語句

1)informix

if (v_1 =100) then

elif (v_1=200) then

Else

end if;

2)oracle

if (v_1 =100) then

elsif (v_1=200) then

Else

end if;

· 把年齡相仿的獅虎熊放一起,誰更厲害?結果出人意料

很多人都想知道獅子、老虎和熊打起來誰最厲害,于是便有好事之人把這三種動物關在一起...

· 湖北宜昌三峽壩區水面驚現神秘動物

近日,湖北宜昌,一段視頻在當地熱傳:有網友在三峽壩區拍到神秘動物,體型碩大數米長...

· 什麽是語段?語段的類型以及和句群、段落的區別與聯系是什麽?

句群是最高級的語言單位。 段落(自然段)是章法單位...

 
Oracle 10g存儲過程遠程SQL注入漏洞
受影響系統:   Oracle Oracle10g 10.2.0.2.0   描述:   BUGTRAQ ID: 17699   Oracle是一款大型的商業數據庫系統。   Oracle 10g中由SYS用戶運行的DBMS_EXPORT_EXTENSION存儲過程存在PL/SQL注入漏洞,答應...查看完整版>>Oracle 10g存儲過程遠程SQL注入漏洞
 
Oracle開發之ASP調用oracle存儲過程
  <!--#include file="inc\public.ASP"--  <!--#include file="inc\conn.asp"--    <Html  <head  <meta http-equiv="Content-Type" content="text/html; charset=gb2312"  <title&...查看完整版>>Oracle開發之ASP調用oracle存儲過程
 
ORACLE存儲過程管道通信的例子
  /*  管道通信的例子程序  注重:1要明文給于用戶 EXECUTE ANY PROCEDURE 權力可能正常使用DBMS_PIPE   2設定:set serveroutput on  共有兩個過程writepipe和readpipe ...查看完整版>>ORACLE存儲過程管道通信的例子
 
oracle存儲過程編譯時的一些錯誤
Error: PLS-00201: 必須說明標識符 'DATETIME'Line: 45Text: aa datetime,-------------------------在Oracle中沒有datetime類型===================================================Error: PLS-00103: 出現符號 "(...查看完整版>>oracle存儲過程編譯時的一些錯誤
 
oracle 存儲過程的基本語法
1.基本結構 CREATE OR REPLACE PROCEDURE 存儲過程名字( 參數1 IN NUMBER, 參數2 IN NUMBER) IS變量1 INTEGER :=0;變量2 DATE;BEGINEND 存儲過程名字2.SELECT INTO STATEMENT 將select查詢的結果存入到變量中...查看完整版>>oracle 存儲過程的基本語法