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;)ISCURSOR 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)ASBEGIN 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 0END
? 附录：
? 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默认为隐式事务来 提交。
