Discussion :

[touhami]

Bonjour a tous

Voila ce que j’ai fait :
Coté Interbase (Version 6.5) Code:

Code :

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

1
2
3
4
5
6
7
SET TERM ¨ 
CREATE TRIGGER POST_NOUV_PROD FOR Table_Produit 
AFTER INSERT AS 
BEGIN 
        POST_EVENT  ‘Nouveau_Produit’ ; 
END ¨ 
SET TERM ;¨

Coté Delphi (Version 7 entreprise)

J’ai déposé un composant IBevent dans Mon DataModule, Puis je lui affecter a la Propriété DataBase Name le Nom de ma Base de Donnée,
Dan la propriété Events j’ai ajouter le nom de l’événement (‘Nouveau_Produit’ le nom qui figure dans le déclencheur)
Dan l’événement EventAlert de mon fameux composant IBEvent j’ai ajouter le code suivant :

Code :

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

1
2
If EventName = ‘Nouveau_Produit’  then 
       MaBaseDonnee.Close ;

Mais rien ne se passe y a-t-il un problemet ?

Merci de me répondre.

[Andry]

Bah
Déjà, verifie le niveau de transaction que tu utilise pour le compo IbEvent et l'autre application qui fait l'insertion.

A+

[JustMe]

Je vais te donner quelques idées pour essayer de déceler ce qui ne va pas.

1- vérifie que le niveau de transaction et read committed.
2- met la propriété AutoRegister de IBEvents à True (car un événements à besoin d'être enregistré).
3- le test dans la même machine ne se décèle pas car tu as aussi l'application qui déclenche l'événement.(C'est à la fermeture de l'application qui déclenche l'événement que ça aura lieu).
4- ne t'alarme pas si ça ne marche pas

[Andry]

3- le test dans la même machine ne se décèle pas car tu as aussi l'application qui déclenche l'événement.(C'est à la fermeture de l'application qui déclenche l'événement que ça aura lieu).

Ce n'est pas toujours le cas.
J'ai déjà tester cette fonctionnalité sur la même machine et ça a fonctionné à merveille.
Maintenant.
Il faudra que je regarde dans mes sources.

A+

[JustMe]

J'utilise FireBird 1.5 je pense qu'il dois exister des différence avec InterBase. Merci pour l'info.

[Andry]

Je viens de tester sur une Table sous FireBird 1.5 avec le compos Ibx IBEvents :
1° : Insertion et interception evenement sur la même appli : OK
2° : Insertion sur une appli et interception sur une autre appli : OK

Si vous êtes interressé, je peux vous envoyer ma source.

A+

[JustMe]

Merci infiniment. Peut être que quand j'aurais un problème dans les événements j'en aurais besoin. Ca marche bien avec moi et je pense qu'on n'a pas besoin d'intercepter un Event par l'application qui le fait.
En tout cas merci trés chic de ta part.

[Andry]

En faites c'etais pour Touhami les sources.
Sinon, faut verifier que tu valide bien la transaction après ton insertion dans la table sinon, ton trigger ne se declanchera pas.

A+

[touhami]

Bonjour ,
Merci Baucoup pour ces Réponses , je vais prendre un comprimé d'Aspirine pour les mots de tête puis je vais entamer la programmation a nouveau :oops:
Merci Baucoup pour Andry ,JustMe