欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

sybase与oracle存储过程的写法对照

更新时间: 2014-01-05 02:21:10 责任编辑: Author_N1

 

sybase与oracle存储过程的写法对比

在oracle中创建存储过程和sybase及sql server下的语法有些不一致之处。
下面就此用不同的数据库下存储过程的例子来演示之。
---------------------------
oracle下:

CREATE OR REPLACE FUNCTION MY_FUNC
(
P1 IN MY_TABLE.YY%TYPE,
P2 IN MY_TABLE.NN%TYPE,
P3 VARCHAR(100)
)
RETURN VARCHAR2 AS
/*定义有参数的游标和无参数的游标*/
CURSOR MY_CURSOR1 IS
    SELECT YY,NN,DECODE(FYYSDM,0,'合计',1,'加工费','其他费用要素')
    FROM MY_TABLE
    WHERE YY=P1
    GROUP BY YY,NN
    ORDER BY YY,NN;
/*定义游标变量,存储游标数据集中的记录*/
V_CURSOR1 MY_CURSOR1%ROWTYPE; 

CURSOR MY_CURSOR2(V_ZYDM MY_TABLE.ZYDM%TYPE,V_FYYSDM NUMBER) AS
    SELECT YY,NN,ZYDM,NVL(ZYCB,0) /*NVL函数转换空值为指定值*/
    FROM MY_TABLE
    WHERE YY=P1 AND NN=P2 AND ZYDM=V_ZYDM AND FYYSDM=V_FYYSDM
    GROUP BY YY,NN;
/*定义游标变量,存储游标数据集中的记录*/
V_CURSOR2 MY_CURSOR2%ROWTYPE; 
V_CPDM  MY_TABLE.CPDM%TYPE;
V_COUNT NUMBER;
V_BZ    VARCHAR2(2);
V_CPCB  NUMBER(22,2);

BEGIN
    V_BZ:=1;
    SELECT CPDM INTO V_CPDM FROM MY_TABLE;
    SELECT CPCB INTO V_CPCB FROM MY_TABLE WHERE ROWNUM=1;
    
    IF MY_CURSOR1%ISOPEN THEN /*判断游标是否已经打开*/
        CLOSE MY_CURSOR1;
    END IF;
    OPEN MY_CURSOR1;
    FETCH MY_CURSOR1 INTO V_CURSOR1;
    IF MY_CURSOR1%NOTFOUND THEN /*游标返回结果为空*/
        CLOSE MY_CURSOR1;
           RETURN(V_BZ);
    END IF;
    WHILE MY_CURSOR1%FOUND LOOP /*游标返回结果不为空*/
        V_CPDM:=V_CURSOR1.CPDM;
        V_CPCB:=V_CURSOR1.CPCB;
        V_COUNT:=100;
        IF V_COUNT=100 THEN
            V_COUNT:=99;
        END IF;
            FETCH MY_CURSOR1 INTO V_CURSOR1;
    END LOOP;
    CLOSE MY_CURSOR1;

    /*显式打开带参游标*/
    SELECT CPDM INTO V_CPDM FROM MY_TABLE;
    OPEN MY_CURSOR2;
    FETCH MY_CURSOR2 INTO V_CURSOR2;
    WHILE MY_CURSOR2%FOUND LOOP /*游标返回结果不为空*/
        V_CPDM:=V_CURSOR2.CPDM;
        V_CPCB:=V_CURSOR2.CPCB;
        V_COUNT:=100;
        IF V_COUNT=100 THEN
            V_COUNT:=99;
        ELSE
            V_COUNT:=88;
        END IF;
            FETCH MY_CURSOR2 INTO V_CURSOR2;
    END LOOP;
    CLOSE MYCURSOR2;

    /*隐式打开游标*/
    FOR V_CURSOR2 IN MY_CURSOR2(V_CPDM,V_CURSOR1.FYYSDM) LOOP
        IF V_CURSOR2.CPCB IS NULL THEN
           PRINT '非法!';
           ROLLBACK;
        END IF;

        UPDATE MY_TABLE
        SET CPCB=V_CPCB
        WHERE YY=P1 AND NN=P2 AND CPDM=V_CURSOR2.CPDM;
        IF SQL%NOTFOUND THEN /*判断前句是否有执行结果*/
           /*程序段*/
        END IF;
    END LOOP;
    
    V_BZ:=MY_DELETE_CB(P_YY,P_NN);
    IF V_BZ<>0 THEN
        PRINT '失败!';
    END IF;
    FOR I INT 1..V_COUNT LOOP
        /**/
    END LOOP;

    COMMIT;/*提交事务*/
    RETURN(0);/*要有返回值*/
