Discussion :

[Jinkas99]

Bonjour,

Je cherche à retourner une liste en IN OUT à partir d'une fonction.

Je voudrais pouvoir ajouter des éléments dans la liste en utilisant la fonction extend mais avant cela vérifier si l'élément à ajouter existe déjà dans une autre table.

J'ai essayé de faire ceci :

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
DECLARE
 
	TYPE REC IS RECORD(
		CODE_REMISE VARCHAR2(10),
		CODE_POURCENTAGE NUMBER
    );
 
	TYPE TAB IS TABLE OF REC
		INDEX BY BINARY_INTEGER;
 
	VTAB TAB;
 
	CURSOR C1 IS
		SELECT CODE_REMISE, CODE_POURCENTAGE
		FROM TABLE_REMISE
		WHERE NUM = '1DOLL123';
 
	V_CODE_REMISE VARCHAR2(10);
 
BEGIN
 
  OPEN C1;
  FETCH C1 BULK COLLECT INTO VTAB;
 
  IF VTAB.COUNT > 0 THEN
	FOR I IN 1..VTAB.COUNT
	LOOP
 
	SELECT C_REMISE
	INTO V_CODE_REMISE
	FROM TABLE_REMISE_TMP
	WHERE C_REMISE = VTAB(I).CODE_REMISE;
 
	IF V_CODE_REMISE IS NOT NULL OR V_CODE_REMISE <> '' THEN
	VTAB.EXTEND(....);
    ...
	...
 
END;

mais je ne sais si ce que j'ai fait jusqu'à présent est correct et je ne vois pas comment utiliser la fonction extend dans mon code.

Merci,

[mnitu]

Lisez un peu la doc PL/SQL Collections and Records avant de vous lancer dans la programmation cela permet d'avancer beaucoup plus vite.

EXTEND is a procedure that adds elements to the end of a varray or nested table.

Veut dire que la méthode ne s'applique pas aux collections de type vecteur index by

[Jinkas99]

Bonjour mnitu,

J'ai parvenu à faire ceci :

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
DECLARE
	TYPE TYPE_LISTE IS TABLE OF MA_TABLE.MON_CHAMPS%TYPE;
 
	MA_LISTE TYPE_LISTE := TYPE_LISTE();
 
	CURSOR C IS
		SELECT T1.MON_CHAMPS
		FROM MA_TABLE1 T1
		WHERE EXISTS (SELECT T2.MON_CHAMPS FROM MA_TABLE2 T2 WHERE T2.MON_CHAMPS = T1.MON_CHAMPS);
 
BEGIN  
    BEGIN
      FOR R IN C
      LOOP
        MA_LISTE.EXTEND;
        MA_LISTE(MA_LISTE.COUNT) := R.MON_CHAMPS;
      END LOOP;
    END;
END;

Merci,

[mnitu]

Pourquoi il a BEGIN suivi de BEGIN ?
Pourquoi charger via extend quand le bulk fetch permet de faire la même chose directement ?

[Jinkas99]

Merci pour votre réponse.

Pour le second begin c'est parce que je voulais ajouter une exception.

[mnitu]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Declare
  Type TYPE_LISTE Is Table OF EMP.ENAME%Type; 
  ma_liste        TYPE_LISTE;
Begin
  Select e.ename
    Bulk Collect Into ma_liste
    From emp e    
   Where Exists (Select Null 
                   From dept d
                  Where d.deptno = e.deptno
                );
End;

Pour les exceptions la règle est simple gérez que les exceptions que vous pouvez traiter au niveau de cette procédure sinon laisse-les se propager vers la routine appelante.