Discussion :

[yodaime]

Bonjour,

Je vous expose ce que j'aimerais faire.

Je voudrais créer un trigger de delete qui des qu'une ligne est deleter de ma table, insere dans une autre table la ligne deleter, l'heure ainsi que la personne/programme qui a fait le delete.

Mon problème est donc de savoir si il y a un moyen de connaitre la personne/programme qui a declenché le trigger.

Est possible ? (Je sais qu'on peu le faire avec Sybase)

J'espère avoir été clair.

Merci d'avance de vos réponses

[Waldar]

Probablement avec SYS_CONTEXT :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
select sys_context('USERENV', 'OS_USER')
  from dual;

[yodaime]

Effectivement, c'est exactement ça !

Merci beaucoup

[mnitu]

Juste une petit remarque: ça marche bien en client-serveur mais ça pourrait être non concluant en trois tiers.

[Mohamed.Houri]

Bonjour

1. ajouter les champs suivants dans votre table audit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
         USR_INS             VARCHAR2(48)
	USR_UPD            VARCHAR2(48)
	DAT_UPD            DATE
	DAT_INS            DATE
	PGM_UPD            VARCHAR2(100)
	PGM_INS            VARCHAR2(100)

2. ajouter un trigger(before update/delete) sur votre table cible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
  CREATE OR REPLACE TRIGGER audit_trig
 BEFORE DELETE
 ON table_cible
 REFERENCING OLD AS OLD NEW AS NEW
 FOR EACH ROW
DECLARE
   lv_module       VARCHAR2(48);
   lv_action       VARCHAR2(48);
   ld_current_date DATE         := SYSDATE;
   lv_current_user VARCHAR2(48) := USER;
BEGIN
   dbms_application_info.read_module(lv_module, lv_action);
   :NEW.usr_upd := lv_current_user;
   :NEW.dat_upd := ld_current_date;
   :NEW.pgm_upd := lv_module;
 
  insert into table_audit values (x,y,z,...,:NEW.usr_upd, :NEW.dat_upd ,:NEW.pgm_upd );
 
EXCEPTION
  WHEN OTHERS THEN
    RAISE
END audit_trig;
/

Bien à vous

Mohamed Houri

[mnitu]

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...
EXCEPTION
  WHEN OTHERS THEN
    RAISE
...

Pas beau

[Mohamed.Houri]

Pas beau

Quand cela n'est pas bon, il faut nous éclairer pourque l'on puisse se corriger
n'est ce pas?

Pas beau : ne nous apporte rien, ni à moi ni à ceux qui veulent savoir pourquoi.

Quant à la gestion des exceptions, Tom Kyte aurait aimer que le when others exception disparraisse du kernel PL/SQL à cause du nombre impressionant de personnes qui codent comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
WHEN OTHERS THEN
 NULL;

C'est pourquoi je préfère ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
CREATE OR REPLACE TRIGGER xxx_TRG
 BEFORE UPDATE
 ON xxx_tab
 REFERENCING OLD AS OLD NEW AS NEW
 FOR EACH ROW
DECLARE
   lv_module VARCHAR2(48);
   lv_action VARCHAR2(48);
   ld_current_date DATE := SYSDATE;
   lv_current_user VARCHAR2(48) := USER;
BEGIN
   dbms_application_info.read_module(lv_module, lv_action);
   :NEW.usr_upd := lv_current_user;
   :NEW.dat_upd := ld_current_date;
   :NEW.pgm_upd := lv_module;
EXCEPTION
  WHEN OTHERS THEN
    RAISE_APPLICATION_ERROR('-20000','xxx_trg');
END xxx_trg;
/

Ou carrément ceci (sans gestion des exceptions)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
CREATE OR REPLACE TRIGGER xxx_TRG
 BEFORE UPDATE
 ON xxx_tab
 REFERENCING OLD AS OLD NEW AS NEW
 FOR EACH ROW
DECLARE
   lv_module VARCHAR2(48);
   lv_action VARCHAR2(48);
   ld_current_date DATE := SYSDATE;
   lv_current_user VARCHAR2(48) := USER;
BEGIN
   dbms_application_info.read_module(lv_module, lv_action);
   :NEW.usr_upd := lv_current_user;
   :NEW.dat_upd := ld_current_date;
   :NEW.pgm_upd := lv_module;
END xxx_trg;
/

Bien à vous

Mohamed Houri

[mnitu]

Quand cela n'est pas bon, il faut nous éclairer pourque l'on puisse se corriger
n'est ce pas?
...

AskTom

why do people do this?????

EXCEPTION
WHEN OTHERS THEN
RAISE;
END;


what is the point, other than to make the code infinitely harder to debug. You know what you did by coding that?
...
So, the error is

EXCEPTION
WHEN OTHERS THEN
RAISE;
END;

remove them all, don't code that again, and then you'll find out where to look in your code.

[mnitu]

...
C'est pourquoi je préfère ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...EXCEPTION
  WHEN OTHERS THEN
    RAISE_APPLICATION_ERROR('-20000','xxx_trg');
END xxx_trg;
/

...

Why do people do this?

[Mohamed.Houri]

Why do people do this?

Oui mais contrairement à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
WHEN OTHERS THEN
  NULL;

Ceci n'est pas un bug

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
WHEN OTHERS THEN
  RAISE;

Savez vous que Tom Kyte a demandé pour la release 11g de supprimer le WHEN OTHERS THEN?

Mais le kernel PL/SQL ne l'a pas suivi. Il a juste ajouté un Warning lorsque ceci est codé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
WHEN OTHERS THEN
  NULL;

Je vais arreter là. Le bug est dans l'exception qui n'est pas suivi d'un RAISE et non l'inverse

Bien à vous

Mohamed Houri