Discussion :

[Azounet]

Bonjour,
Voilà j'avance bien dans le paquetage que je veux faire mais je suis confronté à un soucis. J'aimerai, dans une fonction, parcourir une table à l'aide d'un curseur implicite. Mais j'aimerai surtout pouvoir fournir cette requête en argument à ma fonction et ainsi générer dynamiquement la création de mon curseur.

le code 'en dur'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  	function  Get_columns_from_tmp_table( req varchar2 ) Return tab_rec_columns IS
	cols Pkg_PrswGen.tab_rec_columns;
	cpt int:= 1;
	begin
		 for tmp_col_line in (select mycode, mytype from SWIFT_PRSW_FIELDS_TMP) loop
	  	 	 cols(cpt).fieldname := tmp_col_line.mycode;
		 	 cols(cpt).fieldtype := tmp_col_line.mytype;  
		 	 cpt:=cpt+1;
	  	 end loop;
 
		 return cols;
	end;

ce code ne fonctionne pas mais l'idée est là !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  	function  Get_columns_from_tmp_table( req varchar2 ) Return tab_rec_columns IS
	cols Pkg_PrswGen.tab_rec_columns;
	cpt int:= 1;
	begin
		 for tmp_col_line in req loop
	  	 	 cols(cpt).fieldname := tmp_col_line.mycode;
		 	 cols(cpt).fieldtype := tmp_col_line.mytype;  
		 	 cpt:=cpt+1;
	  	 end loop;
 
		 return cols;
	end;

J'ai rechercher sur le forum et je suis tombé sur un post assez vieux recommandant l'article :
http://sheikyerbouti.developpez.com/dynamic/dynamic.htm

J'ai aussi regardé cet article
http://sheikyerbouti.developpez.com/..._immediate/#L1

mais sans succès ...

A vot' bon coeur.

Emilien

[Azounet]

Mauvaise question ?

[orafrance]

il sort d'où req loop ?

[Azounet]

il sort d'où req loop ?

Le req loop c'était pour donner une idée de ce que j'aimerai faire.
Plus je test moins j'ai l'impression que c'est possible.

En fait j'aimerai faire cette action sur plusieurs tables.

Dans req il y aurait une requete SQL

Code :

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

1
2
 
req:='SELECT mycode, mytype FROM SWIFT_PRSW_FIELDS_TMP';

ou la clause where changerait.

[SheikYerbouti]

A priori un REF CURSOR devrait suffire:

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
DECLARE
  cur sys_refcursor;
  LC$Req  VARCHAR2(1000);
  LC$C1   VARCHAR2(1000);
  LC$C2   VARCHAR2(1000);  
BEGIN
  LC$Req := 'select empno, ename from emp' ;
  OPEN cur FOR LC$Req ;
  LOOP
    FETCH cur INTO LC$C1, LC$C2 ;
    DBMS_OUTPUT.PUT_LINE( LC$C1 || '-' || LC$C2 ) ;
    EXIT WHEN cur%NOTFOUND ;
  END LOOP;
  CLOSE cur ;
END;

[Azounet]

Ca marche niquel !!!!
Merci beaucoup et bon jeudi !!!!


Emilien