Remplissage Table de façon dynamique

Version imprimable

Bonjour, j'ai une nested table créée à partir d'un record. J'aimerai initialisé cette table avec des records à NULL, le seul problème c'est que je ne sais pas combien de records j'aurai à ajouter dans cette table, d'où j'aimerai l'initialiser dynamiquement.

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
 
  v_ret filmsCatalogue;
 
  newFilms filmsRecord := filmsRecord(NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
 
  TYPE ACTORS IS TABLE OF PERSONNE%ROWTYPE INDEX BY BINARY_INTEGER;
  actorOfFilm ACTORS;
 
  TYPE PRODS IS TABLE OF A_PRODUIT%ROWTYPE INDEX BY BINARY_INTEGER;
  production PRODS;
 
  TYPE GENRES IS TABLE OF GENRE%ROWTYPE INDEX BY BINARY_INTEGER;
  gen GENRES;
 
  counter INTEGER;
 
 
  actor VARCHAR(2000);
  mpaa VARCHAR(30);
  director VARCHAR(30);
  prod VARCHAR(100);
  quality VARCHAR(30);
  genr VARCHAR(2000);
 
 
  TYPE EmpCurTyp IS REF CURSOR;  -- define weak REF CURSOR type
   curseFilm   EmpCurTyp;
 
  lgFilm  Film%ROWTYPE;
 
   numFilm INTEGER;
   p_id    INTEGER;
	begin
    numFilm := 1;
    IF p_id_film.count = 3
    THEN v_ret := filmsCatalogue(newFilms,newFilms,newFilms);
    ELSE 
      IF p_id_film.count = 5
      THEN v_ret := filmsCatalogue(newFilms,newFilms,newFilms,newFilms,newFilms);
      ELSE
           v_ret := filmsCatalogue(newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms);
      END IF;
    END IF;

Merci d'avance

17/12/2009, 11h55
mnitu
Je ne sait pas si je tout compris, mais:
La nested table tu l'initialisé sans elements
Code:

1 2 ma_nt Nested_table := nested_table();
Ensuite tu utilise Extend pour ajouter les N elements vides
Code:

1 2 ma_nt.Extend(N)
Que tu valorise peut être dans une boucle
Code:

1 2 3 For i In 3..7 Loop ma_nt.id(i) := i;

Merci de votre attention.

J'ai fait ce que vous m'avez dis mais ca ne marche toujour pas j'ai comme erreur:

Code:

ORA-06530: Référence à un élément composite non initialisé de

je vous recolle le code que j'ai

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
 
function getFilms(p_id_FILM in curseRetTab) return filmsCatalogue is
 
  v_ret filmsCatalogue;
 
  newFilms filmsRecord := filmsRecord(NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
 
  TYPE ACTORS IS TABLE OF PERSONNE%ROWTYPE INDEX BY BINARY_INTEGER;
  actorOfFilm ACTORS;
 
  TYPE PRODS IS TABLE OF A_PRODUIT%ROWTYPE INDEX BY BINARY_INTEGER;
  production PRODS;
 
  TYPE GENRES IS TABLE OF GENRE%ROWTYPE INDEX BY BINARY_INTEGER;
  gen GENRES;
 
  counter INTEGER;
 
 
  actor VARCHAR(2000);
  mpaa VARCHAR(30);
  director VARCHAR(30);
  prod VARCHAR(100);
  quality VARCHAR(30);
  genr VARCHAR(2000);
 
 
  TYPE EmpCurTyp IS REF CURSOR;  -- define weak REF CURSOR type
   curseFilm   EmpCurTyp;
 
  lgFilm  Film%ROWTYPE;
 
   numFilm INTEGER;
   p_id    INTEGER;
	begin
    numFilm := 1;
 
    /*IF p_id_film.count = 3
    THEN v_ret := filmsCatalogue(newFilms,newFilms,newFilms);
    ELSE 
      IF p_id_film.count = 5
      THEN v_ret := filmsCatalogue(newFilms,newFilms,newFilms,newFilms,newFilms);
      ELSE
           v_ret := filmsCatalogue(newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms,newFilms);
      END IF;
    END IF;*/
    v_ret := filmsCatalogue();
 
 
        while numFilm <= p_id_film.count
          LOOP
            p_id := p_id_film(numFilm).id_film;
            OPEN curseFilm FOR 'SELECT * FROM FILM WHERE ID_FILM = :s' USING p_id;
            FETCH curseFilm INTO lgFilm;
            CLOSE curseFilm;
 
            //[...]   code pour créer mes chaines
 
             v_ret.EXTEND ;
             v_ret(numFilm).id_film := lgFilm.id_film;
 
             v_ret(numFilm).Nom := lgFilm.Nom;
             v_ret(numFilm).Date_de_sortie := lgFilm.Date_de_sortie;
             v_ret(numFilm).duree := lgFilm.duree;
             v_ret(numFilm).couleur := lgFilm.couleur;
             v_ret(numFilm).affiche := lgFilm.affiche;
             v_ret(numFilm).mpaa := mpaa;
             v_ret(numFilm).genre := genr;
             v_ret(numFilm).acteur := actor;
             v_ret(numFilm).producteur := director;
             v_ret(numFilm).maisonproduction := prod;
             v_ret(numFilm).qualite := quality;
 
             numFilm := numFilm +1;
 
          END LOOP;
 
 
		return v_ret;
	end getFilms;

et voila mes objets

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
create or replace TYPE filmsRecord is object (
     ID_Film numeric(4),
     Nom varchar(100),
     Date_de_sortie date,
     Duree numeric(3),
     Couleur varchar(30),
     Affiche blob ,
     MPAA varchar(30),
     Genre varchar(500),
     Acteur varchar(2000),
     Producteur varchar(100),
     MaisonProduction varchar(100),
     Qualite varchar(30)
 );
 /
create or replace type filmsCatalogue is table of filmsRecord;
/

17/12/2009, 14h48
mnitu

Désolé, mais je ne vais pas debugger le code pour vous. Commencez d’abord par supprimer toutes les déclarations des types et variables non utilisés. Ensuite le constructeur par défaut d’un objet initialise l’objet avec des nuls pour les attributs ; il suffit d’écrire nom_objet(). Consultez aussi le tutoriel PL/SQL sur les collections.
18/12/2009, 09h54
garciajulien
Bonjour, j'ai lu sur diverses sources que l'on devait initialiser un type objet. Or, ici j'ai une nested table de d'un type objet et non d'une table existante. J'aimerais donc savoir comment faire pour initialiser mon type objet lors de l'initialisation de ma table.

Car lorsque je fais
Code:

1 2 3 4 ma_table := mon_type_table(); ma_table.EXTEND; ma_table(1).mon_champs := 'quelque chose';
J'ai une erreur de type:

Code:

ORA-06530: Référence à un élément composite non initialisé

merci d'avance

Julien

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 create or replace type scalar_dept As Object ( deptno Number(2), dname varchar2(14), loc varchar2(13) ) / create or replace type dept_nt Is Table Of scalar_dept / Declare l_dept scalar_dept; l_ntab dept_nt := dept_nt(); Begin l_dept := scalar_dept(10, 'DEPT1','TEST'); l_ntab.Extend(2); l_ntab(1) := l_dept; l_ntab(2) := scalar_dept(20, 'DEPT2','TEST'); -- For i in 1..l_ntab.Count() Loop dbms_output.put_line(l_ntab(i).deptno); dbms_output.put_line(l_ntab(i).dname); End Loop; End;
Par contre cette affirmation est complètement fausse. :aie:

Citation:

Ensuite le constructeur par défaut d’un objet initialise l’objet avec des nuls pour les attributs ; il suffit d’écrire nom_objet().

[Edit]
Ajouté les définitions des types
[/Edit]

18/12/2009, 11h05
SheikYerbouti

Citation:

Envoyé par mnitu

Par contre cette affirmation est complètement fausse. :aie:

Quelle est la source de cette affirmation ?
18/12/2009, 13h45
mnitu

Citation:

Envoyé par SheikYerbouti

Quelle est la source de cette affirmation ?

Moi :oops:

[Edit]
Ah, j’ai pigé finalement ! La façon dans lequel j’ai formulé mon intervention pourrait laisser penser que l’affirmation en question provient du tutoriel. Désole, SheikYerbouti. C’était moi qui avais dit la bêtise en pensant à l’initialisation d’une table imbriquée. A voir #4
[/Edit]
18/12/2009, 14h53
SheikYerbouti

Ouf, cette micro erreur te donne enfin un coté humain :mrgreen:
18/12/2009, 15h08
mnitu

Citation:

Envoyé par SheikYerbouti

Ouf, cette micro erreur te donne enfin un coté humain :mrgreen:

:rire:

Je pense que mon erreur provient du faite que j'essaie de "setter" directement un champ vide:
Code:

1 2 3 4 5 6 7 8 9 10 11 DECLARE monRecord monRecordType; maTableRecord maTableRecordType := maTableRecordType(); BEGIN maTableRecord.EXTEND; maTableRecord(1).id := monChampID; END
je pense que je devrais plutôt faire:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 DECLARE monRecord monRecordType; maTableRecord maTableRecordType := maTableRecordType(); BEGIN maTableRecord.EXTEND; monRecord.id := monChampID; maTableRecord(1) := monRecord; END
en admettant bien sur de n'avoir que le champ ID dans mon record.

J'attends pour tester car l'admin réseau fait des manips sur le serveur...

18/12/2009, 16h38
garciajulien

Voilà, c'était bien çà je devais passer par un objet intermédiaire..
J'ai marqué la discussion comme résolue.

Merci Encore

Julien