ＦＯＲＭ 高手請指導一下 有關讀外部文件的問題
想在ＦＯＲＭ里實現讀本机文本文件怎么實現
我是這樣做的
加一個按紐
在whern-button-pressed
加語句:
Declare
v_File Text_IO.File_Type;
v_Rec Varchar2(200);
v_Deptno number;
v_filename VARCHAR2(256);
BEGIN
v_filename := GET_FILE_NAME(File_Filter=> ' TXT Files (*.txt)|*.txt| CSV Files (*.csv)|*.csv| ALL Files (*.*)|*.*|',
Dialog_Type=> Save_FIle,File_Name=> 'deptno.txt', Directory_Name=> 'C:\Share\');
if v_filename is not NULL then
Go_Block('DEPT');
Clear_Block;
v_File := Text_IO.FOpen(v_FileName,'R');
Loop
Text_Io.Get_Line(v_File,v_Rec);
Exit When
v_Rec is Null;
: Deptno := Substr(v_Rec,1,Instr(v_Rec,',')-1);
Create_Record;
End Loop;
Text_IO.FClose(v_File);
End If;
Exception
When No_Data_Found then
Text_IO.FClose(v_File);
End;
這樣我就能在本机上講文本了,
但是我新做的ＦＯＲＭ(是用模版來改的)
加 上 上面那些語句,挂上系統后,按紐,就沒用了,
就算我改了Directory_Name=> ''\\192.168.33.27\Share\cookie''
也一樣打不開\\192.168.33.27這台机
按鈕不是灰色的,能用,但是點下去也不報錯也不發揮作用.
誰能告訴我ＦＯＲＭ在系統上要讀外部文件應該怎么做?
|
