Oracle 事务相关的一些测试
1.sqlplus 客户端正常退出
SQL> desc t; 名称 是否为空? 类型 ----------------------------------------- -------- ---------------------------- TSP TIMESTAMP(6) CNT NOT NULL NUMBER(38) SQL> insert into t values(sysdate,1); 已创建 1 行。 SQL> exit 从 Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production With the Partitioning, OLAP, Data Mining and Real Application Testing options 断开 C:\Users\zen>sqlplus hbkf_crm/hbkf_crm4test SQL*Plus: Release 11.2.0.1.0 Production on 星期日 11月 17 12:28:29 2013 Copyright (c) 1982, 2010, Oracle. All rights reserved. 连接到: Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production With the Partitioning, OLAP, Data Mining and Real Application Testing options SQL> select * from t; TSP --------------------------------------------------------------------------- CNT ---------- 17-11月-13 12.27.58.000000 下午 1 SQL>
语句正常执行sqlplus正常退出，sqlplus commit修改。
SQL> insert into t values(sysdate,2); 已创建 1 行。 SQL> insert into t values(sysdate,2); insert into t values(sysdate,2) * 第 1 行出现错误: ORA-00001: 违反唯一约束条件 (HBKF_CRM.SYS_C0011518) SQL> exit 从 Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production With the Partitioning, OLAP, Data Mining and Real Application Testing options 断开 C:\Users\zen>sqlplus hbkf_crm/hbkf_crm4test SQL*Plus: Release 11.2.0.1.0 Production on 星期日 11月 17 12:33:35 2013 Copyright (c) 1982, 2010, Oracle. All rights reserved. 连接到: Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production With the Partitioning, OLAP, Data Mining and Real Application Testing options SQL> select * from t; TSP --------------------------------------------------------------------------- CNT ---------- 17-11月-13 12.27.58.000000 下午 1 17-11月-13 12.33.19.000000 下午 2 SQL>
这里应该是显示的语句级原子性。
SQL> select name,text from user_source t where t.name ='P1'; NAME TEXT ----- ------------------------------------------------------------ P1 procedure p1(num INT) P1 IS P1 P1 BEGIN P1 P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+1); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 COMMIT; P1 NAME TEXT ----- ------------------------------------------------------------ P1 end p1; 已选择12行。 SQL> exec p1(6); BEGIN p1(6); END; * 第 1 行出现错误: ORA-00001: 违反唯一约束条件 (HBKF_CRM.SYS_C0011518) ORA-06512: 在 "HBKF_CRM.P1", line 9 ORA-06512: 在 line 1 SQL> select * from t; TSP ------------------------------------------------------------------------- CNT ---------- 17-11月-13 12.27.58.000000 下午 1 17-11月-13 12.49.08.000000 下午 3 17-11月-13 12.33.19.000000 下午 2 TSP ------------------------------------------------------------------------- CNT ---------- 17-11月-13 12.46.55.000000 下午 4 17-11月-13 12.47.23.000000 下午 5 SQL> select name,text from user_source t where t.name ='P1'; NAME TEXT ----- ------------------------------------------------------------ P1 procedure p1(num INT) P1 IS P1 P1 BEGIN P1 P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+1); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 COMMIT; P1 EXCEPTION WHEN OTHERS THEN NAME TEXT ----- ------------------------------------------------------------ P1 dbms_output.put_line(sqlcode||':'||SQLERRM); P1 P1 end p1; 已选择14行。 SQL> exec p1(6); PL/SQL 过程已成功完成。
SQL> select tsp,cnt from t; TSP CNT ---------------------------------- ---------- 17-11月-13 01.00.20.000000 下午 6 17-11月-13 01.00.20.000000 下午 7 17-11月-13 01.00.20.000000 下午 8 17-11月-13 12.27.58.000000 下午 1 17-11月-13 12.49.08.000000 下午 3 17-11月-13 12.33.19.000000 下午 2 17-11月-13 12.46.55.000000 下午 4 17-11月-13 12.47.23.000000 下午 5 已选择8行。 SQL>
可以看出TOM大师为何对 when others 语句如此有看法了SQL> select name,text from user_source t where t.name ='P1';
NAME TEXT ----- ------------------------------------------------------------ P1 procedure p1(num INT) P1 IS P1 P1 BEGIN P1 P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+1); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 COMMIT; P1 EXCEPTION WHEN OTHERS THEN NAME TEXT ----- ------------------------------------------------------------ P1 dbms_output.put_line(sqlcode||':'||SQLERRM); P1 ROLLBACK; P1 end p1; 已选择14行。 SQL> exec p1(10); PL/SQL 过程已成功完成。 SQL> select * from t; TSP CNT ---------------------------------- ---------- 17-11月-13 12.27.58.000000 下午 1 17-11月-13 12.49.08.000000 下午 3 17-11月-13 12.33.19.000000 下午 2 17-11月-13 12.46.55.000000 下午 4 17-11月-13 12.47.23.000000 下午 5
--加上rollback 可以回滚整个事务。
SQL> select name,text from user_source t where t.name ='P1'; NAME TEXT ----- ------------------------------------------------------------ P1 procedure p1(num INT) P1 IS P1 P1 BEGIN P1 P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+1); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 INSERT INTO t(tsp,cnt) VALUES(sysdate,num+2); P1 COMMIT; P1 EXCEPTION WHEN OTHERS THEN NAME TEXT ----- ------------------------------------------------------------ P1 dbms_output.put_line(sqlcode||':'||SQLERRM); P1 --ROLLBACK; P1 RAISE; P1 end p1; 已选择15行。
SQL> exec p1(10); BEGIN p1(10); END; * 第 1 行出现错误: ORA-00001: 违反唯一约束条件 (HBKF_CRM.SYS_C0011518) ORA-06512: 在 "HBKF_CRM.P1", line 14 ORA-06512: 在 line 1 SQL> select * from t; TSP CNT ---------------------------------- ---------- 17-11月-13 12.27.58.000000 下午 1 17-11月-13 12.49.08.000000 下午 3 17-11月-13 12.33.19.000000 下午 2 17-11月-13 12.46.55.000000 下午 4 17-11月-13 12.47.23.000000 下午 5
--抛出异常也会使事务回滚。
一个好的习惯是捕获到了错误，要么回滚，要么抛出异常。
