Delphi 2009 et trigger FireBird

Version imprimable

15/02/2011, 20h39
Just-Soft

Delphi 2009 et trigger FireBird

Salut

voilà, dans ma bd FireBird, j'ai créé un déclencheur dont je veux l'exploiter sous delphi lors d'insertion d'un nouvel enregistrement, ce déclencheur fait un petit calcul pour générer un code dont il doit être attribuer au nouvel enregistrement. mais comme je l'ai jamais fais auparavant je ne sais pas la démarche à suivre malgré que j'ai fais une petite recherche sur le net sauf que j'ai pas aboutit.

je me retourne vers vous pour m'éclaircir. merci par avance.
16/02/2011, 07h18
SergioMaster

bonjour,
Sous Delphi , rien , c'est le moteur de Firebird (ou d'une autre SGBDR) qui fait le travail . Un trigger , contrairement a une procedure n'a pas besoin d'être 'lancé'.

Récupérer la valeur sous delphi , là par contre , c'est une autre paire de manches !!
soit tes composants permettent les Querys INSERT récupérant des valeurs (fib 2.5) et alors tant mieux (très peu le permette)
soit ce n'est pas le cas alors une relecture de l'enregistrement est nécessaire
16/02/2011, 09h55
Just-Soft

Citation:

Envoyé par SergioMaster

bonjour,
Sous Delphi , rien , c'est le moteur de Firebird (ou d'une autre SGBDR) qui fait le travail . Un trigger , contrairement a une procedure n'a pas besoin d'être 'lancé'.

Récupérer la valeur sous delphi , là par contre , c'est une autre paire de manches !!
soit tes composants permettent les Querys INSERT récupérant des valeurs (fib 2.5) et alors tant mieux (très peu le permette)
soit ce n'est pas le cas alors une relecture de l'enregistrement est nécessaire

oui c'est ce que je voulais dire récupérer la valeur du trigger pour pouvoir l'utiliser, donc si j'ai bien compris faudrait que le composant lui même le permette ! ok, je vais essayer avec les composants fib pourvu que je trouve la version qui marche avec delphi 2009.

par contre j'ai pas bien saisis ta dernière phrase

Citation:

soit ce n'est pas le cas alors une relecture de l'enregistrement est nécessaire

que veux-tu dire par relecture de l'enregistrement ? mon schéma est le suivant, lors d'un ajout je dois récupérer le code généré par le trigger donc l'enregistrement n'a pas encore été créé alors comment le relire sauf si tu parles d'autre chose :oops:

merci par avance.
16/02/2011, 13h07
makowski

avec n'importe quel bon composant un INSERT ... RETURNING et c'est réglé
16/02/2011, 13h19
Just-Soft

Citation:

Envoyé par makowski

avec n'importe quel bon composant un INSERT ... RETURNING et c'est réglé

alors là j'ai rien pigé :oops:
d'abord le insert pour aboutir a besoin du code généré par le trigger dont je ne sais comment l'exécuter sous delphi donc je me demande qu'est ce qui est réglé ? sauf si tu permets de me simplifier les choses avec un bout de code ou un descriptif du comment.

merci par avance.
16/02/2011, 13h39
Cl@udius

Citation:

Envoyé par Just-Soft

d'abord le insert pour aboutir a besoin du code généré par le trigger ...

Non c'est là ton erreur de raisonnement.
Lorsque tu fais un insert via une requête INSERT INTO ou via un DataSet (Insert/Append puis Post), le trigger Avant Insertion de ta table va se déclencher (tout seul comme un grand) et alimenter le code dont tu as besoin.

Si tu passes par une requête INSERT INTO .. RETURNING, comme le suggère Philippe, (voir notes de version ici), tu peux lui demander de te renvoyer la valeur du code. ;) (pas Philippe, l'Insert) :mrgreen:

@+ Claudius.
17/02/2011, 07h43
SergioMaster

Citation:

Envoyé par makowski

avec n'importe quel bon composant un INSERT ... RETURNING et c'est réglé

Voilà le hic , les 'bons' composants ne sont pas légion ;)

Citation:

que veux-tu dire par relecture de l'enregistrement ? mon schéma est le suivant, lors d'un ajout je dois récupérer le code généré par le trigger donc l'enregistrement n'a pas encore été créé

je n'avais pas suivi le raisonnement jusqu'au bout :oops:

[Délire non vérifié]
Ceci dit , si c'est une seule valeur ca peut peut être se contourner en utilisant une 'variable' de Firebird et une interrogation sur RDB$DATABASE
[/Délire matinal] je préfére quand même les 'bons' composants :D
17/02/2011, 08h23
dehorter olivier

bonjour

pourquoi ne pas utiliser dans le trigger un POST_EVENT

qui pourrait ensuite etre recupere l'info par un composant 'alert' ou event selon les distributeurs ?

a+
17/02/2011, 10h52
Just-Soft

