Discussion :

[aspire]

Bonjour

Comment transformer ce bloc anonyme avec un procédure qui retourne le curseur (d'une jointure). ?

Je n'y arrive pas j'ai toujours l'erreur
PLS-00320: the declaration of the type of this expression is incomplete or malformed
J'ai essayé plusieurs types dont sys_refcursor.

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
SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
  -- declare a cursor
  CURSOR cur_chief IS
      SELECT first_name,
             last_name,
             department_name
      FROM employees e
      INNER JOIN departments d ON d.manager_id = e.employee_id;
 
  r_chief cur_chief%ROWTYPE;
BEGIN
  OPEN cur_chief;
  LOOP
    -- fetch information from cursor into record
    FETCH cur_chief INTO r_chief;
 
    EXIT WHEN cur_chief%NOTFOUND;
 
    -- print department - chief
    DBMS_OUTPUT.PUT_LINE(r_chief.department_name || ' - ' ||
                         r_chief.first_name || ',' ||
                         r_chief.last_name);
  END LOOP;
  -- close cursor cur_chief
  CLOSE cur_chief;
END;
/

merci

[Eckson]

je crois que j'ai exactement le même problème et le mien il me dit invalid cursor exactement lorsque je veux vérifier que le curseur contient ecore des données plus précisément sur la ligne EXIT WHEN curseur%NOTFOUND...

Si quelqu'un a une idée.

Merci

[aspire]

J'ai le code suivant :

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
create or replace PROCEDURE getCursor(p_recordset OUT SYS_REFCURSOR )
IS 
begin
  OPEN p_recordset FOR
      SELECT first_name,
             last_name,
             department_name
      FROM employees e
      INNER JOIN departments d ON d.manager_id = e.employee_id;
end;
/
DECLARE
  cur_chief SYS_REFCURSOR;
  r_chief cur_chief%ROWTYPE;
 
BEGIN
  getCursor(cur_chief);
  LOOP
    FETCH cur_chief INTO r_chief;
    EXIT WHEN cur_chief%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE(r_chief.department_name || ' - ' ||
                         r_chief.first_name || ',' ||
                         r_chief.last_name);
  END LOOP;
  CLOSE cur_chief;
END;
/

et la sortie :

Elément PROCEDURE GETCURSOR compilé
....
Rapport d'erreur -
ORA-06550: line 3, column 11:
PLS-00320: the declaration of the type of this expression is incomplete or malformed
ORA-06550: line 3, column 11:

je pense que le probleme vient de la ligne :
cur_chief SYS_REFCURSOR;
mais en essayant les types j'ai aussi des erreurs....

Quelqu'un aurait des idées ?
Si un aficionados du PL-SQL passait pas la ...

[mnitu]

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Connected to Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 
Connected as mni
 
SQL> set serveroutput on
SQL> 
SQL> CREATE OR REPLACE PROCEDURE getCursor(p_recordset OUT SYS_REFCURSOR )
  2  IS
  3  begin
  4    OPEN p_recordset FOR
  5        SELECT first_name,
  6               last_name,
  7               department_name
  8        FROM employees e
  9        INNER JOIN departments d ON d.manager_id = e.employee_id;
 10  end;
 11  /
 
Procedure created
 
SQL> 
SQL> DECLARE
  2    cur_chief   SYS_REFCURSOR;
  3    Type r_chief  Is Record (
  4      first_name          hr.employees.first_name%type,
  5      last_name           hr.employees.last_name%type,
  6      department_name     hr.departments.department_name%type
  7    );
  8    var_chief             r_chief;
  9  BEGIN
 10    getCursor(cur_chief);
 11    LOOP
 12      FETCH cur_chief INTO var_chief;
 13      EXIT WHEN cur_chief%NOTFOUND;
 14      DBMS_OUTPUT.PUT_LINE(var_chief.department_name || ' - ' ||
 15                           var_chief.first_name || ',' ||
 16                           var_chief.last_name);
 17    END LOOP;
 18    CLOSE cur_chief;
 19  END;
 20  /
 
Executive - Steven,King
IT - Alexander,Hunold
Finance - Nancy,Greenberg
Purchasing - Den,Raphaely
Shipping - Adam,Fripp
Sales - John,Russell
Administration - Jennifer,Whalen
Marketing - Michael,Hartstein
Human Resources - Susan,Mavris
Public Relations - Hermann,Baer
Accounting - Shelley,Higgins
 
PL/SQL procedure successfully completed
 
SQL>

C'est quoi votre problème ?

[aspire]

He bien voila ...
la dernier chose que je n'avais pas testé... et que je viens de faire...
et reconfirmer mnitu : IL FAUT PASSER PAR UN RECORD !
mais pourquoi ? est ce la seule solution ?

Disons que tout reecrire les champs et type ca me dit pas trop...
impossible d'avoir une solution comme ROWTYPE ...? ou un curseur plus global ???

J'en profite pour demander s'il faut mieux passer par une procedure ou un fonction ? des diffrences de performance ?
merci mnitu

[mnitu]

...
Disons que tout reecrire les champs et type ca me dit pas trop...
impossible d'avoir une solution comme ROWTYPE ...? ou un curseur plus global ???
...

Analysez votre exemple :
Vous déclarez une variable de type curseur faible (cur_chief) c’est-à-dire un pointer vers une région de mémoire ou se « trouvera » une structure de données actuellement indéfinie.

Après vous déclarez une variable de type record (r_chief) et pour les détails du record vous faite pointer vers la variable pointer (cur_chief) qui pointe elle-même vers une zoné de mémoire de la structure non-définie.

Maintenant imaginez-vous que vous est le compilateur et que vous devez résoudre la définition de la variable r_chief et donc expliciter sa structure.
N’est pas vrai que la vie est merdique ?