Discussion :

[adam57]

salut
j'utilise oracle 10g
j'aimerais faire un item qui contient le chemin d'un document et qu'en cliquant sur cet item forms ouvre le fichier voulu
qlq'un sait comment puis-je proceder?
merci

[SheikYerbouti]

Si le document se trouve sur le poste client, vous pouvez utiliser la commande Webutil Client_Host() pour ouvrir le fichier.

Code :

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

Client_Host('cmd /c start "" "' || :block.item || '"' ) ;

[adam57]

j'ai fait ce que vous avez dit mais le déclencheur détecte une exception ORA-06508 non traitée
je sais pas c'est du à quoi
merci

[SheikYerbouti]

j'ai fait ce que vous avez dit mais le déclencheur détecte une exception ORA-06508 non traitée
je sais pas c'est du à quoi
merci

Alors, comme ça, on va pas y arriver.
Postez au moins le code de votre trigger.

[adham88]

j'ai le meme probleme, je veux dire que form me reclame le meme erreur
sauf que moi je veux faire l'export des données de la base dans un fichier excel
pour ça j'ai un bouton transfert dans lequel j'ai mis le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
if :BLK2.date_int is not null then 
:GLOBAL.filename:=client_get_file_name('c:','','|Feuille Excel (*.xls)|*.xls|','Select output document...',SAVE_FILE,true);
:global.var:=:BLK2.DATE_INT;
 --transfert;
 TRANS;
else
  	message('veuillez svp choisir une date',ACKNOWLEDGE);
		message('veuillez svp choisir une date',ACKNOWLEDGE);
end if;

le code de la procédure TRANS et le suivant:

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
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
 PROCEDURE trans IS  
   MyApplication    CLIENT_OLE2.OBJ_TYPE;
   args  CLIENT_OLE2.LIST_TYPE;
   wbs   CLIENT_OLE2.OBJ_TYPE;    
   wb    CLIENT_OLE2.OBJ_TYPE; 
   wss   CLIENT_OLE2.OBJ_TYPE; 
   cell  CLIENT_OLE2.OBJ_TYPE;
   cursor c_cur is select DATE_INT,INTERVIEWER,COMMENTAIRE
            from entretiens
            where DATE_INT=:global.var ; 
 
	oo c_cur%ROWTYPE;
  c1 number(4);
  c2 number(4);
  args1 OLE2.LIST_TYPE;
BEGIN
	MyApplication  := CLIENT_OLE2.CREATE_OBJ('Excel.Application');
  CLIENT_OLE2.SET_PROPERTY(MyApplication , 'Visible',1);
  wbs := CLIENT_OLE2.GET_OBJ_PROPERTY(MyApplication ,'Workbooks');
  wb := CLIENT_OLE2.INVOKE_OBJ(wbs,'Add');
  wss := CLIENT_OLE2.GET_OBJ_PROPERTY(MyApplication ,'ActiveSheet');
  CLIENT_OLE2.SET_PROPERTY(wss , 'Value','Sheet1');
 
  	OPEN c_cur;
c1:=2;		
LOOP
 
 
c2:=1;
 
 
	fetch c_cur into oo;
	exit when c_cur%NOTFOUND;	
 
loop 
	if c2=3 then exit;
end if;
 
 
args := CLIENT_OLE2.CREATE_ARGLIST; 
CLIENT_OLE2.ADD_ARG(args, c1);
CLIENT_OLE2.ADD_ARG(args, c2);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(wss,'Cells', args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value', oo.DATE_INT);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_ole2.release_obj(cell);
 
 
args := CLIENT_OLE2.CREATE_ARGLIST; 
CLIENT_OLE2.ADD_ARG(args, 1);
CLIENT_OLE2.ADD_ARG(args, 1);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(wss,'Cells',args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value','date' );
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_ole2.release_obj(cell);
CLIENT_OLE2.DESTROY_ARGLIST(args);
 
 
 
c2:=c2+1;
 
args := CLIENT_OLE2.CREATE_ARGLIST; 
CLIENT_OLE2.ADD_ARG(args, c1);
CLIENT_OLE2.ADD_ARG(args, c2);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(wss,'Cells', args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value',oo.INTERVIEWER);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_ole2.release_obj(cell);
 
 
args := CLIENT_OLE2.CREATE_ARGLIST; 
CLIENT_OLE2.ADD_ARG(args, 1);
CLIENT_OLE2.ADD_ARG(args, 2);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(wss,'Cells',args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value','interview' );
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_ole2.release_obj(cell);
CLIENT_OLE2.DESTROY_ARGLIST(args);
 
 
c2:=c2+1;
 
args := CLIENT_OLE2.CREATE_ARGLIST; 
CLIENT_OLE2.ADD_ARG(args, c1);
CLIENT_OLE2.ADD_ARG(args, c2);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(wss,'Cells', args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value',oo.COMMENTAIRE);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_ole2.release_obj(cell);
 
args := CLIENT_OLE2.CREATE_ARGLIST; 
CLIENT_OLE2.ADD_ARG(args, 1);
CLIENT_OLE2.ADD_ARG(args, 3);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(wss,'Cells',args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value','commentaire' );
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_ole2.release_obj(cell);
CLIENT_OLE2.DESTROY_ARGLIST(args);
 
END LOOP;
c1:=c1+1;
 
 
 
END LOOP;
 
CLOSE c_cur;
 
args1 := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args1,:global.filename);
CLIENT_OLE2.INVOKE(wb, 'SaveAs', args1);
CLIENT_OLE2.DESTROY_ARGLIST(args1);
--CLIENT_OLE2.INVOKE(wb,'CLOSE');
--CLIENT_ole2.invoke(MYApplication,'Quit');
 
CLIENT_ole2.release_obj(wb);
CLIENT_ole2.release_obj(wbs);
CLIENT_ole2.release_obj(wss);
CLIENT_ole2.release_obj(wss);
CLIENT_ole2.release_obj(wb);
 
CLIENT_OLE2.RELEASE_OBJ(MyApplication);
 
END;

[SheikYerbouti]

adahm88, merci de ne pas détourner la question d'un autre

De plus nous parlons de Client_Host() et pas de OLE2.

[shber]

bonjour

mon probléme est au niveau de la commande d'export sous oracle 10g quand je lance la commance par ligne de commande CMD elle fonctionne trés bien et la méme commande je la lance de mon poste client vers le sereut en utilisant client_host (la méme commande ), dans ce cas elle ne marche pas te pourtant mon WEBUTIL est trés bien configurer au niveau du serveur.

pleaseeeeeeee help me, ca fait des jours que je suis dessus.....