[Forms6i] Pb avec BULK COLLECT [Résolu]

[Kast]

Bonjour,
Voila mon probleme,j'ai une procedure qui fonctionne sous SQL/PLUS mais pas dans Forms6i:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Procedure maProc IS
  TYPE tofCol IS TABLE OF VARCHAR2(3);
  aCol tofCol;
 
  Cursor Col_cur IS
     SELECT COL_CODE
         FROM ART_COL
       WHERE SOC_CODE = 'DAU'
          AND SAI_CODE = '04H';
BEGIN
  Open Col_cur;
  Fetch Col_cur BULK COLLECT INTO aCol;
  Close Col_cur;
 
  -- Traitement de ma collection
END maProc;

Cette fonction plante à la compile sur BULK

Je me demande donc si on peux utilisé BULK COLLECT dans forms6i ou s'il faut charger sa collection avec une boucle

merci de votre aide.

[orafrance]

http://download-west.oracle.com/docs/cd/B10501_01/appdev.920/a96624/05_colls.htm#28396

You can use the BULK COLLECT clause only in server-side programs (not in client-side programs). Otherwise, you get the error this feature is not supported in client-side programs.

Conclusion, il faut passer par une procédure stockée pour utiliser le BULK COLLECT

[Kast]

Merci ORAFRANCE !!!
donc je pense que je vais passer par une boucle sur mon curseur pour charger ma collection.

[dev_ora_moimeme]

Voila ce que tu dois faire:
Procedure maProc is
TYPE tofCol IS TABLE OF VARCHAR2(3);

Code :

1
2
3
 
  -- Initialise la collection de cette façon:
  aCol tofCol := tofCol(NULL);

Cursor Col_cur is
Select COL_CODE
From ART_COL
Where SOC_CODE = 'DAU'
And SAI_CODE = '04H';
BEGIN
Open Col_cur;
Fetch Col_cur BULK COLLECT INTO aCol;
Close Col_cur;

-- Traitement de ma collection
END maProc;


Je l'ai testé sur la table emp et ça a marché

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
  1  CREATE OR REPLACE Procedure maProc IS
  2    TYPE tofCol IS TABLE OF VARCHAR2(3);
  3    aCol tofCol := tofCol(NULL);
  4    Cursor Col_cur IS
  5       SELECT ename
  6           FROM emp
  7         WHERE job LIKE  '%MAN';
  8  BEGIN
  9    Open Col_cur;
 10    Fetch Col_cur BULK COLLECT INTO aCol;
 11    Close Col_cur;
 12    -- Traitement de ma collection
 13* END maProc;
SQL> /
 
Procedure created.