记informix转oracle的一些修改点

记informix转oracle的一些修改点

最近公司项目需要由informix数据库转向oracle数据库，故写下一些遇到的语法修改点。

1. 建立存储过程的语法

Informix

CREATE PROCEDURE procedure-name ( [expression[,…])

[define-stmt]

[exception-declaration]

[statement-list]

END PROCEDURE [DOCUMENT string[,…]][WITH LISTING IN string]

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;

注意，若存过没有入参，oracle数据库后面不需要()。如果存储过程想返回一个参数，在informix中是通过返回值的形式实现的，而在oracle是通过输出参数或者输入输出参数实现的。

2. 对于oracle的function，不能返回多个值，这时要用数组返回。例：

首先要创建存储数据的object

CREATE OR REPLACE TYPE aaa as object
(
areastr VARCHAR2(4000),
V_IS_END VARCHAR(20)
);

然后创建该对象的table

CREATE OR REPLACE TYPE aaa_tabae table of aaa;

主体functional

CREATE OR REPLACE FUNCTION aaa(a int,b int)
return aaa_table
as
retValue aaa_table :=  aaa_table();
areastr VARCHAR2(4000);
V_IS_END VARCHAR(20);
begin
--main statment
V_REVALUE.EXTEND();
V_REVALUE(V_REVALUE.COUNT):=get_t_nodecity_depart(areastr,
V_IS_END);
RETURN V_REVALUE;
end;

而informix的function可以直接返回多个值，

return areastr,V_IS_END;

3. 赋值与判断语句

--赋值：

--informix
let v_1 = 100;

--oracle
v_1 := 100;

--判断：

--informix
if (v_1 =100) then
……
elif (v_1=200) then
……
Else
……
end if;

--oracle
if (v_1 =100) then
……
elsif (v_1=200) then
……
Else
……
end if;

4. 错误捕捉

Informix

on exception
......
end exception

Oracle

exception
when others then
……

例如：

begin
--main statment

exception
when others then
--do something
end;

对于自定义exception，应该这样做：

as
a EXCEPTION;
b EXCEPTION;

BEGIN
--main statment
IF ...
RAISE a;
else
RAISE b;
exception
when a then
--do something
when b then
--do something
end;

5. 对游标的处理

informix:

foreach cur_name for
select .... into ....from .... where .....
....
end foreach;

oracle:

for cur_name in(
select .... into ....from .... where .....) loop
....
end loop;

还有一种是打开游标操作的，具体可百度；

5. 在存储过程中调用另外一个存储过程

Informix :

Call pNoParam();
Call pNormalParam(1, ‘a’) returning v_Result;

Oracle :

pNoParam;
pNormalParam(1, ‘a’, v_Result);

6. 日期操作

i）当前时间

Informix

<
4000
pre class="prettyprint">

define cur_dtime_var           datetime year to second;

当前日期时间：

let  cur_dtime_var = current;    -- datetime

Oracle

Currtime date;
Currtime := sysdate;

ii）当前日期的增减

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秒种

iii）日期转换成字符串

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');

iv）字符串转换成日期

假设字符串的形式是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’);

7.事务

在oracle中缺省情况下，一个事务的结束就是下一个事务的开始，所以对于一个事务来说，我们只要写commit；即可，不需要明确标出什么时候开始一个事务，而informix需要。

8.打印调试信息

Informix

--设置跟踪模式
set debug file to "trace_check";  -- with append;
--说明“with append”表示以追加模式打开跟踪结果文件

trace '开始执行存储过程'
....
trace 'v_date='||v_date;
....
trace ‘存储过程执行完毕’
trace off;

执行完以后打开当前目录下的trace_check即可看到打印出来的信息。

Oracle

DBMS_OUTPUT.PUT_LINE(‘开始执行存储过程’);
……
DBMS_OUTPUT.PUT_LINE('v_date='||v_date);
……
DBMS_OUTPUT.PUT_LINE(‘存储过程执行完毕’);

先设置一下缓冲区的大小

set serveroutput on size 100000;  -- 如果不执行该语句，会看不到调试信息

执行完毕以后，打印出来的信息就会直接显示在界面上。

暂时就这些。。。