Discussion :

[DoRiane]

Bonjour,
j'ai un objet type et une collection de ce type

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
 
CREATE OR REPLACE
TYPE RemisLifa IS OBJECT (
	sType INTEGER,
	idG INTEGER,
	versG INTEGER,
	iBaseA VARCHAR2(10),
	iAchat NUMBER,
	iUtilA CHAR(1),
	iBaseV VARCHAR2(10),
	iVente NUMBER
);
 
CREATE OR REPLACE
TYPE RemisLifaTab IS TABLE OF RemisLifa;

jusque la tout va bien, j'arrive a les utiliser dans mon code plsql et tout compil e bien. mais quand je veux executer le tout j'ai une erreur ORA-06530: Reference to uninitialized composite à la ligne en rouge

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
PROCEDURE INIT_TAB_REMIS_ID(sGrille_Id IN NUMBER, sGrille_Version IN NUMBER,sFabr IN VARCHAR2,MyRemisLifaTab OUT RemisLifaTab,MyRemisNisgTab OUT RemisNisgTab,MyRemisNigaTab OUT RemisNigaTab,bTrouvfabr OUT BOOLEAN) IS
sBaseA LIFA.LIFA_BASEA%TYPE;
sAchat LIFA.LIFA_ACHAT%TYPE;
sUtilA LIFA.LIFA_UTILA%TYPE;
sBaseV LIFA.LIFA_BASEV%TYPE;
sVente LIFA.LIFA_VENTE%TYPE;
BEGIN
	MyRemisLifaTab := RemisLifaTab();
	MyRemisNisgTab := RemisNisgTab();
	MyRemisNigaTab := RemisNigaTab();
	MyRemisLifaTab.extend;
	MyRemisNisgTab.extend;
	MyRemisNigaTab.extend;
	
   	BEGIN
		SELECT LIFA_BASEA,LIFA_ACHAT,LIFA_UTILA,LIFA_BASEV,LIFA_VENTE 
		INTO sBaseA,sAchat,sUtilA,sBaseV,sVente
		FROM LIFA
		WHERE LIFA_GRIL_ID = sGrille_Id AND LIFA_GRIV_VERSION = sGrille_Version
		AND LIFA_FABR_LIDIC = sFabr;

		MyRemisLifaTab(MyRemisLifaTab.COUNT).idG   := sGrille_Id;
   		MyRemisLifaTab(MyRemisLifaTab.COUNT).versG := sGrille_Version;
   		MyRemisLifaTab(MyRemisLifaTab.COUNT).sType := 0;
		MyRemisLifaTab(MyRemisLifaTab.COUNT).iBaseA := sBaseA;
		MyRemisLifaTab(MyRemisLifaTab.COUNT).iAchat := sAchat;
		MyRemisLifaTab(MyRemisLifaTab.COUNT).iUtilA := sUtilA;
		MyRemisLifaTab(MyRemisLifaTab.COUNT).iBaseV := sBaseV;
		MyRemisLifaTab(MyRemisLifaTab.COUNT).iVente := sVente;
		bTrouvfabr := TRUE;

je précise que
sGrille_Id est non null
sGrille_Version est non null
sBaseV est non null
les autres variables le sont.

Si qq1 à une idée,...

[SheikYerbouti]

Bonjour,

Vous devez également initialiser les objets contenus dans la collection:

Code :

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

1
2
3
4
5
6
7
8
 
...
MyRemisLifaTab := RemisLifaTab();
Loop
   MyRemisLifaTab.extend;
   MyRemisLifaTab(MyRemisLifaTab.COUNT) := NEW RemisLifa(NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL) ;
End loop ;
...

[DoRiane]

Merci,
je pensais pas qu'il fallait aussi initialiser le type objet.

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
 
