Bonjour,
pas des solutions!!

Bonjour,
oui c'est exactement ça mais j'ai pas pu faire ça

Bonjour,

ça a été développé en Oracle 8 (on est en 10 maintenant mais ce n'est plus utilisé, je ne sais donc pas si ça marche en 10).

Il faut déclarer la fonction et ses paramètres (à adapter à tes besoins) comme suit (avec AUTHID CURRENT_USER, c'est important) :

CREATE OR REPLACE FUNCTION SHEMA.swe_trigger_mk_avec_user_FU
(p_a_i_table     IN    VARCHAR2,
 p_a_i_champs    IN    VARCHAR2,
 p_a_i_colonne    IN    VARCHAR2,
 p_a_i_table_mk  IN    VARCHAR2) RETURN VARCHAR2
AUTHID CURRENT_USER
IS
-- Déclarer une variable pour la syntaxe du trigger
p_v_syntaxe_trigger_I VARCHAR2(5000);      -- Syntaxe du CREATE TRIGGER pour l'INSERT

-- Initialiser le script de création du trigger

  p_v_syntaxe_trigger_I :=
         'CREATE OR REPLACE TRIGGER SHEMA.'||p_a_i_table||'_MK_AI_TR_1 '||chr(10)||
      'AFTER INSERT ON SHEMAS.'||p_a_i_table||' '||chr(10)||
      'REFERENCING OLD AS OLD NEW AS NEW '||chr(10)||
      'FOR EACH ROW '||chr(10)||
      'DECLARE '||chr(10)||
      '  p_v_id_table_old NUMBER;         -- ID OLD de la table '||chr(10)||
      '  p_v_id_table_new NUMBER;         -- ID NEW de la table '||chr(10)||
      'BEGIN '||chr(10)||
    '  p_v_id_table_old := :OLD.'||p_a_i_colonne||';'||chr(10)||
    '  p_v_id_table_new := :NEW.'||p_a_i_colonne||';'||chr(10);
-- Ton traitement
  p_v_syntaxe_trigger_I := p_v_syntaxe_trigger_I||chr(10)||
      '  -- Ton traitement ICI'||chr(10)||
-- Fin
  p_v_syntaxe_trigger_I := p_v_syntaxe_trigger_I||chr(10)||
      'END;';

-- Finalement la création
EXECUTE IMMEDIATE(p_v_syntaxe_trigger_I);

Il faut que le user ait les droits de création des triggers au niveau DB lors de l'appel.

J'espère que ça t'aidera

Conseil : fais des tests via un outil (TOAD par ex) pour la mise au point et commence par un trigger simple pour bien mettre en place tout ça. Appel via PB seulement après.

Bonne chance

Geo

Dernière modification par Geo (23-01-2012 16:17:57)

La procédure n'est à utiliser qu'une fois pour créer le trigger sur une table donnée...
Il suffit de mettre AFTER UPDATE à la place de AFTER INSERT

je pense qu'il faut que tu révises la notion de trigger
c'est justement le principe d'un trigger de faire quelque chose après chaque insert/update/delete sur une table donnée

il faut que tu crées un trigger par table/champ...

Code: sql

SET SERVEROUTPUT ON SIZE 1000000
SET VERIFY OFF
SET TRIMSPOOL ON
DECLARE
  v_owner  VARCHAR2(30) := UPPER('&1');
  v_table  VARCHAR2(30) := UPPER('&2');

  CURSOR c_columns IS
    SELECT column_name
    FROM   all_tab_columns
    WHERE  owner      = v_owner
    AND    table_name = v_table;
BEGIN
  DBMS_OUTPUT.PUT_LINE('CREATE OR REPLACE TRIGGER ' || v_table || '_aiudr_trg');
  DBMS_OUTPUT.PUT_LINE('AFTER INSERT OR UPDATE OR DELETE ON ' || v_table);
  DBMS_OUTPUT.PUT_LINE('FOR EACH ROW');
  DBMS_OUTPUT.PUT_LINE('DECLARE');
  DBMS_OUTPUT.PUT_LINE('  PRAGMA AUTONOMOUS_TRANSACTION;');
  DBMS_OUTPUT.PUT_LINE('  v_action VARCHAR2(30) := ''NONE'';');
  DBMS_OUTPUT.PUT_LINE('BEGIN');
  DBMS_OUTPUT.PUT_LINE('  IF INSERTING THEN');
  DBMS_OUTPUT.PUT_LINE('    v_action := ''INSERT'';');
  DBMS_OUTPUT.PUT_LINE('  ELSIF UPDATING THEN');
  DBMS_OUTPUT.PUT_LINE('    v_action := ''UPDATE'';');
  DBMS_OUTPUT.PUT_LINE('  ELSIF DELETING THEN');
  DBMS_OUTPUT.PUT_LINE('    v_action := ''DELETE'';');
  DBMS_OUTPUT.PUT_LINE('  END IF;');
    
  DBMS_OUTPUT.PUT_LINE('  tsh_audit.insert_log (');
  DBMS_OUTPUT.PUT_LINE('    SYS_CONTEXT(''USERENV'',''CLIENT_IDENTIFIER''),');
  DBMS_OUTPUT.PUT_LINE('    ''' || v_table || ''',');
  DBMS_OUTPUT.PUT_LINE('    v_action,');
  FOR cur_rec IN c_columns LOOP
    IF c_columns%ROWCOUNT > 1 THEN
      DBMS_OUTPUT.PUT_LINE('||');
    END IF;
    DBMS_OUTPUT.PUT('    ''NEW.' || cur_rec.column_name || '=['' || :NEW.' || cur_rec.column_name || ' || ''] ' ||
                         'OLD.' || cur_rec.column_name || '=['' || :OLD.' || cur_rec.column_name || ' || '']'' ');
  END LOOP;
  DBMS_OUTPUT.NEW_LINE;
  DBMS_OUTPUT.PUT_LINE('  );');
  
  DBMS_OUTPUT.PUT_LINE('  COMMIT;');
  DBMS_OUTPUT.PUT_LINE('END;');
  DBMS_OUTPUT.PUT_LINE('/');
  DBMS_OUTPUT.PUT_LINE('SHOW ERRORS');
END;
/

The script should be saved on the filesystem as audit_trigger.sql and called as follows.

Code: sql

SQL> @audit_trigger my_schema my_table

infopower a écrit:

Tu veux dire par filesystem (le repertoire ou j’ai installé l’oracle dans \bin) ?

filesystem = système de fichiers, en gros ton disque dur...
(c'est pas moi qui le dit, hein!)

infopower a écrit:

Je dois mette quoi exactement dans la chaine my_schema et my_table

bah le nom de ton schéma et la table sur laquelle tu veux créer les triggers d'audit de chaque colonne