Discussion :

[claralavraie]

Bonjour,

j'ai créé 2 sequence, s_opt_1 et s_opt_2.
Elle s'incrémente de 1.

Je les appelle comme suit dans ma procédure :

Code :

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

1
2
3
4
5
6
 
FOR C IN 1 .. MAX C
LOOP
SELECT S_OPT_||C||.nextval into valeur
from dual
END LOOP

Mais cela ne fonctionne pas, j'ai l'erreur suivante:
Missing expression.
Y a t'il une autre solution plutot que de faire:

Code :

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

1
2
3
4
5
6
7
8
9
 
IF C=1
THEN
 SELECT S_OPT_1.next_val into valeur
from dual;
ELSE
  Select s_opt_2.next_val into valeur
from dual;
END IF

[Magnus]

Heu... sans avoir testé, je propose EXECUTE IMMEDIATE (en tout cas du SQL dynamique).

[claralavraie]

Donc en fait ce sera ainsi:

Code :

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

1
2
3
 
le_sql:='SELECT S_OPTI_:1.nextval INTO VALEUR FROM DUAL';
EXECUTE IMMADIATE le_sql USING C;

est ce exact?

[Nounoursonne]

ceci marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
DECLARE
		lc$requete VARCHAR2(200);
		TYPE ResCurTyp IS REF CURSOR;
		c_ressource       ResCurTyp;
		mavariable varchar2();
BEGIN
lc$requete:='select S_OPT_'||C||'.nextval from dual';
OPEN c_ressource FOR lc$requete;
FETCH c_ressource INTO mavariable;
CLOSE c_ressource;
END;

[claralavraie]

Cela fonctionne ...
merci beaucoup

[Magnus]

Donc en fait ce sera ainsi:

Code :

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

1
2
3
 
le_sql:='SELECT S_OPTI_:1.nextval INTO VALEUR FROM DUAL';
EXECUTE IMMADIATE le_sql USING C;

est ce exact?

J'attendais justement que vous testiez et que vous me disiez mais bon... :

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
22
23
24
25
26
27
28
8i ALEX> declare
  2    lc_seq  varchar2(25);
  3    ln_seq  number(4);
  4  begin
  5    lc_seq := 's_dvp';
  6    execute immediate 'select :seq_name.nextval from dual' into ln_seq using lc_seq;
  7    dbms_output.put_line('s_dvp.nextval = ' || ln_seq);
  8  end;
  9  /
declare
*
ERROR à la ligne 1 :
ORA-01722: invalid number
ORA-06512: at line 6
 
 
8i ALEX> declare
  2    lc_seq  varchar2(25);
  3    ln_seq  number(4);
  4  begin
  5    lc_seq := 's_dvp';
  6    execute immediate 'select ' || lc_seq || '.nextval from dual' into ln_seq;
  7    dbms_output.put_line('s_dvp.nextval = ' || ln_seq);
  8  end;
  9  /
s_dvp.nextval = 3
 
Procédure PL/SQL terminée avec succès.