Discussion :

[fthdz]

Bonjour à tous,

mon problème est dans la récupération de id après une insertion.
avant avec IBX j'utilise le composant IBGenerateur et LeCpt:=DM.GetCpt('table1'); pour récupérer id

existe il un composant pareil avec Zeos ?

j ai essayer avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 dmm.ZConnection1.AutoCommit := true;
    dmm.ZConnection1.StartTransaction;
  try
     dmm.Zquery1.SQL.Text:='Insert Into TABLE_TEST2 (dossier)values('+after2.text+') returning ID_CPT_T';
     dmm.zquery1.ExecSQL;
 
     dmm.ZConnection1.Commit;
     ID_Result := dmm.zquery1.FieldByName('ID_CPT_T').AsInteger;
     ShowMessage('Le nouveau ID est : '+intToStr(ID_Result)+'');
  except
    on E: Exception do
    begin
 
      if dmm.ZConnection1.InTransaction then
        dmm.ZConnection1.Rollback;
        Application.ShowException(E);
    end;

(avec generateur et trigger creer dans la base de donnees)

mais la requete ne retourne rien !!


WIN XP, Delphi 7, FireBird 2.1, Zeos 7.1.2-stable,

Merci

[SergioMaster]

Bonjour,

Code :

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

dmm.zquery1.ExecSQL;

un execSQL ne renvoi rien , donc il faudrait essayer avec Open ou active:=True
(je n'ai pas suivi les dernières évolutions de ZEOS , donc à vérifier)

plus classiquement , il suffirait d'utiliser un

Code sql :

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

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

autre solution utiliser le TZSequence

[seabs]

Bonjour,

J'ai déjà posé cette question qui est restée sans réponse.

http://www.developpez.net/forums/d13...e-mise-oeuvre/

Sur le forum de Zeoslib, j'avais trouvé une modification à réaliser sur la version 6.6.6 pour corriger cette anomalie
http://zeoslib.sourceforge.net/viewt...hp?f=17&t=2604

Cependant, elle ne fonctionne pas sur la version 7.0.4. Je n'ai fait aucun essai pour la version 7.1.2.

Etant, dans l'immédiat, sans réponse, j'ai continué d'utiliser la version 6.6.6, modifiée suivant le schéma proposé dans le forum Zeoslib.

Les applications développées, avec ce composant modifié, ne présentent aucun dysfonctionnement.

Dès que je disposerai d'un peu de temps, je me plongerai dans les sources pour comprendre pourquoi la modification de 6.6.6 ne fonctionne pas sur 7.1.2.

Après, il est possible d'utiliser le composant séquenceur pour traiter la création des Id. Mais dans d'une application réseau, je n'ai pas testé les risques de conflit. Pour ma part, je préfère le schéma que tu indiques

(avec generateur et trigger creer dans la base de donnees)

Il faudrait peut-être poser la question sur le forum Zeoslib à condition de rédiger la demande en anglais.

A+

@SergioMaster

plus classiquement , il suffirait d'utiliser un
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

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

Dans le cas de plusieurs intervenants n'y a-t-il pas un risque de récupérer Id qui n'est pas celui de ton enregistrement ? En effet, cette commande lit le compteur de la base qui peut-être modifié entre le moment de l'insertion et le moment de la lecture.

[SergioMaster]

Dans le cas de plusieurs intervenants n'y a-t-il pas un risque de récupérer Id qui n'est pas celui de ton enregistrement ? En effet, cette commande lit le compteur de la base qui peut-être modifié entre le moment de l'insertion et le moment de la lecture.

Si , mais dans ce cas en général on n'utilise plus le trigger on récupére avant en incrémentant via un SELECT GEN_ID(GEN_MON_GENERATEUR,1) FROM
RDB$DATABASE; et on initialise le champ id
(la bonne vieille méthode à l'ancienne quoi, soit avant firebird 2.5)
J'avais testé le TZSequence , mais j'ai toujours eu quelques problèmes avec ce dernier (incrément par 2 , comme si le trigger était 'fired' avant)

[akli_agha]

Avec le TZSequence, ça fonctionne bien à condition de désactiver le trigger !
Sinon, le compteur est appelé 2 fois et, je crois, que c'est la valeur du trigger qui est prise en compte !

En fait, moi, je fais appel au générateur sans passer par le trigger ni le TZSequence et je n'ai aucun souci même dans un environnement multi-utilisateurs !

[fthdz]

bonjour,



je pense que l’utilisation de

Code sql :

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

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

est la meilleure solution.

la fonction que j'utilise pour recuperer ID

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 function Get_ID_I(const gener:string):Integer;
   var  zquer:TZQuery;
   begin
       zquer:=TZQuery.Create(nil);
       zquer.Connection:=dmm.ZConnection1;
       try
          with zquer do
            begin
               SQL.Text:='SELECT GEN_ID('+gener+',1) FROM RDB$DATABASE';
               open;
               Result := zquer.Fields[0].AsInteger;
            end;
       except
       end;
       zquer.free;
   end;

utilisation dans le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
......
 
 dmm.ZConnection1.StartTransaction;
  try
 ID_cpt:=Get_ID_I('TABLE_TEST2'); //TABLE_TEST2 est le nom de generateur
     dmm.Zquery1.SQL.Text:='Insert Into TABLE_TEST2 (ID_CPT_T,DOSSIER)values('+IntToStr(ID_cpt)+','+after2.text+')';
     dmm.zquery1.ExecSQL;
 
......

encore une fois merci

[seabs]

Bonjour,

Afin de compléter ce dossier, il faut signaler que, parmi les composants UIB, UIBQuery permet la récupération de l'ID généré par un trigger lors d'une requête d'insertion.

Il est dommage de ne pas obtenir le même avantage avec les composants ZeosLib. Il serait plus agréable d'utiliser les évolutions de Firebird sans être obligé de recourir à des astuces ou anciennes recettes pour traiter les requêtes d'insertion.

A+