如何在ORACLE中使用TRIGGER

microSys

CREATE OR REPLACE TRIGGER trigger_insert
AFTER INSERT ON tableA
REFERENCING NEW AS newRow
FOR EACH ROW
BEGIN  
INSERT INTO tableA_tri VALUES (:newRow.acc_no, to_char(sysdate, 'yyyymmdd'), to_char(sysdate, 'HH24:MI:SS'), 'INSERT', USERENV('TERMINAL'));
END;
/

CREATE OR REPLACE TRIGGER trigger_update
AFTER UPDATE ON tableA
REFERENCING NEW AS newRow
FOR EACH ROW
BEGIN  
INSERT INTO tableA_tri VALUES (:newRow.acc_no, to_char(sysdate, 'yyyymmdd'), to_char(sysdate, 'HH24:MI:SS'), 'UPDATE', USERENV('TERMINAL'));
END;
/


CREATE OR REPLACE TRIGGER trigger_delete
AFTER DELETE ON tableA
FOR EACH ROW
BEGIN  
INSERT INTO tableA_tri VALUES (ld.acc_no, to_char(sysdate, 'yyyymmdd'), to_char(sysdate, 'HH24:MI:SS'), 'DELETE', USERENV('TERMINAL'));
END;
/

白日梦

以下是 Visual FoxPro 的 Trigger 的语法。（供参考）
Create Trigger On TableName For Delete / Insert / Update As lExpression
Delete Trigger On TableName For Delete / Insert / Update

使用方法：

1. 
   
2. CLOSE DATABASES
   
3. 
   
4. OPEN DATABASE (HOME(2) + 'data\testdata')
   
5. USE customer  && Open customer table
   
6. 
   
7. * Set trigger on maxordamt field to fail with values <= 50
   
8. CREATE TRIGGER ON customer FOR UPDATE AS maxordamt <= 50
   
9. 
   
10. ON ERROR  && Restore the system error handler
    
11. 
    
12. WAIT WINDOW "Press a key to test trigger with value of 60"+CHR(13);
    
13. +"When you get the error message, press Ignore."
    
14. REPLACE maxordamt WITH 60    && Displays an error message
    
15. ? maxordamt
    
16. 
    
17. WAIT WINDOW "Press a key to test with value of 50."
    
18. REPLACE maxordamt WITH 50    && Value is accepted
    
19. ? maxordamt
    
20. DELETE TRIGGER ON customer FOR UPDATE  && Remove the trigger
    

复制代码