Discussion :

[Yorglaa]

Bonjour,
ça fais des heures que je tourne en rond et je suis sûr que je pass à côté d'un bête détail !

j'ai un type enregistré dans la base :

Code :

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

1
2
3
4
5
create or replace 
        Type CheckType is Object (
                                    Doc_number  Varchar2(30)
                                    , Amount    Number
                                 )

j'ai ensuite une PL dans laquelle je voudrais faire un bulk collect avec ce type :
(code partiel)

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
...
    Cursor cPROD06 ( pv_SBi Varchar2 ) is
        Select
                ACT.Doc_number 
                , ACT.Doc_Total_Amount_DC
        From    Act_Document@PCS06p     ACT
        Where   substr(doc_number,0,6) = pv_SBi 
        Order by Doc_Number ;
 
        Type CheckTab is table of CheckType ;
 
        tPROD                   CheckTab ;
 
Begin
    ...
        Open cPROD06(i.SupportBudget_i) ;
        Fetch cPROD06 bulk collect into tPROD ;
        Close cPROD06 ;
    ...
End ;

et cette opération échoue avec un PLS-00386: non-concordance de type à 'TPROD' entre curseur FETCH et variables INTO...

que fais-je donc de faux ?
je passe sûrement à côté d'une évidence, mais je commence à voir double !
toute aide est la bienvenue.

[SheikYerbouti]

Cela ne fonctionne pas avec les objets. Il faut utiliser un type Record

Code :

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

1
2
3
4
5
6
7
8
9
10
DECLARE
 TYPE typ_rec IS RECORD (empno NUMBER(4), ename VARCHAR2(10));
 TYPE tab_typ_rec IS TABLE OF typ_rec ;
 CURSOR cur IS SELECT empno, ename FROM EMP ;
 ttab tab_typ_rec;
BEGIN
 OPEN cur ;
 FETCH cur BULK COLLECT INTO ttab ;
 CLOSE cur ;
END;

[Yorglaa]

Diantre !
c'est embêtant parceque je voulais ensuite utiliser cette collection dans un Select

Code :

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

1
2
3
4
5
        Select 
                Count(*)       
        Into    nDifCount
        From    Table(tPROD) P
        Where   ( P.Doc_Number, P.Amount) not in (...

et ça ce n'est pas possible si j'utilise un type Record.. je me retrouve avec cette erreur :

PLS-00642: types de collecte locale interdite dans les instructions SQL

une suggestion pour contourner cette limitation ?

[SheikYerbouti]

Comme ça, j'ai pas de réponse, sinon d'alimenter la table d'objets avec la table d'enregistrements...
(oui, je sais, c'est sale....)

ou laissez tomber le BULK COLLECT .........

[Yorglaa]

ou laissez tomber le BULK COLLECT .........

hummm...
et comment est-ce que je peux alimenter la collection d'objet sans passer par le bulk collect (au niveau syntaxe) ?

Je suppose qu'il faut faire un Loop dans les rows du curseur, mais quelle est la syntaxe d'insertion d'objets dans la collection ? je n'arrive pas à me rappeler.

merci d'avance de me rappeler mes fondamentaux !

[SheikYerbouti]

Les fondamentaux sont dans les tutos
http://sheikyerbouti.developpez.com/...?page=Chap5#L5

[Yorglaa]

Merci beaucoup pour les info !
alors au final, voici la solution que j'ai adopté (il y a peut-être mieux / plus simple à faire ?). Je la met ici si d'autre sont intéressés...

les types (en base) :

Code :

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

1
2
3
4
5
6
7
8
create or replace 
        Type CheckType is Object ( 
                                    Doc_number  Varchar2(30) 
                                    , Amount    Number 
                                 ) ;
 
create or replace
        Type CheckTab is table of CheckType ;

la déclaration des variables y relatives dans le code (l'objet sera initialisé plus loin) :

Code :

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

1
2
3
4
        oCheckObject            CheckType ;
        tPROD                   CheckTab := CheckTab( Null ) ; 
        tLOCAL                  CheckTab := CheckTab( Null ) ;
        nIDX                    pls_integer ;

et enfin l'utilisation (y.c. l'initialisation de l'objet) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        nIDX := 0 ;
 
        oCheckObject := CheckType( Null, Null) ; 
 
        For ii in cPROD06(i.SupportBudget_i)
        Loop
            oCheckObject.Doc_Number := ii.Doc_Number ;
            oCheckObject.Amount := ii.Doc_Total_Amount_DC ;
            tPROD.Extend ;
            tPROD(nIDX + 1) := (oCheckObject) ;
        End Loop ;

Voilà... pour moi ça fonctionne !