Bonjour tout le monde,

Je voulais chercher un élément d'une table objet relationnelle contenant deux références puis l'afficher dans des TEXT_ITEM, mais je n'arrive pas à le faire !

Voici le code :

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_succursale as object 
(base varchar2(10),
direction ref typ_directeur);
/
 
 create or replace type typ_type_voilier as object (type varchar2(20));
 /
 
create or replace type typ_voilier as object
( num number,
type ref typ_type_voilier,
prix_loc number(6,3),
etat varchar2(6),
base ref typ_succursale);
/
 
create table voilier of typ_voilier 
(constraint Pk_voilier primary key (num));
le code declencheur when_botton_pressed au niveau du block2 :
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
DECLARE
   		Cursor liste_voilier is select e.num , e.type, e.etat, e.prix_loc, e.base
				from  voilier e 
				where e.num= :BLOCK2.TEXT_ITEM9; 		
BEGIN	
	OPEN liste_voilier;
 	LOOP
   		GO_BLOCK('BLOCK14');
     FETCH liste_voilier INTO:BLOCK14.text_item16, 
                           :BLOCK14.text_item17, 
                 	   :BLOCK14.text_item18,
               		    :BLOCK14.text_item19,         				
                 	    :BLOCK14.text_item20;
 
   	EXIT WHEN liste_voilier%NOTFOUND;  
 
 	END LOOP;
 	 CLOSE liste_voilier;
 end;