Discussion :

[mls]

Bonjour,

J'ai un projet Delphi où j'insère un enregistrement dans une table ayant au auto increment en clé primaire.
J'aimerai récupérer cette valeur de l'auto increment lorsque je viens de l'ajouter dans la table.

Avec l'outil IBExpert, pas de problème, cela fonctionne :

Code :

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

INSERT INTO ma table (ch1, ch2, ...) VALUES (val1, val2, ....) RETURNING ch1;

Cette syntaxe me permet de récupérer la valeur de l'auto increment venant d'être inséré (ici "ch1").


Avec Delphi, voici le code que j'utilise (avec un TSimpleDataSet nommé DT) :

Code :

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

1
2
3
4
5
...
DT.DataSet.CommandText := 'INSERT INTO ma_table (ch1, ch2, ...) VALUES (:val1, :val2, ....) RETURNING ch1';
...
DT.Execute;
...

L'insertion fonctionne parfaitement mais comment récupérer la valeur de l'auto increment venant d'être inséré dans "ch1" ?

Merci beaucoup d'avance...

[Just-Soft]

Salut;

je crois que tu peux la retrouver dans l'évènement beforeinsert ou beforepost.
mais j'ai une remarque à faire, en général on n'utilise pas un champ auto incrément comme clé primaire c'est très difficile à maintenir surtout si tu fais des suppressions que ce champ est utilisé dans des relations maitre détail.

[Andry]

Salut;
mais j'ai une remarque à faire, en général on n'utilise pas un champ auto incrément comme clé primaire c'est très difficile à maintenir surtout si tu fais des suppressions que ce champ est utilisé dans des relations maitre détail.

Et pourquoi donc est ce si difficile à maintenir ?
La gestion des relations maitre/détail doit être mis au niveau de la base de donnée.
mls >>>
Le truc que je fais tous les jours c'est de récupérer la valeur du générateur avant l'insertion, et d'utiliser cette valeur dans les insertions.

A+

[Just-Soft]

Et pourquoi donc est ce si difficile à maintenir ?

j'expose le problème de suppression qui entraine un décalage et pour y remédier on fait un compactage ou un ordonnancement, comment tu fais si tu as une relation maître/détail basé sur ce champ sachant que tu restructure ta base de données après les suppressions ?

[Cl@udius]

Salut

L'insertion fonctionne parfaitement mais comment récupérer la valeur de l'auto increment venant d'être inséré dans "ch1" ?

Tu dois considérer cette valeur retournée comme un champ.

Code :

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

1
2
3
4
5
...
DT.DataSet.CommandText := 'INSERT INTO ma_table (ch1, ch2, ...) VALUES (:val1, :val2, ....) RETURNING ch1';
...
DT.Execute;
ID := DT.FieldByName('ch1').AsInteger;

@+ Claudius

[Andry]

j'expose le problème de suppression qui entraine un décalage et pour y remédier on fait un compactage ou un ordonnancement, comment tu fais si tu as une relation maître/détail basé sur ce champ sachant que tu restructure ta base de données après les suppressions ?

Généralement, ma clé primaire est juste un nombre sans signification particulier au niveau de ma table; dans la relation maitre/détail, la suppression est géré en cascade grâce à la contrainte imposé.

Ceci dis, chacun à ses méthodes .

[mls]

Salut



Tu dois considérer cette valeur retournée comme un champ.

Code :

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

1
2
3
4
5
...
DT.DataSet.CommandText := 'INSERT INTO ma_table (ch1, ch2, ...) VALUES (:val1, :val2, ....) RETURNING ch1';
...
DT.Execute;
ID := DT.FieldByName('ch1').AsInteger;

@+ Claudius

En fait, j'y avais déjà pensé mais cela ne fonctionne pas. Une exception est générée comme quoi le champ "ch1" n'existe pas...

[Just-Soft]

Généralement, ma clé primaire est juste un nombre sans signification particulier au niveau de ma table; dans la relation maitre/détail, la suppression est géré en cascade grâce à la contrainte imposé.

Ceci dis, chacun à ses méthodes .

c'est pour cela que je dis qu'il faut éviter

[SergioMaster]

un petit tour dans la FAQ de firebird (qui hélas reste au point mort depuis quelque temps, faute de volontaire)

http://firebird.developpez.com/faq/i...ator#GEN_GETID

donne le point de départ

la réponse :

Code SQL :

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

1
2
3
 
SELECT GEN_ID(GEN_MON_GENERATEUR,0) FROM 
RDB$DATABASE;

[Andry]

SergioMaster >>>
Il faudra peut être incrémenter la valeur du générateur dans la requête et utiliser directement la valeur obtenue. Ceci pour éviter, les oublis d'incrémentation et les doublons en mode multi-utilisateur.
mls >>>
Tu lance cette requête

Code :

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

1
2
3
 
SELECT GEN_ID(GEN_MON_GENERATEUR,1) FROM 
RDB$DATABASE;

Une fois que tu as cette valeur, tu peux l'affecter directement à tes champs pour les inserts.

[SergioMaster]

@Andry
en fait le 0 était bien intentionnel car si cette valeur est mise par Firebird lui même (dans un trigger par exemple) , je laisse imaginer la suite

de plus Barbibulle l'explique bien je pense

Quant a la question posée elle était

J'aimerai récupérer cette valeur de l'auto increment lorsque je viens de l'ajouter dans la table.

donc pas d'incrémentation a faire

[mls]

Bonjour, merci beaucoup pour toutes vos réponses apportées...

En ce qui concerne le code

Code :

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

1
2
SELECT GEN_ID(GEN_MON_GENERATEUR,0) FROM 
RDB$DATABASE

j'ai peur qu'en mode multi-utilisateur, cela ne fonctionne pas à tous les coups si entre temps un utilisateur a eu le temps d'insérer un enregistrement dans la table (entre le INSERT et ce SELECT) .

J'ai pense avoir trouvé une solution : comme je n'ai toujours pas trouvé comment récupérer (avec le composant TSimpleDataSet) une valeur, en l'occurence, l'auto-incrément venant d'être inséré avec cette syntaxe (comme indiqué dans mon premier message)

Code :

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

INSERT INTO ..... VALUES ... RETURNING ch1

j'ai utilisé exactement cette syntaxe avec en plus la syntaxe "INTO"

Code :

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

INSERT INTO ..... VALUES ... RETURNING ch1 INTO :variable1

mais à l'intérieur d'une procédure stockée, ce qui me permet de retourner la valeur de l'auto-incrément dans la variable de retour "variable1" que je peux lire avec cette fois-ci un TSQLStoredProc.

Merci à tous d'avoir creusé vos neurones pour moi...
@+