PROCEDURE INIT_TAB_REMIS_ID(sGrille_Id IN NUMBER, sGrille_Version IN NUMBER,sFabr IN VARCHAR2,MyRemisLifaTab OUT RemisLifaTab,MyRemisNisgTab OUT RemisNisgTab,MyRemisNigaTab OUT RemisNigaTab,bTrouvfabr OUT BOOLEAN) IS
sBaseA LIFA.LIFA_BASEA%TYPE;
sAchat LIFA.LIFA_ACHAT%TYPE;
sUtilA LIFA.LIFA_UTILA%TYPE;
sBaseV LIFA.LIFA_BASEV%TYPE;
sVente LIFA.LIFA_VENTE%TYPE;
BEGIN
	MyRemisLifaTab := RemisLifaTab();
	MyRemisNisgTab := RemisNisgTab();
	MyRemisNigaTab := RemisNigaTab();
	MyRemisLifaTab.extend;
	MyRemisNisgTab.extend;
	MyRemisNigaTab.extend;
 
   	BEGIN
		SELECT LIFA_BASEA,LIFA_ACHAT,LIFA_UTILA,LIFA_BASEV,LIFA_VENTE 
		INTO sBaseA,sAchat,sUtilA,sBaseV,sVente
		FROM LIFA
		WHERE LIFA_GRIL_ID = sGrille_Id AND LIFA_GRIV_VERSION = sGrille_Version
		AND LIFA_FABR_LIDIC = sFabr;
		MyRemisLifaTab(MyRemisLifaTab.COUNT) := NEW RemisLifa(0,sGrille_Id,sGrille_Version,sBaseA,sAchat,sUtilA,sBaseV,sVente) ;
		bTrouvfabr := TRUE;
	EXCEPTION WHEN NO_DATA_FOUND THEN
	 	bTrouvfabr := FALSE;
	END;
	IF bTrouvfabr THEN
		EXECUTE IMMEDIATE ' SELECT 0,'||sGrille_Id||','||sGrille_Version||',NIGA_GAMM_CODE,NIGA_BASEA,NIGA_ACHAT,NIGA_UTILA,NIGA_BASEV,NIGA_VENTE '||
	 	  ' FROM NIGA'||
		  ' WHERE NIGA_FABR_LIDIC = '''||sFabr||''''|| 
		  ' AND NIGA_GRIL_ID = '||sGrille_Id|| 
		  ' AND NIGA_GRIV_VERSION = '||sGrille_Version BULK COLLECT INTO MyRemisNigaTab;

je pense que je dois avoir maintenant le même pb avec 'EXECUTE IMMEDIATE'. Existe-t-il une facon simple de le faire en gardant cette synthaxe ou dois-je obligatoirement faire une boucle?

[SheikYerbouti]

S'il y a concordance entre le types de chaque composant de l'objet avec le type des colonnes ramenées par le Select, cela devrait fonctionner.

Au début, faites un test sur un petit objet de 2 colonnes par example.

[SheikYerbouti]

Sinon, la bonne vieille boucle

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
 
CREATE OR REPLACE TYPE typ_dept AS OBJECT(
DEPT NUMBER(2),
dname VARCHAR2(30),
loc VARCHAR2(30))
/
CREATE OR REPLACE TYPE typ_tab_dept IS TABLE OF typ_dept
/
DECLARE
  tableau typ_tab_dept := typ_tab_dept() ;
  CURSOR cc IS SELECT deptno, dname, loc FROM DEPT ;
BEGIN
  FOR c IN cc LOOP
    EXIT WHEN cc%NOTFOUND ;
    tableau.extend ;
    tableau(tableau.COUNT) := NEW typ_dept(c.deptno, c.dname, c.loc) ;
  END LOOP ;
END ;

[SheikYerbouti]

Ou alors, la table 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
 
DECLARE
  TYPE typ_dept IS RECORD(
    DEPT NUMBER(2),
    dname VARCHAR2(30),
    loc VARCHAR2(30)) ;
  TYPE typ_tab_dept IS TABLE OF typ_dept INDEX BY BINARY_INTEGER ;
  tableau typ_tab_dept ;
  CURSOR cc IS SELECT deptno, dname, loc FROM DEPT ;
BEGIN
  OPEN cc ;
  FETCH cc BULK COLLECT INTO tableau ;
  CLOSE cc ;
END ;

[DoRiane]

Voici ce que j'ai essayé, je ne crois pas que je puisse faire plus simple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
CREATE OR REPLACE
TYPE RemisNiga2 IS OBJECT (
	sType INTEGER
);
/
 
CREATE OR REPLACE
TYPE RemisNigaTab2 IS TABLE OF RemisNiga;
/

et pourtant lorsque je lance

Code :

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

1
2
3
4
5
6
 
EXECUTE IMMEDIATE ' SELECT 0'||
	 	  ' FROM NIGA'||
		  ' WHERE NIGA_FABR_LIDIC = '''||sFabr||''''|| 
		  ' AND NIGA_GRIL_ID = '||sGrille_Id|| 
		  ' AND NIGA_GRIV_VERSION = '||sGrille_Version BULK COLLECT INTO MyRemisNigaTab2;

j'obtiens l'erreur suivante

Code :

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

1
2
 
ORA-00932: inconsistent datatypes: expected UDT got NUMBER

de plus, je ne connais pas le type UDT

Concernant le type plsql, c'est ce que j'avais avant mais je voulais créé un type oracle car je m'en sers dans plusieurs packages. En plus j'ai pensais que l'exécution serait plus rapide si j'avais un type oracle. Dites moi si je me trompe?

[SheikYerbouti]

Si vous creez ce type dans un package, vous pourrez le référencer dans n'importe quel code pl/sql. Il deviendra global au même titre qu'un type créé dans la base.
Quand à la question de rapidité, je ne vois aucun élément permettant de déclarer qu'une nested table est plus rapide qu'une index by table.

[DoRiane]

Si vous creez ce type dans un package, vous pourrez le référencer dans n'importe quel code pl/sql. Il deviendra global au même titre qu'un type créé dans la base.

Eh bien voila mon pb résolu
un énorme merci pour votre aide et votre patience

Je suis revenu à mon code du début en déclarant mes types dans le package plutot que dans chaque procédure.

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
 
CREATE OR REPLACE PACKAGE MonPkge IS
 
TYPE RemisLifa IS RECORD (
	 		   sType INTEGER,
			   idG INTEGER,
			   versG INTEGER,
			   iBaseA VARCHAR2(10),
			   iAchat NUMBER,
			   iUtilA CHAR(1),
			   iBaseV VARCHAR2(10),
			   iVente NUMBER
			   );
TYPE RemisLifaTab IS TABLE OF RemisLifa INDEX BY BINARY_INTEGER;
...

et ensuite quand je veux les utiliser

Code :

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

MyRemisLifaTab MonPkge.RemisLifaTab;