Oracle中存储过程如何控制提交和回滚

create table test1（id number,name varchar2（20））;
create table test2（id number,name varchar2（20））;
create table test3（id number,name varchar2（20））;1. t1中没有显示commit;create or replace procedure t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
end loop;
end;t1中没有显示commit;exec t1 之后,如果不退出session的话,是不会提交的,此时如果rollback,则回滚,如果commit则提交, 如果disconn的话,会自动提交; 2. t1中有显示commit;CREATE OR REPLACE procedure SCOTT.t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
    commit;
end loop;
end;
/
t1中有显示commit时:exec t1之后,会直接提交;
3. CREATE OR REPLACE procedure SCOTT.t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
    commit;
    if i=20 then
       exit;
    end if;
end loop;
end;
/循环中有显示commit, exit前已经提交的就commit了.
4. procedure中既有commit也有rollback,commit之前的就提交,commit和rollback之间的就回滚.CREATE OR REPLACE procedure SCOTT.t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
    commit;
    if i=20 then
     rollback;
     exit;
    end if;
end loop;
end;
/4. procedure中既有commit也有rollback,commit之前的就提交,commit和rollback之间的就回滚.CREATE OR REPLACE procedure SCOTT.t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
    commit;
    if i=20 then
     rollback;
     exit;
    end if;
end loop;
end;
/
5.procedure中有部分commit,commit之前的就提交,commit之后的就不提交,如果在session中rollback则回滚,commit则提交,退出自动提交.CREATE OR REPLACE procedure SCOTT.t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
    if i<20 then
    commit;
    end if;
end loop;
end;
/
6. procedure中没有显示commit和rollback, 如果程序出错,则强制退出程序并回滚.CREATE OR REPLACE procedure SCOTT.t1
as
    var_name varchar2（20）;
begin
for i in 1..10000 loop
    insert into test1（id） values（i）;
    if i=100 then
      select name into var_name from test1 where id=0 ; --模拟出错
    end if;
end loop;
end;
/
6. procedure中有显示commit, 如果程序出错,commit之前的就已经提交了,commit和出错之间的强制回滚.
CREATE OR REPLACE procedure SCOTT.t1
as
    var_name varchar2（20）;
begin
for i in 1..10000 loop
    insert into test1（id） values（i）;
    if i<20 then
        commit;
    end if;

    if i=100 then
      select name into var_name from test1 where id=0 ;
    end if;
end loop;
end;
/result: 19
7. 嵌套出错. 出错前commit的就提交了,未commit的强制退出程序并回滚.create or replace procedure t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
end loop;
commit;
t2;
end;CREATE OR REPLACE procedure SCOTT.t2
as
    var_name varchar2（20）;
begin
for i in 1..10000 loop
    insert into test2（id） values（i）;
    if i<20 then
        commit;
    end if;

    if i=100 then
      select name into var_name from test1 where id=0; --出错的地方.
    end if;
end loop;
end;
/t1:10000
t2:198. t1嵌套t2, t2的commit对t1也起效.
create or replace procedure t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
end loop;
t2;
end;CREATE OR REPLACE procedure SCOTT.t2
as
    var_name varchar2（20）;
begin
for i in 1..10000 loop
    insert into test2（id） values（i）;
    if i<20 then
     commit;
    end if;

    if i=100 then
      select name into var_name from test1 where id=0;
    end if;
end loop;
end;
/t1: 10000
t2:199. t1嵌套t2, t2的rollback对t1也起效.
create or replace procedure t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
end loop;
t2;
end;CREATE OR REPLACE procedure SCOTT.t2
as
    var_name varchar2（20）;
begin
for i in 1..10000 loop
    insert into test2（id） values（i）;
    if i<20 then
     commit;
    end if;

    if i=100 then
      select name into var_name from test1 where id=0;
    end if;
end loop;
end;
/t1: 10000
t2:19
10. t1嵌套t2,t2嵌套t3, 出错前commit的提交,未提交的强制回滚.CREATE OR REPLACE procedure SCOTT.t1
as
begin
for i in 1..10000 loop
    insert into test1（id,name） values（i,"leng"||i）;
end loop;
t2;
end;
/CREATE OR REPLACE procedure SCOTT.t2
as
begin
for i in 1..10000 loop
    insert into test2（id,name） values（i,"leng"||i）;
end loop;
t3;
end;
/
CREATE OR REPLACE procedure SCOTT.t3
as
    var_name varchar2（20）;
begin
for i in 1..10000 loop
    insert into test3（id） values（i）;
    if i<20 then
     commit;
    end if;

    if i=100 then
      select name into var_name from test1 where id=0;
    end if;
end loop;
end;
/t1:10000
t2:10000
t3:19
11. 总结
把一个procedure中所有的程序和语句看成顺序执行,不管是嵌套多少层,commit的就起效,未commit的,如果出错则从出错的地方强制退出程序,如果不出错,退出session时默认提交.Oracle 更改 db_name 的方法巧用sqlplus跟踪性能相关资讯 Oracle数据库 Oracle入门教程 oracle数据库教程

Oracle数据库全球化（03月01日）
Oracle数据库日期过滤方法性能比较（02/02/2015 13:20:26）
Oracle数据库安装中端口被占用问题（10/29/2014 07:42:24）

在CentOS 6.6上搭建C++运行环境并（10/10/2015 19:44:40）
Oracle数据库无法使用localhost和（11/14/2014 16:39:10）
使用SQLT来构建Oracle测试用例（08/28/2014 06:17:41）

本文评论查看全部评论（0）