Ouvrir un fichier à travers Forms

Version imprimable

22/10/2008, 12h25
adam57

Ouvrir un fichier à travers Forms

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
22/10/2008, 13h15
SheikYerbouti

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

Code:

Client_Host('cmd /c start "" "' || :block.item || '"' ) ;
22/10/2008, 13h33
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
22/10/2008, 13h36
SheikYerbouti

Citation:

Envoyé par 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

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

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:

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:

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;

22/10/2008, 15h26
SheikYerbouti

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

De plus nous parlons de Client_Host() et pas de OLE2.
22/10/2008, 15h39
adham88

désolé, j'ai posté ma question dans une nouvelle discussion
merci de m'aider svp

salut
j'ai essaye avec le package TEXT_IO , avec un test en utilisant la fonction TEXT_IO.IS_OPEN () , j'ai un message me disant que le fichier est ouvert mais il ne s'ouvre pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 PROCEDURE aff IS v_file_in2 TEXT_IO.FILE_TYPE; mon_file VARCHAR2(100):='C:\TEMP\Insertion.doc'; BEGIN v_file_in2 := TEXT_IO.FOPEN(mon_file,'R'); IF TEXT_IO.IS_OPEN (v_file_in2) then message('ouvert'); message('ouvert'); else message('non ouvert'); message('non ouvert'); end if; END;

23/10/2008, 12h10
SheikYerbouti

comment ça il ne s'ouvre pas ? pourriez vous donner un peu plus de détail dans vos réponses ?
23/10/2008, 12h19
adam57

le document ne s'ouvre pas , je ne le vois pas apparaitre dans l'ecran
23/10/2008, 13h20
SheikYerbouti

Mais TEXT_IO n'a jamais servi à afficher quoi que ce soit, mais seulement ouvrir un fichier texte en lecture/ecriture pour lire/écrire des octets.
23/10/2008, 14h04
adam57

je vois :(
29/11/2010, 12h19
shber

probléme d'export sous oracle 10g avec client_host

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.....