paramètre de fonction dans un cursor

Version imprimable

Bonjour,
J'ai créé une fonction acceptant en paramètre le nom d'une table et dans la quelle j'ai un cursor avec lequel je souhaite utiliser ce paramètre mais j'ai une erreur de compilation; voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 CREATE OR REPLACE FUNCTION GroupConcat(concatTable IN VARCHAR2) RETURN varchar2 IS varRetour VARCHAR2(2000) default ''; CURSOR cConcat IS SELECT id FROM concatTable; BEGIN FOR x IN cConcat LOOP varRetour := varRetour || to_char(x.id) || ',' ; END LOOP; RETURN varRetour; END; /
Si je supprime ma variable concatTable de ma requete SELECT et que j'écris un nom de table en dur ça fonctionne, mais moi je veux justement la paramétrer ! Auriez-vous une idée ? Je précise que je ne suis pas expert en PL/SQL.

Bonjour.
Dans la définition du curseur, concattable n'est pas considéré comme une variable. Je vous propose une autre façon d'utiliser un curseur.

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
CREATE OR REPLACE FUNCTION groupconcat (concattable IN VARCHAR2)
   RETURN VARCHAR2
IS
   varretour   VARCHAR2 (2000) DEFAULT '';
   ls_requete  VARCHAR2 (100);
   ln_monid    NUMBER; -- je suppose que c'est un number, à changer éventuellement
BEGIN
   ls_requete := 'SELECT ID FROM ' || concattable;
 
   OPEN mon_curseur FOR ls_requete;
   FETCH mon_curseur INTO ln_monid;
 
   WHILE mon_curseur%FOUND
   LOOP
      varretour := varretour || TO_CHAR (ln_monid) || ',';
 
      FETCH mon_curseur INTO ln_monid;
   END LOOP;
 
   CLOSE mon_curseur;
 
   RETURN varretour;
END;
/

Edit: j'ai ajouté la fermeture du curseur. :aie:

moi j'ai pensé utiliser le package dbms_sql.
c clair que ce n'est pas la meilleure idée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
CREATE OR REPLACE
  procedure GroupConcat(concatTable IN VARCHAR2)
IS
  v_string dbms_sql.varchar2_table; --g supposé ke id est de type varchar2
  cursor_name integer;
  v_cnt number;
  v_ignore number;
BEGIN
  cursor_name:=dbms_sql.open_cursor;
  dbms_sql.parse(cursor_name,'SELECT id  FROM '||concatTable,dbms_sql.native);
  dbms_sql.define_array( cursor_name, 1, v_string , 100, 1 );
  v_ignore:=dbms_sql.execute(cursor_name);
  v_cnt :=dbms_sql.fetch_rows(cursor_name);
  dbms_sql.column_value( cursor_name, 1, v_string  );
  for i in 1..v_cnt
  loop
  dbms_output.put_line('valeur retour=>'||v_string(i));
  end loop;
--fermeture du cursor
  dbms_sql.close_cursor(cursor_name);
END;
/

08/04/2009, 10h08
Tanebisse

Merci pour vos réponses, j'ai adopté une solution avec le nom de ma table en dur pour des soucis de rapidité, mais je vais potasser vos solutions.