[ORACLE] numéro autoincrémenté

Je cherche à gérer via le code delphi l'incrémentation de la clé de ma table.
Le champ est défini comme un entier.
Lorsque je veux faire mon INSERT via une procedure delphi, je n'arrive pas à autoincrémenter mon champ ni à récupérer la dernière clè saisie.
Comment faire?
Merci d'avance

pourquoi via delphi? ORACLE est capable de le faire tout seul, si je ne me trompe pas

Perso je fais un

Code:

---

select max(Ma cle) Nb from Matable

---

Je récupère le champ Nb +1 et ça me donne ma nouvelle valeur.

Ou tu peux le faire directement dans ton insert

Code:

---

1 2	insert into Matable (Macle, MonChamp1) (Select(NVL(MAX(MaCle), 0),'Toto' from MaTable);

---

il ya aussi quelque chose d'asez in téressant sur ce lien http://delphi.developpez.com/faq/?pa...#autoincrement mais je persiste à penser que c'est mieux de le faire au nieveau de la BDD

La méthode donnée dans la FAQ date du temps de Paradox. Il ne faut surtout pas l'appliquer à Oracle.

Dans Oracle il suffit d'utiliser une séquence pour générer une valeur autoincrémentée.

:arrow: Linkin, avec cette méthode est en multipostes, tu vas avoir des violation de clef très souvent.

Citation:

---

Envoyé par Nono40

La méthode donnée dans la FAQ date du temps de Paradox. Il ne faut surtout pas l'appliquer à Oracle.

---

C'est noté

Citation:

---

Envoyé par Nono40

:arrow: Linkin, avec cette méthode est en multipostes, tu vas avoir des violation de clef très souvent.

---

C'est bien ce que je pensait aussi. ORACLE ne gère-t-il pas tout seul les clés auto?

Je suis d'accord j'ai oublié de le préciser (enfin si mais je me suis trompé je l'ai effacé ce qui reviens au même).

Il me semble que oui Oracle gère les champs autoincrement mais après ça dépend si on a la possibilité de le faire (Perso j'ai des tables avec plusieurs millions d'enregistrement et ma base a été créée sans champ auto, mais je n'ai pas d'accès à la même table par plusieurs applications en même temps

Tu n'as pas de pbs car justement tu n'ajoute pas d'enregistrements par deux postes en même temps.

Créer une séquence dans Oracle c'est très simple, et s'en servir pour remplir un champ c'est tout simple aussi. Je n'ai pas ça sous la mains ici mais je vous donnerais la méthode ce soir. :wink:

Salut,

Pour créer une séquence :

Code:

---

1 2	CREATE SEQUENCE IDRepertoires START WITH 0 INCREMENT BY 1 MINVALUE 0 NOMAXVALUE NOCYCLE CACHE 50 ORDER;

---

( le cache 50 signifie que le SGBDR Oracle mémorise 50 numéros de séquences tant que la abse est à l'état 'mounted'. En cas d'arrêt on perd les numéros préalloués.

la supprimer

Code:

---

1 2	Drop SEQUENCE IDRepertoires;

---

insérer la valeur courante de la séquence

Code:

---

1 2 3

Insert Into Repertoires R -- Insére le root Values (Repertoire(IDRepertoires.CurrentVal,Ref_Disque,Path,'ROOT',NULL))

---

insérer la valeur suivante de la séquence

Code:

---

1 2 3

Insert Into Repertoires R -- Insére le root Values (Repertoire(IDRepertoires.NextVal,Ref_Disque,Path,'ROOT',Ref_Root))

---

Merci pour cette information ça peut être très utile en effet (et ça enlève une limite de mes applications

merci pour vos réponses.
Mon problème est que je n'ai pas défini ma clé comme une clé autoincrémenté, d'où mon souci de gérer l'autoincrément par delphi.
Quelqu'un a t-il une solution sans que je sois obligé de casser ma base pour refaire ma table?

D'avance merci

Bonjour,
tu n'as pas besoin de casser ta base, tu créés juste une séquence comme t'indique Laurent, ensuite tu peux créer un trigger sur ta table du stype :

Code:

---

1 2 3 4 5 6 7 8 9 10

CREATE OR REPLACE TRIGGER DB.TABLE_BIR BEFORE insert ON DB.TABLE FOR EACH ROW DECLARE cpt number(16); BEGIN select IDRepertoires.NEXTVAL into cpt from DUAL; :NEW.Macle := cpt; END;

---

Attention, tu devras attribuer la valeur maxi de la clé dans ton générateur.

Avec la solution de Laurent, il ne faut pas de champ auto-incrémenté juste la création d'une séquence. Et tu te serts de MaSequence.NextVal pour remplir avec Delphi la valeur du champ.

:)