Discussion :

[pegase06]

Bonjour,

J'aimerais pouvoir executer une requête passé en paramètre dans une fonction PL/SQL

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
CREATE OR REPLACE
FUNCTION exemple (
    essai varchar2
) RETURN PLS_INTEGER
BEGIN
    EXECUTE IMMEDIATE essai; --> marche
 
    FOR r IN (
        SELECT champs1 from table1
    ) LOOP 
        delete from table2 where code=r.champs1
    END LOOP; --> marche
 
    FOR r IN (
        EXECUTE IMMEDIATE essai
    ) LOOP 
         delete from table2 where code=r.champs1
    END LOOP; --> marche pas
 
 
    return 1;
END exemple;

Je n'arrive pas a faire fonctionner ce code. Existe t'il d'autres solutions ?

Par exemple quelque chose qui permette de concatener une requete sql et un varchar ?

Code :

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

1
2
3
4
5
FOR r IN (
        SELECT champs1 from table1 where essai;
    ) LOOP 
        delete from table2 where code=r.champs1
    END LOOP;

Merci pour votre aide.

[plaineR]

Fais une recherche sur ref cursor tu devrais trouver ton bonheur

[pegase06]

Merci.
J'ai trouvé un exemple :

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
CREATE TABLE employees (
empid   NUMBER(5),
empname VARCHAR2(30));
 
INSERT INTO employees (empid, empname) VALUES (1, 'Dan Morgan');
INSERT INTO employees (empid, empname) VALUES (2, 'Jack Cline');
INSERT INTO employees (empid, empname) VALUES (3, 'Caleb Small');
COMMIT;
---------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE pass_ref_cur(p_cursor SYS_REFCURSOR) IS
 
TYPE array_t IS TABLE OF VARCHAR2(4000)
INDEX BY BINARY_INTEGER;
 
rec_array array_t;
 
BEGIN
  FETCH p_cursor BULK COLLECT INTO rec_array;
 
  FOR i IN rec_array.FIRST .. rec_array.LAST
  LOOP
    dbms_output.put_line(rec_array(i));
  END LOOP;
END pass_ref_cur;
 
---------------------------------------------------------------------
 
set serveroutput on
 
DECLARE
 rec_array SYS_REFCURSOR;
BEGIN
  OPEN rec_array FOR
  'SELECT empname FROM employees';
 
  pass_ref_cur(rec_array);
  CLOSE rec_array;
END;

Cependant, je en comprend pas :

Code :

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

TYPE array_t IS TABLE OF VARCHAR2(4000)

Pourquoi ne pas créer un type de VARCHAR(30) comem dans la table ?

A quoi sert :

Code :

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

INDEX BY BINARY_INTEGER;

?

Merci.

[plaineR]

Pour deux raisons :
- la procédure est générique (=> s'applique à toutes les colonnes de toutes les tables)
- on ne peut charger une liste d'enregistrements que dans une collection

index by binary_integer indique que la collection est indexée par des entiers (contrairement à index by varchar2 où elle est indexée par des chaînes de caractères)

Pour plus d'informations sur les collections :
http://sheikyerbouti.developpez.com/...?page=Chap5#L5

[pegase06]

Pour deux raisons :
- la procédure est générique (=> s'applique à toutes les colonnes de toutes les tables)
- on ne peut charger une liste d'enregistrements que dans une collection

index by binary_integer indique que la collection est indexée par des entiers (contrairement à index by varchar2 où elle est indexée par des chaînes de caractères)

Pour plus d'informations sur les collections :
http://sheikyerbouti.developpez.com/...?page=Chap5#L5

Je récupère un requête séléctionnant un champ enregistré en NUMBER.
Je ne cherche pas à avoir une procédure générique, est ce que je peux faire :

Code :

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

1
2
TYPE array_t IS TABLE OF NUMBER;
INDEX BY BINARY_INTEGER;

[plaineR]

C'est :

Code :

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

1
2
TYPE array_t IS TABLE OF NUMBER
INDEX BY BINARY_INTEGER;

(pas de point virgule après number)

Oui, techniquement cela va fonctionner si tu ne récupères que des number.