Création d'un tableau de type OBJECT

Version imprimable

Bonjour,

Pour éviter de trimbaler des dizaines de paramètres entre les différentes procédures des nombreux packages, j'ai regroupé les paramètres par thème fonctionnel en créant des "type record" au niveau de l'instance (par exemple, produit).
Cela donne plus de cohérence au code en permettant de définir ce type de variable partout dans le code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 CREATE OR REPLACE TYPE rec_produit as object ( CODE NUMBER, DESCRIPTION VARCHAR2(1000 BYTE), MONTANT NUMBER, CONSTRUCTOR FUNCTION rec_produit RETURN SELF AS RESULT); / CREATE OR REPLACE TYPE BODY rec_produit AS CONSTRUCTOR FUNCTION rec_produit RETURN SELF AS RESULT IS BEGIN RETURN; END; END; /
Cela marche bien.
Je voudrais maintenant pouvoir définir de la même manière un tableau pour ce "record" pour pouvoir passer plusieurs produits d'un coup entre les diverses procédures.
Je n'arrive pas à définir le tableau au niveau instance en créant un type.

Merci de votre aide.

30/07/2013, 14h03
Waldar

Peut-être comme ceci :

Code:

CREATE OR REPLACE TYPE t_rec_produit AS TABLE OF rec_produit;

Ok merci.
Mais je n'arrive pas à l'utiliser.

Code:

1
2
3
4
5
6
7
8
9
Procedure test is
  compteur number;
  myTable t_rec_produit := t_rec_produit();
 
begin
  myTable(1).CODE := compteur;
  myTable(1).DESCRIPTION := 'Description N.' || compteur;
  myTable(1).MONTANT := compteur*100;
end;

Citation:

ORA-06533: Valeur de l'indice trop grande

Il y a d'autres méthodes, mais celle-ci fonctionne :

Code:

1
2
3
4
5
6
7
DECLARE
  compteur number := 1;
  myTable t_rec_produit;
begin
  myTable := t_rec_produit( rec_produit(compteur, 'Description N.' || to_char(compteur), compteur*100)  );
END;
/

30/07/2013, 14h50
Hobbi1

Oui ca marche. Merci.

Mais je voudrais que "myTable" puisse contenir de 1 à n records "rec_produits"
pour passer le contenu de "myTable" en paramètre de procédures.

Voilà.
J'ai réussi à faire ce que je voulais.

Pouvez-vous me dire si c'est bien ?
Y a-t-il besoin de toutes les fonctions CONSTRUCTOR pour rec_produit ?

Code:

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
CREATE OR REPLACE TYPE rec_produit AS OBJECT (
  CODE         NUMBER,
  DESCRIPTION  VARCHAR2(1000 BYTE),
  MONTANT      NUMBER,
  CONSTRUCTOR FUNCTION rec_produit RETURN SELF AS RESULT,
  CONSTRUCTOR FUNCTION rec_produit(pCODE IN NUMBER) RETURN SELF AS RESULT,
  CONSTRUCTOR FUNCTION rec_produit(pDESCRIPTION IN VARCHAR2) RETURN SELF AS RESULT,
  CONSTRUCTOR FUNCTION rec_produit(pMONTANT IN NUMBER) RETURN SELF AS RESULT);
/
 
CREATE OR REPLACE TYPE BODY rec_produit
AS
CONSTRUCTOR FUNCTION rec_produit RETURN SELF AS RESULT
IS
BEGIN
    RETURN;
END;
 
CONSTRUCTOR FUNCTION rec_produit(pCODE IN NUMBER) RETURN SELF AS RESULT
IS
BEGIN
   self.code := pcode;
   RETURN;
END;
 
CONSTRUCTOR FUNCTION rec_produit(pDESCRIPTION IN VARCHAR2) RETURN SELF AS RESULT
IS
BEGIN
   self.DESCRIPTION := pDESCRIPTION;
   RETURN;
END;
 
CONSTRUCTOR FUNCTION rec_produit(pMONTANT IN NUMBER) RETURN SELF AS RESULT
IS
  BEGIN
     self.MONTANT := pMONTANT;
     RETURN;
 END;
END;
/
 
CREATE OR REPLACE TYPE tab_produit AS vARRAY (100) OF  REC_produit
/
 
CREATE OR REPLACE PACKAGE PKG_test
AS
procedure test;
END PKG_test;
/
 
CREATE OR REPLACE PACKAGE BODY PKG_test AS
 
PROCEDURE insertion ( mesDonnes in tab_produit ) IS
 
compteur NUMBER;
 
BEGIN
    FOR compteur IN mesDonnes.first..mesDonnes.LAST
	LOOP
	    INSERT INTO toto VALUES (mesDonnes(compteur).code,mesDonnes(compteur).description,mesDonnes(compteur).montant);
	END LOOP;
	COMMIT;
 
END insertion;
 
PROCEDURE test IS
   compteur NUMBER := 1;
   myTable   tab_produit ;
BEGIN
   myTable   :=  tab_produit();
 
   FOR compteur in 1..10
   LOOP
       myTable.extEND;
	   myTable(compteur) :=  rec_produit(null,null,null);
       myTable(compteur).CODE := compteur;
       myTable(compteur).DESCRIPTION := 'Description N.' || compteur;
       myTable(compteur).MONTANT := compteur*100;
 
    --insert into produit values (myTable(compteur).CODE,myTable(compteur).DESCRIPTION,myTable(compteur).MONTANT);
   END LOOP;
   insertion(myTable);
 
END TEST;
 
END PKG_test;
/

30/07/2013, 17h10
Waldar

Pour les fonctions CONSTRUCTOR, aucune idée je ne les ai jamais utilisées.
Sinon pour l'utilisation ça a l'air bien.
31/07/2013, 08h55
Hobbi1

Moi non je n'avais jamais utilisé ce genre de choses

J'ai fais un test en enlevant toutes les fonctions CONSTRUCTOR sur les propriétes du type. J'ai juste laissé

Code:

CONSTRUCTOR FUNCTION rec_produit RETURN SELF AS RESULT,

Et ça marche pareil.
Donc pour mon usage, ca ne doit pas être essentiel. Donc autant coder light ;)