| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> oracle >> 經驗分享:Informix和Oracle存儲過程的異同
 

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

2008-08-05 07:05:03  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  在工作過程中涉及到過有時要進行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 DBMS_JOB:每隔特定時間執行特定任務》
下一篇《實例講解Oracle數據庫設置默認表空間問題》
 
 
 
日版寵物情人插曲《Winding Road》歌詞

日版寵物情人2017的插曲,很帶節奏感,日語的,女生唱的。 最後聽見是在第8集的時候女主手割傷了,然後男主用嘴幫她吸了一下,插曲就出來了。 歌手:Def...

兄弟共妻,我成了他們夜裏的美食

老鍾家的兩個兒子很特別,就是跟其他的人不太一樣,魔一般的執著。兄弟倆都到了要結婚的年齡了,不管自家老爹怎麽磨破嘴皮子,兄弟倆說不娶就不娶,老父母爲兄弟兩操碎了心...

如何磨出破洞牛仔褲?牛仔褲怎麽剪破洞?

把牛仔褲磨出有線的破洞 1、具體工具就是磨腳石,下面墊一個硬物,然後用磨腳石一直磨一直磨,到把那塊磨薄了,用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...

我就是掃描下圖得到了敬業福和愛國福

先來看下敬業福和愛國福 今年春節,支付寶再次推出了“五福紅包”活動,表示要“把欠大家的敬業福都還給大家”。 今天該活動正式啓動,和去年一樣,需要收集“五福”...

冰箱異味産生的原因和臭味去除的方法

有時候我們打開冰箱就會聞到一股異味,冰箱裏的這種異味是因爲一些物質發出的氣味的混合體,聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。 1、很多人有這種習...

《極品家丁》1-31集大結局分集劇情介紹

簡介 《極品家丁》講述了現代白領林晚榮無意回到古代金陵,並追隨蕭二小姐化名“林三”進入蕭府,不料卻陰差陽錯上演了一出低級家丁拼搏上位的“林三升職記”。...

李溪芮《極品家丁》片尾曲《你就是我最愛的寶寶》歌詞

你就是我最愛的寶寶 - 李溪芮 (電視劇《極品家丁》片尾曲) 作詞:常馨內 作曲:常馨內 你的眉 又鬼馬的挑 你的嘴 又壞壞的笑 上一秒吵鬧 下...

烏梅的功效與作用以及烏梅的食用禁忌有哪些?

烏梅,又稱春梅,中醫認爲,烏梅味酸,性溫,無毒,具有安心、除熱、下氣、祛痰、止渴調中、殺蟲的功效,治肢體痛、肺痨病。烏梅泡水喝能治傷寒煩熱、止吐瀉,與幹姜一起制...

什麽是脂肪粒?如何消除臉部脂肪粒?

什麽是脂肪粒 在我們的臉上總會長一個個像脂肪的小顆粒,弄也弄不掉,而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘,它就是脂肪粒。 脂肪粒雖然也是由油脂...

網絡安全治理:國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰受害者

來源:中國青年報 新的攻擊方法不斷湧現,黑客幾乎永遠占據網絡攻擊的上風,我們不可能通過技術手段杜絕網絡攻擊。國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰...

 
 
 
在工作過程中涉及到過有時要進行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;
󰈣󰈤
 
 
 
  免責聲明:本文僅代表作者個人觀點,與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
 
成熟風韻的Meinv
甜美少女
此女子姿色過人也
愛恨情愁傷哀怨
痞子的甘南日記
疑是銀河落九天
雪域壩上四——純美色
冬日戀歌——西城楊柳弄輕柔
 
>>返回首頁<<
 熱帖排行
 
 
王朝网络微信公众号
微信扫码关注本站微信公众号 wangchaonetcn
 
© 2005- 王朝網路 版權所有