END MY_FUNC;

CREATE OR REPLACE PROCEDURE SP_MY 
(
P_YY IN MY_TABLE.YY%TYPE;
P_NN NUMBER;
)
IS

CURSOR MY_CURSOR IS
    SELECT CPCB 
    FROM MY_TABLE 
    WHERE YY=P_YY AND NN=P_NN;

V_ZYCB NUMBER(22,2);

BEGIN
    /**/
    /*无返回值*/
END;

  附oracle下函数:
  NVL(AAA,BBB)  空值判断函数,AAA是待判断变量,BBB为为空时要替换值
  DECODE(ID,P1,S1,P2,S2,S3) 条件判断函数,假如ID是P1则返回S1,假如ID是P2则返回S2,否则返回S3。
  RPAD(AAA,COUNT,'0') 字符补空函数,在AAA变量后补零,共字符串长COUNT。
  SUBSTR(AAA,M,N) 取子串函数,取AAA从第M个字符开始,取N个字符。
  LENGTH(STR)  取字符长度。
  LENGTHB(STR) 取字符字节长度。
  TO_CHAR()
  TO_NUMBER()类型转换函数

---------------------------------------------

SYBASE下:
 

CREATE PROCEDURE PRO_MY
(
@P_YY CHAR(4),
@P_NN CHAR(2)='01',
@P_OUT VARCHAR(255)=NULL OUTPUT
)
AS
BEGIN
    DECLARE @V_CPDM NUMERIC(9,0),
            @V_CPCB NUMERIC(22,2),
            @V_ID   INT,
            @V_JE   FLOAT

    DECLARE CUR_TEST CURSOR FOR
        SELECT CPCB,JE
        FROM TEST
        WHERE YY=@P_YY AND NN=@P_NN AND CPDM=@V_CPDM
    FOR READ ONLY

    SELECT @V_CPCB=CPCB 
    FROM TEST 
    WHERE YY=@P_YY AND NN=@P_NN AND CPDM=@V_CPDM
    IF @@ROWCOUNT=0
        PRINT '未找到'
    ELSE
            PRINT '找到'

    OPEN CUR_TEST
    FETCH CUR_TEST INTO @V_CPCB,@V_JE
    IF @@SQLSTATUS=2 --返回结果集为空
    IF @@SQLSTATUS=1 --游标执行出错
    BEGIN
        RAISERROR 20000 --返回自定义错误号
        --RAISERROR 20000,'错误信息' --返回自定义错误号
        ROLLBACK
        RETURN 10
    END
    WHILE @@SQLSTATUS=0 --结果集返回正常结果
    BEGIN
        /*Exception*/
        FETCH CUR_TEST INTO @V_CPCB,@V_JE
    END
    SELECT @V_ID=@V_ID+1
    IF (@V_STR NOT LIKE "[0-9]")
        SELECT @@V_ID=1
    EXECUTE @V_ID=DELETE_CB @P_YY,@P_NN  
    UPDATE TEST SET CPCB=100 WHERE YY=@P_YY AND NN=@P_NN
    IF @@ERROR!=0
             PRINT '更新失败'  
    RETURN 0
END

  附录:
  CONVERT(INT,@V_JE) --类型转换函数
  LTRIM(@V_STR) --去掉左空格
  RTRIM(@V_STR) --去掉右空格
  ROUND(@V_JE,2) --数值小数位数设定
  SUBSTRING(@V_STR,M,N) --取子字符串
  STR(@V_JE,M,N) --设置数值的显示位数和小数位数
  CHAR_LENGTH(@V_STR) --字符串长度
  PATINDEX("%[0-9]%",@V_STR) --取前边字符在后面字符串中的起始位置
  patindex("%[kKmMgGpP]%", @v_str)
  --case语句
  CASE @V_ID WHEN 0 THEN 'NO' WHEN 1 THEN 'YES' ELSE 'OTHER' END
  ISNULL(@V_JE,0) --非空值判断

-------------------------
另外:
关于事务处理:
 ORACLE下不用显式打开事务,直接提交即可,而且可以分步提交,多次提交,不用成对出现。
 SYBASE必须显式打开和提交事务,且必须成对出现,平时我们单条更新语句的执行被sybase默认为隐式事务来 提交。


我的异常网推荐解决方案:oracle存储过程,http://www.myexception.cn/oracle-develop/177537.html
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:21:10
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/8760/
本文WWW.DOC100.NET DOC100.NET版权所有。