Discussion :

[Herveg]

bonjour,

je suis sous Oracle 9i et Forms 9i. J'ai un écran forms avec 15 champs basées. je souhaite savoir comment pourrais-jefaire pour savoir quelles sont les colonnes qui ont été modifiée au cours d'une opération de MAJ et garder leur anciennes valeurs dans une table de trace.

Merci pour un début de piste

[francois_boucher]

Le mieux est de créer un déclencheur dans la base de données qui va s'exécuter à la modification de la rangée. Tu fais ensuite référence à :old.<nom_colonne> pour connaitre la valeur avant le changement.

Pour connaitre les colonnes modifiées, tu compares :new.<nom_colonne> avec :old.<nom_colonne>.

L'option, côté client, est d'utiliser get_item_property('bloc.item', database_value).

[Herveg]

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
declare
new_value varchar2(30);
old_value varchar2(30):=get_item_property(:SYSTEM.CURRENT_ITEM, database_value);
begin
new_value:=name_in(:SYSTEM.TRIGGER_ITEM);
 if old_value<> new_value then
:descrip:='colonne '||:SYSTEM.CURRENT_ITEM||' est passée de  '||old_value||' à '||new_value;
insert into    operations(prefixe_operation,date_operation,utilisateur)
		values (:descrip,sysdate,user);
		commit;
		end if;
	end;

Bon mon souci : il dit tout le temps que :

Code :

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

 l'argument 1 de la Poocédure NAME_IN doit etre renseigné

Pouvez vous m'aider

[SheikYerbouti]

Essayez ceci:

Code :

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

new_value:=name_in('SYSTEM.TRIGGER_ITEM');

Mais je pense que la solution que l'on vous proposait était de gérer cela avec des triggers sur la table, et non dans la forme.

[Herveg]

d'accord mais est ce que je peux voir a quoi ressemble le code si j veux le géré coté base de données

merci

[SheikYerbouti]

Quelque chose comme cela:

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
CREATE OR REPLACE TRIGGER TRG_AU_EMP
   AFTER UPDATE -- apres mise a jour
   ON TABLE1     -- sur la table EMP
   FOR EACH ROW  -- pour chaque ligne
Begin
   -- Insertion dans la table mouchard --
   Insert into TABLE2 ( .... )
   Values
   (
      :OLD.EMPNO
     ,:OLD.ENAME
     ,...
   );
End ;
/