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

create table test1(id number,name varchar2(20));create table test2(id number,name varchar2(20));create table test3(id nu

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    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        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        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

8.  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     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

9.  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     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     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时默认提交.

，