Discussion :

[frantzgac]

Delphi 7 avec Firebird 2.1

Généralement je gère les champs autoincrémenté (NOT NULL) avec un "trigger before" qui garnit la valeur de la requête SQL de création.

Depuis peu j'explore le fonctionnement de toutes les potentialités du TIBdataSet lequel contient une propriété GeneratorField laissant entendre qu'on peut se passer de Trigger.

Code :

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

1
2
	if ((new.bas_id is null) or (new.BAS_ID<1)) then
        new.bas_id=gen_id(gen_mail_base,1);

Pourtant si j'inactive le trigger et bien qu'ayant spécifié un GeneratorField, lors de la validation je reçois une erreur "le champ ID doit avoir une valeur".

Trigger qui comme on le voit ne fait rien si le champ n'est pas vide et > 0.

Si je le réactive ça fonctionne.

Intrigué par cette double nécessité (GeneratorField et Trigger) je tente de supprimer le GeneratorField (qui n'est possible qu'en éditant la fiche en mode texte d'ailleurs) et là l'erreur réapparait.

Ce n'est donc pas la propriété GeneratorField qui garnit la valeur sinon le trigger serait inutile. Or on a vu qu'ils était indispensable. A quoi sert elle donc ?

J'ajoute que les deux fonctions (Trigger et GeneratorField) ne font pas double emploi car contrairement à un cas sur le forum les enregistrements sont bien identifiés avec un pas de 1.

A noter que GeneratorField agit "sur le serveur" les autres options ne fonctionnant pas. (C/S sur le même poste)

[e-ric]

Salut

La notion de GeneratorField simule un auto-incrémenté mais c'est un mécanisme implémenté dans les composants (sans doute en affectant le champ avant le post de manière transparente pour eel développeur). Il me semble avoir vu ce genre de chose dans ZeosLib, il faut, si je me souviens bien, préciser le nom de la séquence à utiliser (il doit y avoir une propriété pour cela), vérifie. C'est peut-être pour ça que cela ne marche pas dans ton cas.

Perso, je ne me sers pas de ces choses, je gère moi-même ce champ car comme on ne sait pas quand a lieu la mise à jour du champ, ça peut être gênant. Exemple: si tu gères une relation de maître à détail, il faut être sûr que les clé de la table détails sont alignées sur celle de la table maître.

En bref, conserve ton trigger par sécurité et alimente la clé entière par code quand tu en as besoin en recherchant la nouvelle valeur à l'aide d'un SELECT.

Code sql :

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

SELECT gen_id(gen_mail_base,1) FROM RDB$DATABASE.

@+

[frantzgac]

Après quelques tests j'en viens à la conclusion suivante :

si on utilise un TIBDataSet pour gérer une table contenant un champ not_null (avec FireBird 2.1) il faut 2 conditions pour que l'exception "validation error for column..." ne se produise pas :

1 mettre un trigger before insert qui garnit le champ
2 remplir la propriété GeneratorField

Si on omet l'une ou l'autre des ces étapes on obtient une erreur au POST.

J'ai aussi essayé de garnir le champ dans événement beforepost du TIBDataSet mais cela n’élimine pas l'exception. Je suppose donc que le composant TIBDataSet fait quelque chose avec ce champ qui en retire la valeur qu'on y a mis dans le code avant d'exécuter la requête vers le serveur FB.

[e-ric]

Salut

Ne peux-tu pas effacer cette foutue propriété GeneratorField et gérer l'incrémentation dans l'événement BeforePost ?
Le trigger ne sert alors plus qu'à garantir la création de la clé en cas de défaut.
N'y aurait-il pas une propriété Required = True dans ton champ ?

Quelle est la classe de ton objet champ ?

Une autre solution, moins clean, consiste à affecter le compteur dans l'événement OnNewRecord mais alors tu consommes une valeur de la séquence même en cas d'annulation de la saisie.

@+