Discussion :

[pascalT]

Bonjour,
pour des bsoins de tracabilité d'une base, j'ai besoin d'enregistrer toutes les modifications apportées par l'utilisateur des qu'il modifie un enregistrement. Je veux enregistrer tous les champs modifiés avec l'ancienne valeur et la nouvelle valeur.
J'ai regardé l'evenement OnFieldChangeComplete mais j'arrive pas à utiliser l'objet Fields passé en paramètre (type OLEVariant).
Merci de votre aide.

[Amenofis]

Salut,


euh.... quel composant s'il te plait ??

@+

[alexmorel]

Je serais toi je mettrais plutot un trigger directement dans la base sur l'insertion, modication et la suppression..

Ce sera plus rapide et plus sur et facilement en place.

[ejaecker]

Salut,

J'ai réalisé ça récemment (base interbase)
En mettant un trigger sur une table 'Etab'.
Ci joint l'exemple d'un trigger 'after update'.
Ce trigger a pour effet de créer dans une table 'etab_log' un enregistrement qui ne contient QUE les données modifiées, ce là me semble plus facile à lire ensuite que si toutes les données étaient recopiées dans le log.

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
DECLARE VARIABLE fADRESSE1 char(60);
DECLARE VARIABLE fADRESSE2 char(60);
DECLARE VARIABLE fCODPOS   char(5);
DECLARE VARIABLE fETAB_ID  integer;
DECLARE VARIABLE fNOM      varchar(30);
DECLARE VARIABLE fVILLE    char(30);
 
begin
     if (new.ADRESSE1 = old.ADRESSE1) then fADRESSE1=''; else fADRESSE1=new.ADRESSE1;
     if (new.ADRESSE2 = old.ADRESSE2) then fADRESSE2=''; else fADRESSE2=new.ADRESSE2;
     if (new.CODPOS = old.CODPOS) then fCODPOS=''; else fCODPOS=new.CODPOS;
     if (new.NOM = old.NOM) then fNOM=''; else fNOM=new.NOM;
     if (new.VILLE = old.VILLE) then fVILLE=''; else fVILLE=new.VILLE;
     INSERT INTO ETAB_LOG(ETAB_ID, ADRESSE1, ADRESSE2, CODPOS, NOM, VILLE, DATEMODIF, USERMODIF)
            VALUES (new.ETAB_ID, :fADRESSE1, :fADRESSE2, :fCODPOS, :fNOM, :fVILLE, current_timestamp, (SELECT NOM FROM USERS WHERE USERS.USERS_ID=new.USER_ID));
end

Je trace également l'hheure de la modif et l'ID de l'utilisateur ayant effectué la modif.
Cette methode amène à faire des TRES longs triggers si la table a beaucoup de champs...Si quelqu'un a une méthode plus efficace/légère je suis également preneur.

Amicalement.

[pascalT]

j'ai trouvé une solution qui e convient en utilisant l'evt OnFieldChangeComplete :
pour le nom du champ : Fields[i].Name
pour l'ancienne valeur : Dataset.FieldByName(Fields[i].Name).OldValue
pour la nouvelle valeur : Dataset.FieldByName(Fields[i].Name).NewValue

PS : j'utilise les TADOQuery et SQL-Server