Discussion :

[Bourak]

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 :

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

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.

[Rayek]

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

Code :

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

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 :

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
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 ^^

[cmen76]

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 :

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

1
2
3
 
qry1 : 
select s1.nextval from dual

puis

Code :

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

1
2
3
 
qry2 : 
insert into t1 values (:seq, ...)

Dans le code Delphi :

Code :

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

1
2
3
4
5
 
qry1.Open;
qry2.ParamByName('seq').AsInteger := qry1.Fields[0].AsInteger;
qry1.close;
qry2.execsql;

Bon courage

[gonenc]

Ou je me trompe.