PROGRAMMING

Browse Folder Foxpro 9

Mungkin foxpro sudah jarang digunakan sebagai bahasa pemograman jaman sekarang ini. Namun tidak ada salah nya saya sedikit berbagi bagaimana caranya untuk melakukan browse folder. Browse folder *istilah saya* biasa nya dilakukan ketika kita ingin menentukan di drive / folder mana kita ingin menyimpan sesuatu. Misal nya untuk menyimpan hasil export data kita. Ngomong2 untuk melakukan export kita bisa menggunakan syntax dibawah ini, tentunya di gunakan di foxpro 9😀 :

   COPY TO FileName [DATABASE DatabaseName [NAME LongTableName]]
   [FIELDS FieldList | FIELDS LIKE Skeleton | FIELDS EXCEPT Skeleton]
   [Scope] [FOR lExpression1] [WHILE lExpression2] 
   [ [WITH] CDX ] | [ [WITH] PRODUCTION ] [NOOPTIMIZE] 
   [ [TYPE] [ FOXPLUS | FOX2X | DIF | MOD | SDF | SYLK | WK1 | WKS | WR1
   | WRK | CSV | XLS | XL5 | DELIMITED [ WITH Delimiter | WITH BLANK 
   | WITH TAB | WITH CHARACTER Delimiter ] ] ] [AS nCodePage

Berikut contoh penggunaannya :
COPY TO D:\export\hasilexport.xls xl5

Tentunya proses copy tersebut harus terdapat data yang akan di export, data yang didapat biasa nya menggunakan syntax query. Dari hasil diatas kita akan mendapatkan data hasil export dengan jenis file type xls.

Namun ketika kita menggunakan user interface, rasa nya sangat kaku jika kita hanya terpaku di satu drive atau folder untuk menyimpan hasil export data kita. Maka cara dibawah ini bisa dilakukan untuk menentukan drive/folder mana kita akan menyimpan hasil export kita.

#define BIF_BROWSEFORCOMPUTER  0x1000
#define BIF_BROWSEFORPRINTER   0x2000
#define BIF_BROWSEINCLUDEFILES 0x4000
oShell = createobject(“Shell.Application”)
oFolder = oShell.BrowseForFolder(0, “Destination folder”, 0 )

oFolder.Items.Item.Path

Drive/folder yang kita pilih dapat kita panggil dengan menggukan syntax oFolder.Item.Item.Path diatas.

Sehingga jika kita ingin mengkombinasikan hasil export kita disimpan di drive/folder mana dapat menggunakan salah satu contoh dibawah ini :

SELECT crsdataIgd
COPY TO ALLTRIM(oFolder.Items.Item.Path) + ‘\Lap_dr_igd.xls’ xl5

Dari contoh syntax diatas kita memilih data dari hasil query select kemudian menyimpan hasil nya di drive yang kita pilih.

Sekian tulisan ini😀 semoga bermanfaat😀

Standar

One thought on “Browse Folder Foxpro 9

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s