Comment récupérer la valeur @@Identity ?

Hi,

Je n'arrive pas à récupérer la valeur @@Identity à partir de Delphi. La valeur inexorablement retournée est 0 alors que des enregistrements ont bien été ajoutés dans ma table.

Environnement : MySQL 5.1 (tables InnoDB), composants dbExpress, application multi-niveaux.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function TfrmCtrClient.RecupAutoInc: Integer; begin with SQLQuery do begin Close; with SQL do begin Clear; Add('SELECT @@Identity'); end; Open; RecupAutoInc:=FieldByName('@@Identity').AsInteger; end; end;

---

Une solution ?

Merci.

8-)

JJE

Ola,

J'ai trouvé :mrgreen: ! Cela m'a pris quelques heures de recherche sur internet, mais j'ai trouvé :mouarf: !

La variable @@Identity, ou LAST_INSERT_ID(), renvoit toujours la dernière valeur d'un champ Auto_Increment pour une connexion déterminée. Cela signifie que si deux utilisateurs, ayant leur propre connexion, ajoutent au même moment un enregistrement dans une même table, chacun récupérera sa propre valeur @@Identity. C'est bien pensé !

Le souci, c'est que pour chaque query exécuté par les composants dbExpress, TSQLConnection réinitialise les connexions. Ces réinitialisations font malheureusement perdre les valeurs @@Identity que l'on souhaitait récupérer.

La réinitialisation des connexions dépend de la propriété TSQLConnection.AutoClone, dont la valeur par défaut est à True. Pour solutionner les problèmes, il suffit donc, dans l'évènement TSQLConnection.BeforeConnect, de passer la propriété AutoClone à False ce qui aura pour conséquence d'éviter les réinitialisations intempestives de connexions.

Si vous saviez le nombre de posts que j'ai vu à ce sujet sur les différents forums que j'ai visités et qui sont restés sans réponse !

:ccool:

JJE