[PL/Sql]Appel de sequence

Version imprimable

21/07/2006, 10h57
claralavraie

[PL/Sql]Appel de sequence
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:

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:

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
21/07/2006, 11h03
Magnus

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

Donc en fait ce sera ainsi:
Code:

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

ceci marche

Code:

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;

21/07/2006, 11h35
claralavraie

Cela fonctionne ...
merci beaucoup

Citation:

Envoyé par claralavraie

Donc en fait ce sera ainsi:

Code:

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:

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.