RecupId via erreur transformation sqlserveur/Oracle

Bonjour,
j'ai un programme qui fonctionne sur SQLServeur et j'aimerai le transformer de façon à le faire fonctionner sous Oracle 8i.

L'idée est que dans SQLServeur, j'utilise un trigger pour récupérer l'id en lançant une erreur via un print

Code:

---

1 2 3 4 5

CREATE TRIGGER [MESSAGE_IDENTITE_ARTICLE] ON dbo.ARTICLE FOR INSERT AS   DECLARE @@IDENTITE INT SELECT @@IDENTITE = INSERTED.[N_IDARTICLE] FROM INSERTED PRINT 'N_IDARTICLE='+REPLACE(STR(@@IDENTITE,10,0),SPACE(1),'')+';'

---

Dans mon code (Delphi via ADO), je récupère l'erreur

Code:

---

1 2	if ADOConnection.Errors.Count = 1 then ... Result := ADOConnection.Errors[0].Description;

---

J'aimerai pourvoir faire la même chose en Oracle pour envoyer l'id dans le trigger de l'insertion afin de ne pas avoir à modifier l'ensemble de mes requetes d'insertion

Code:

---

1 2 3 4 5 6 7 8 9 10 11

CREATE TRIGGER OWNER.ARTICLETRIGGER1 before INSERT ON OWNER.ARTICLE FOR EACH ROW DECLARE NextVal Number; BEGIN Select SEQ_ARTICLE.NextVal into NextVal from dual; :new.N_IDArticle := NextVal; -- renvoi de NextVal END;

---

La solution consiste à récupérer la valeur de la séquence en utilisant insert into … returning…
Si t’inserts toujours une seule ligne (insert into ...values...) tu peux utiliser dbms_application_info.set_client_info pour stocker la valeur dans le trigger et dbms_application_info.read_client_info pour la lire dans Delphi. Mais il faut aussi que ta connexion soit persistante.

Je ne peux utiliser le returning puisque cela m'obligerai à modifier l'ensemble des requêtes de mon programme.
Le but étant que ce soit le serveur de base de données qui me retourne la valeur.

La 2ème solution semble être la bonne. (la connexion est persistante et je ne lancerai ma méthode de récup d'id que pour un insert d'un enregistrement).
Si 2 insert arrivent en même temps, la valeur de dbms_application_info ne risque pas d'être ecrasée par la 2ème requête ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

CREATE TRIGGER OWNER.ARTICLETRIGGER1 before INSERT ON OWNER.ARTICLE FOR EACH ROW DECLARE NextVal Number; BEGIN Select SEQ_ARTICLE.NextVal into NextVal from dual; :new.N_IDArticle := NextVal; dbms_application_info.set_client_info(NextVal); END;   CREATE FUNCTION app_info_wrapper RETURN VARCHAR2 IS x VARCHAR2(64); BEGIN dbms_application_info.read_client_info(x); RETURN x; END app_info_wrapper;

---

il ne me reste plus qu'a modifier mes triggers et à faire appel à ma fonction dans delphi
select app_info_wrapper from dual

merci de l'aide