How to add "open" file button in form 4.5

Question

Hi all,
I want to add a button "open file" on the form (like any
application's "OPEN FILE" button, user can select the driver, dir
of the file located). Then the path of the file will stored in a
text box and then a procedure will open that file and read all
data of that file and it will insert the data into table.
I know it can be done easily by asking the user to type in the
path in the text box directly, but i want to add a "OPEN FILE"
button to do this.
Should U have any comment, pls tell me and help me!!
Thank for your help!!
Regards,
A beginer of Oralce developer/2000
null

Answer 1

HK, Cheung (guest) wrote:
: Hi all,
: I want to add a button "open file" on the form (like any
: application's "OPEN FILE" button, user can select the driver,
dir
: of the file located). Then the path of the file will stored in
a
: text box and then a procedure will open that file and read all
: data of that file and it will insert the data into table.
: I know it can be done easily by asking the user to type in
the
: path in the text box directly, but i want to add a "OPEN FILE"
: button to do this.
: Should U have any comment, pls tell me and help me!!
: Thank for your help!!
: Regards,
: A beginer of Oralce developer/2000
Hi,
I have done similar things with cmdlg.vbx (Common Dialog 16 bit
version) in Windows 3.11 as follows:
1. Create a VBX item
2. Open up Properties and set location of your cmdlg.vbx
3. Write a simple pl/sql such as FileOpen with a series of
Set_Property such as follows (example only):
VBX.Set_Property('<name of VBXItem>','<vbxproperty>','c:\temp');
where <vbxproperty> could be DialogTitle, InitDir, Filter etc.
(these can all be seen in Properties) depending on your
requirements.
Also, use
VBX.Set_Property('<name of VBXItem>','Flags','&H1800') to force
File Must Exist and Path Must Exist conditions when OPEN
and
VBX.Set_Property('<name of VBXItem>','CancelError','1') to trap
click on Cancel in the File Open dialog box.
4. To activate the File Open dialog box, use
VBX.Set_Property('<name of VBXItem>','Action','1');
5. To capture the selected filename, use
retFilename := VBX.Get_Property('<name of VBXItem>','Filename');
NB.
a) Instead of using '<name of VBXItem>', you could use Find_Item
and refer to its Handle. See VBX package spec.
b) All VBX properties are case-sensitive.
Will extract complete code and post it to you later.
Regards,
TP
null