Discussion :

[nivet]

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

[mariustrezor]

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

[Linkin]

Perso je fais un

Code :

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

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 :

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

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

[mariustrezor]

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

[Nono40]

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.

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

[mariustrezor]

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

C'est noté

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?

[Linkin]

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

[Nono40]

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.

[Laurent Dardenne]

Salut,

Pour créer une séquence :

Code :

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

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 :

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

1
2
 
Drop SEQUENCE IDRepertoires;

insérer la valeur courante de la séquence

Code :

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

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 :

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

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

[Linkin]

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

[nivet]

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

[lper]

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 :

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

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.

[Nono40]

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.

[nivet]