事务、异常与回滚问题

Question

请问各位高手：
　　在oracle中写一个存储过程，请问如何在存储过程中定义自己的事务，当一些插入语句执行报错时，如何捕获异常及回滚。最好给几个完整的例子呀

Answer 1

CREATE OR REPLACE PROCEDURE test(
pvc2id in VARCHAR2
)
IS
BEGIN
  insert into a values(pvc2id);
  COMMIT;  EXCEPTION WHEN OTHERS THEN
  ROLLBACK;
END;
/

Answer 2

ORACLE PL/SQL 例外处理
1) 基本结构
BEGIN
... --语句
EXCEPTION -- 例外处理 
WHEN ...
...
WHEN OTHERS
...
END;2) 常用预定义例外
EXCEPTION 
WHEN CURSOR_ALREADY_OPEN THEN -- ORA-06511 SQLCODE = -6511 游标已经打开
...
WHEN DUP_VAL_ON_INDEX THEN -- ORA-00001 SQLCODE = -1 向唯一索引中插入重复数据
...
WHEN INVALID_CURSOR THEN -- ORA-01001 SQLCODE = -1001 非法游标操作
...
WHEN INVALID_NUMBER THEN -- ORA-01722 SQLCODE = -1722 字符向数字转换失败
...
WHEN LOGIN_DENIED THEN -- ORA-01017 SQLCODE = -1017 
...
WHEN NO_DATA_FOUND THEN -- ORA-01403 SQLCODE = +100 没有找到数据
...
WHEN NOT_LOGGED_ON THEN -- ORA-01012 SQLCODE = -1012 
...
WHEN PROGRAM_ERROR THEN -- ORA-06501 SQLCODE = -6501 程序错误
...
WHEN STORAGE_ERROR THEN -- ORA-06500 SQLCODE = -6500 
...
WHEN TIMEOUT_ON_RESOURCE THEN -- ORA-00051 SQLCODE = -51
...
WHEN TOO_MANY_ROWS THEN -- ORA-01422 SQLCODE = -1422 返回多行
...
WHEN TRANSACTION_BACKED_OUT THEN -- ORA-00061 SQLCODE = -61
...
WHEN VALUE_ERROR THEN -- ORA-06502 SQLCODE = -6502 数值转换错误
...
WHEN ZERO_DIVIDE THEN -- ORA-01476 SQLCODE = -1476 被零除
...
WHEN OTHERS THEN -- 其它任何错误的处理
...
END;3) 用户定义的例外
DECLARE
FIND_DATA_EMP EXCEPTION;
BEGIN
IF ... THEN
RAISE FIND_DATA_EMP;
END IF;
EXCEPTION
WHEN LOB_NO_LOCKED THEN
...
END;
4) EXCEPTION_INIT的使用
PRAGMA EXCEPTION_INIT(例外名, ORACLE错误号);
注：PRAGMA 是一个编译器命令，可以认为是对编译器的一个注释。
例：
DECLARE
ZERO_DIVIDE1 EXCEPTION;
PRAGMA EXCEPTION_INIT(ZERO_DIVIDE1, -1476);
BEGIN
...
EXCEPTION
WHEN ZERO_DIVIDE1 THEN
...
END;