@SergioMaster : comment utilise-t-on une variable FireBird sous Delphi car je l'ai jamais fais auparavant ? un tuto peut-être que tu peux me filer.

@dehorter Olivier : un petit exemple si possible ou un tuto qui pourra me guider.

d'avance merci.
17/02/2011, 11h10
makowski

Citation:

Envoyé par Just-Soft

@SergioMaster : comment utilise-t-on une variable FireBird sous Delphi car je l'ai jamais fais auparavant ? un tuto peut-être que tu peux me filer.

@dehorter Olivier : un petit exemple si possible ou un tuto qui pourra me guider.

d'avance merci.

aucune de ces deux "solutions" ne sont bonnes
la bonne c'est vraiment tout simplement d'utiliser

Code:

INSERT ... RETURNING

http://www.developpez.net/forums/d98...-returning-id/
http://www.firebirdfaq.org/faq243/
17/02/2011, 11h38
Just-Soft

ok ok, je viens de voir la doc, l'exemple qu'ils donnent est le suivant :

Citation:

INSERT INTO T1 (F1, F2)
VALUES (:F1, :F2)
RETURNING F1, F2 INTO :V1, :V2;

je veux être sûr d'une seule chose, si le trigger se déclenche tout seul et qu'il alimente le insert j'ai pas besoin d'un returning car ce qui m'intéresse c'est que le champ en question soit renseigné.

autre chose, que dois-je mettre dans la partie value du champ en question puisque c'est le trigger qui s'en occupe sachant que ce champ est "not null".

merci encore.
17/02/2011, 14h47
makowski

mais dans ce cas tu n'as même pas besoin de returning
et ce n'est absolument pas une question pour le forum Delphi
c'est quoi le code de ton trigger ?
18/02/2011, 12h32
Just-Soft

Citation:

Envoyé par makowski

mais dans ce cas tu n'as même pas besoin de returning
et ce n'est absolument pas une question pour le forum Delphi
c'est quoi le code de ton trigger ?

Re,

merci mais je crois que je me suis mal expliqué !
je développe avec Delphi (donc je suis dans le bon forum :P) ma bd est FireBird, j'ai créé un trigger sa fonction étant de générer un code celui-ci doit être utilisé lors d'insertion d'un nouvel enregistrement. en lisant les différentes contributions j'ai compris que le trigger se déclenche tout seul en réponse à un append de la table en question. j'ai fais des essais en renseignant les différents champs de ma table sauf celui qui doit être renseigné par le trigger mais ça n'a pas marché ! je ne sais pas où est le problème c'est pourquoi j'ai pensé tout naturellement que j'ai loupé quelque chose entre Delphi - FireBird.

merci de m'orienter d'avantage.
18/02/2011, 12h59
Cl@udius

Citation:

Envoyé par Just-Soft

... ma bd est FireBird, j'ai créé un trigger sa fonction étant de générer un code ...

Montre-nous le code de ton trigger, pour vérifier que celui-ci fait bien ce que tu attends.

@+

c'est un bout de code assez simple :oops:

Code:

1
2
3
4
5
6
7
CREATE OR ALTER trigger tb_courrier_bi0 for tb_courrier
active before insert position 0
AS
begin
  IF ( NEW.CODE_COURRIER IS NULL ) THEN
    NEW.CODE_COURRIER = GEN_ID(GEN_TB_COURRIER_ID,1);
end

18/02/2011, 18h38
ouiouioui

et le générateur "GEN_TB_COURRIER_ID" existe bien ?
18/02/2011, 20h49
Just-Soft

Citation:

Envoyé par ouiouioui

et le générateur "GEN_TB_COURRIER_ID" existe bien ?

oui, il est bien là.

j'ai tenté d'appeler le trigger dans la clause insert comme suit mais ça n'a pas marché
Code:

1 2 3 4 insert into tb_courrier (code_courrier, code_type, code_famille, date_arrivee, ref, objet, mots_cles, piece_jointe, specifite, date_enregistrement, num_enregistrement, chemin_dur) values (tb_courrier_bi0, 1, 1, '01/01/2010', '36/ona/dg/2010', 'A/S du recrutement', 'recrutement', '', 'instruction', '03/01/2010', '3/2010', 'c:\courrier\intruction_du_01_01_2010.doc');
ça peut paraitre idiot mais ma connexion est tellement faible que j'ai pas pu récupérer un tuto ou une astuce sur le net donc je vous demande de m'éclairer sur comment faire l'appel du trigger à l'intérieur du insert.

merci encore.

18/02/2011, 21h32
Just-Soft

hihi, j'étais tellement bête sur ce coup là que j'ai pas compris qu'il fallait nullement renseigner le champs code_courrier ni le mettre dans la clause insert into ...

merci à vous tous, je continue à avancer, c'est une belle aventure FireBird, Delphi et application réseau :ccool: