DBA挑战：对更新的行数进行限制

SQL> drop table table1;

表格已被廢棄

SQL>
SQL> create table table1(fact_no char(4), fact_odr_no char(10),odr_qty number(5));

表格已被建立

SQL>
SQL> insert into table1 values('0213','A3507001',35);
Updatting rownum: 1                                                                                 
Updatting rownum: 2                                                                                 
Updatting rownum: 3                                                                                 
Updatting rownum: 4                                                                                 

建立了 1 列

SQL> insert into table1 values('0213','A3507002',36);

建立了 1 列

SQL> insert into table1 values('0213','A3507003',37);

建立了 1 列

SQL> insert into table1 values('0213','A3507004',38);

建立了 1 列

SQL> insert into table1 values('0213','A3507005',39);

建立了 1 列

SQL> COMMIT;

確認完成

SQL>
SQL> create or replace package pkg_var
  2  as
  3   v_cnt number;
  4  end pkg_var;
  5  /

包裹程式已被建立

SQL>
SQL> create or replace trigger tri_table1
  2  after update
  3  on table1
  4  for each row
  5  begin
  6    pkg_var.v_cnt := nvl(pkg_var.v_cnt, 0) + 1;
  7    dbms_output.put_line('Updatting rownum: ' || pkg_var.v_cnt);
  8    if pkg_var.v_cnt > 3 then
  9    pkg_var.v_cnt := 0;
10    raise_application_error(-20008,'error!');
11  end if;
12  
13  end tri_table;
14  /

觸發程式已被建立

SQL>
SQL> create or replace trigger tri2_table1
  2  before update
  3  on table1
  4  begin
  5    pkg_var.v_cnt := 0;
  6  end tri2_table1;
  7  /

觸發程式已被建立

SQL>
SQL> SET SERVEROUTPUT ON;
SQL>
SQL> UPDATE TABLE1 SET ODR_QTY = ODR_QTY + 1
  2  where rownum < 3;
Updatting rownum: 1                                                                                 
Updatting rownum: 2                                                                                 

更新了 2 列

SQL>
SQL> UPDATE TABLE1 SET ODR_QTY = ODR_QTY + 1;
UPDATE TABLE1 SET ODR_QTY = ODR_QTY + 1
       *
ERROR 在行 1:
ORA-20008: error!
ORA-06512: 在 "S3MIS.TRI_TABLE1", line 6
ORA-04088: 執行觸發程式 'S3MIS.TRI_TABLE1' 時發生錯誤


SQL>
SQL>
SQL>
SQL> spool off

但是花销可不小，因为使用了行级trigger

 

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/13165828/viewspace-606344/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13165828/viewspace-606344/