Discussion :

[Jean-Jacques Engels]

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 :

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

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.



JJE

[Jean-Jacques Engels]

Ola,

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

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 !



JJE