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);
已建立 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 end tri_table;
9 /
已建立觸發程式.
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;
Updatting rownum: 1
Updatting rownum: 2
Updatting rownum: 3
Updatting rownum: 4
Updatting rownum: 5
已更新 5 個資料列.
SQL>
SQL> spool off