[Oracle] utilisation d'index auto-incrimente

Salut les developpeurs !

Je voudrais connecter une application delphi à oracle , j'utilise adodataset lieé à une table t1 avec comme clé primaire un champ id1 du type entier . et comme oracle n'a pas des champs du type auto-incrimente j'ai crée une séquence appeler s1 . j'ai suivi la methode en sql pour liee le champ id1 au sequence:

Code:

---

1 2	INSERT INTO t1 VALUES (s1.nextval,'champ1',...)

---

Mais le problème c'est comment recuperer sous delphi le nextval du s1. y'a t'il un composant qui recupère nextval du s1.

Merci d'avance.

Le mieux est de te faire une fonction qui te retourne le dernier numéro d'index +1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

function GetLastIndex : integer; begin With AdoQuery do begin Close; SQL.Clear; SQL.add('Select max(LeChampIndex) as Resultat from LaTable'); Open; Result := FieldByName('Resultat').AsInteger + 1; end; end;

---

Après il ne te reste plus qu'a l'intégré dans ton fonctionnement

Code:

---

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

AdoConnection.BeginTrans; try With AdoQueryInsert do begin Close; SQL.Add('Insert into t1 '); SQL.Add('Values(:MonIndex,:MonChamp1)'); ParamCheck := True; Parameters.ParamByName('MonIndex').Value := GetLastIndex; Parameters.ParamByName('MonChamp1').Value := 'Test'; ExecSQL; AoConnection.CommitTrans; end; Except on E:Exception do begin AdoConnection.RollBackTrans; ShowMessage('Erreur : ' + E.Message); end; end;

---

A modifier et à adapter pour que cela fonctionne avec tes tables ^^

Salut

La réponse de Malatar contourne l'utilisation de la séquence.
Si tu veux connaître la valeur de la séquence, tu peux procéder en 2 requêtes :

Code:

---

1 2 3

qry1 : select s1.nextval from dual

---

puis

Code:

---

1 2 3

qry2 : insert into t1 values (:seq, ...)

---

Dans le code Delphi :

Code:

---

1 2 3 4 5

qry1.Open; qry2.ParamByName('seq').AsInteger := qry1.Fields[0].AsInteger; qry1.close; qry2.execsql;

---

Bon courage;)

Ou je me trompe.