关于cursor中的for update关键字

xiapi00

好帖,长见识

nothing315

存储过程结束用commit？

如果有这种情况，在Delphi写的程序中，启一个事务，事务中调用三个存储过程，
proc1
proc2
proc3

如果proc1成功，已commit
如果proc2不成功， 已rollback
那不是造成不一致的情况了吗？

最初由 app_kwan 发布
[B]

1>。在FOR UPDATE OF[/COLOR]之后所枚举的字段(column)，不一定是要被更新的字段。 -- 这个Hendytai 己证明了。

2>。此外，要么不用NOWAIT[/COLOR]；若用NOWAIT[/COLOR]，就必需最少枚举一个任意字段(column)。否则PLS-00404出现。例子，

请教：关于FOR UPDATE OF .. NOWAIT

注：这限制在Version 9i 应会除去。

3>。但是，有些朋友总觉得在FOR UPDATE OF[/COLOR]之后所枚举的字段(column)是多余的，
所以还觉不爽 -- 通常有这感觉的，大多是爱完美，那也是好的。

而解决的方法就是直接用ROWID替代WHERE CURRENT OF [I]YOUR_CURSOR_NAME[/I][/COLOR]语句。
例子如下，

[php]
declare
    -- query emp.name
    cursor cur_emp
        is
    select a.deptno,
           a.dname,
           a.rowid,
           b.rowid rowid_1
      from dept a, emp b
     where empno = 7369
       and a.deptno = b.deptno
       for update nowait;

    -- local variables
    v_deptno dept.deptno%type;
    v_dname dept.dname%type;
    v_rowid rowid;
    v_rowid_1 rowid;

begin
    open cur_emp;
    loop
    fetch cur_emp into v_deptno, v_dname, v_rowid, v_rowid_1;
    exit when cur_emp%notfound;

       update dept
          set dname = 'abc'
        where rowid = v_rowid;

       update emp
          set ename = 'frank'
        where rowid = v_rowid_1;

    end loop;
    close cur_emp;
    commit;
exception
    when others then
       rollback;
       raise;
end;
[/php]

由此，我自己的FOR UPDATE习惯是，

• NOWAIT[/COLOR]定然跟FOR UPDATE之后。
• 直接用ROWID替代WHERE CURRENT OF [I]YOUR_CURSOR_NAME[/I][/COLOR]语句，
  尤其在相对繁习的程序里头。
• COMMIT必需存在程序结尾。以防死锁成形。
• EXCEPTION里的ROLLBACK是最基本的需要。

希望这对大家基本认识FOR UPDATE有帮助。







- app [/B]

yangqingdelphi

好贴

assion

后面不必加字段，只是为了说明用而已

Allen.mei

for update 引發的討論。值得一看。

Hopewell_Go

学习了。。。呵呵

hanjs

最初由 app_kwan 发布
[B]Berbang 兄台，

希望这对你有帮助



“FOR UPDATE OF” 是“行锁”(locks on the row) -- 不存在字段加锁!



这“行锁”的作用

1>。始于一个CURSOR 的OPEN时候，

2>。终于一个完整的传送 --  COMMIT 或ROLLBACK，而不是CURSOR 的完结
(CLOSE [I]your_cursor_name[/I]) 。

3>。若有两个CURSOR 对同一“行”(row)中任意字段(column)作出更改(UPDATE[/COLOR])，
时间上的后一CURSOR会一直等待，至第一个传送完结为止 -- COMMIT 或ROLLBACK。

4>。若3>不被有效处理，死锁就成形。
例如：执行以下程序于两个session上，第二个session会一直处于等待。。。直至
第一个session执行COMMIT 或ROLLBACK为止。
[php]
declare
   -- query emp.name
   cursor cur_emp
       is
   select empno, ename, job
     from emp
    where empno = 7369
      for update of ename;
begin
   for return_cur in cur_emp
   loop   
      update emp
         set ename = 'LHG'
       where current of cur_emp;
   end loop;
end;
[/php]

5>。防止4>的方法之一是加NOWAIT在FOR UPDATE之后。如此，第二个session不会一
直等下去，而是出现ORA-00054 [resource busy and acquire with NOWAIT specified]的
讯息。






- app [/B]

学习了！

trampor

学习。。。

superlxw

向各位高手学习了
THANKS!

cnxcfeng

原帖由 nothing315 于 2006-5-1 09:07 发表
存储过程结束用commit？

如果有这种情况，在Delphi写的程序中，启一个事务，事务中调用三个存储过程，
proc1
proc2
proc3

如果proc1成功，已commit
如果proc2不成功， 已rollback
那不是造成不一致的情况了吗？

可以采用自主事务处理的办法，自主事务处理可以暂停主事务并处理过程内的COMMIT或ROLLBACK操作，然后恢复主事务处理。

上面的语句如果存储过程proc2不采用自主事务处理，则其内部的ROLLBACK操作会影响到外层主事务

可以这样解决：
create or replace procedure proc2
as
PRAGMA AUTONOMOUS_TRANSACTION;
begin
语句主体;
end;

PRAGMA AUTONOMOUS_TRANSACTION;这一语句设定proc2为自主事务处理，其中的rollback或者commit操作都不会影响外层的事务。