Discussion :

[mahieus]

Bonjour,

Je souhaite créé un trigger qui s'exécute en fonction de la valeur d'un champ. J'ai cherché sur le net et dans le forum, mais je n'ai rien trouvé de concret.

Quelqu'un aurait-il un petit bout de code ou un lien qui puisse m'aider s'il vous plait ?

Merci d'avance.

[McM]

trigger for each row avec clause when

et une recherche sur "oracle trigger clause when"
http://download.oracle.com/docs/cd/B...s_triggers.htm

[ORA-007]

et dans le forum, mais je n'ai rien trouvé de concret.

http://sheikyerbouti.developpez.com/...age=Chap6#L6.1

[mahieus]

J'ai fait ce code :

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
 
CREATE OR REPLACE TRIGGER "ISILOG"."Z_MAIL_TICKET"
     AFTER INSERT
     ON ISILOG.APPEL
     FOR EACH ROW
begin
  if :NEW.C_SOCIETE = 'INFOSYS' then
      execute immediate 'alter session set smtp_out_server = ''127.0.0.1''';
      utl_mail.send(sender => 'alerte@site.local',
      recipients => 'alerte@site.local',
      subject => 'alerte Oracle trigger',
      message => 'nouvel enregistrement',
      mime_type => 'text; charset=us-ascii');
  end if;
 end;
/

Il m'affiche cette erreur :
Avertissement : Déclencheur créé avec erreurs de compilation.
Il m'indique l'erreur PLS-00048 : variable attachée (bind variable) erronée 'NEW.C_SOCIETE';

C_SOCIETE est un champ de la table APPEL du schéma ISILOG.

[McM]

Compare chaque ligne du code de sheik et du tien.. tu vas voir une différence rapidement sur un mot clé absent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
SQL> CREATE OR REPLACE TRIGGER TRG_BDR_EMP
  2     BEFORE DELETE -- avant supression
  3     ON EMP        -- sur la table EMP
  4     FOR EACH ROW  -- pour chaque ligne
  5  Declare
  6    LC$Chaine VARCHAR2(100);
  7  Begin  
  8    dbms_output.put_line( 'Suppression de l''employé n° ' || To_char( :OLD.empno )
  9       || ' -> ' || :OLD.ename ) ;
 10  End ;
 11  /
 
Déclencheur créé.

[skuatamad]

Par contre il est préférable de ne pas envoyer le mail depuis le trigger mais via un job cf email in PL/SQL

[mahieus]

Problème résolu. Voici mon code PL/SQL :

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
 
CREATE OR REPLACE TRIGGER "ISILOG"."Z_MAIL_TICKET"
     AFTER INSERT ON ISILOG.APPEL
     FOR EACH ROW
 
declare
     ticket varchar2(100);
 
begin
    ticket := :new.IDT_APPEL;
    if :new.C_EQUIPE = 'INFOSYS' then
      execute immediate 'alter session set smtp_out_server = ''127.0.0.1''';
      utl_mail.send(sender => 'alerte@site.local',
      recipients => 'alerte@site.local',
      subject => 'alerte Oracle trigger',
      message => 'nouvel enregistrement - no ' || to_char(ticket),
      mime_type => 'text; charset=us-ascii');
   end if;
 end;
/

Merci à tous pour votre aide.

[McM]

Tu n'es pas obligé d'avoir une variable ticket

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
CREATE OR REPLACE TRIGGER "ISILOG"."Z_MAIL_TICKET"
     AFTER INSERT ON ISILOG.APPEL
     FOR EACH ROW
 
declare
begin
    IF :new.C_EQUIPE = 'INFOSYS' 
   then
      execute immediate 'alter session set smtp_out_server = ''127.0.0.1''';
      utl_mail.send(sender => 'alerte@site.local',
      recipients => 'alerte@site.local',
      subject => 'alerte Oracle trigger',
      message => 'nouvel enregistrement - no ' || to_char(:new.IDT_APPEL),
      mime_type => 'text; charset=us-ascii');
   end IF;
 end;

Sinon avec clause WHEN

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
CREATE OR REPLACE TRIGGER "ISILOG"."Z_MAIL_TICKET"
     AFTER INSERT ON ISILOG.APPEL
     FOR EACH ROW
 WHEN (new.C_EQUIPE = 'INFOSYS')
declare
begin
       execute immediate 'alter session set smtp_out_server = ''127.0.0.1''';
      utl_mail.send(sender => 'alerte@site.local',
      recipients => 'alerte@site.local',
      subject => 'alerte Oracle trigger',
      message => 'nouvel enregistrement - no ' || to_char(:new.IDT_APPEL),
      mime_type => 'text; charset=us-ascii');
 end;

[mahieus]

Très bien, merci.