引自：http://bbs.chinaunix.net/viewthread.php?tid=643946
在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默认为隐式事务来提交。