to ms heru
saya pakai "getfileopenname" utuk milih file *.*
sedangkan utk import pakai "importfile"
struktur field sama dengan data import
salam
arif
apa ini ms ....?
string docname, named
integer value
value = GetFileOpenName("Pilih File yang Di Transfer",
&
+ docname, named, "DBF",&
+ "Foxpro Files (*.DBF),*.DBF," &
+ "Text Files (*.TXT),*.TXT")
IF value = 1 THEN
cb_2.visible=true
dw_1.visible=true
sle_1.text=docname
dw_1.dataobject='datawindow' && bisa eksternal atau
bukan
dw_1.Object.DataWindow.ReadOnly="Yes"
dw_1.reset()
dw_1.ImportFile(sle_1.text,1, 100, 1, 5, 1)
end if
--- Eko Heru Prasetyo <[EMAIL PROTECTED]> wrote:
>
> Dears,
>
> Ada yang punya sample program seperti ini ? Tolong
> donk. Thanks a lot
>
> Eko Heru Prasetyo
> IT Support
>
>
>
>
> -----------------------------------------------
> INDOPB TURUT BERDUKA CITA UNTUK ACEH & SUMUT
> -----------------------------------------------
> IndoPB - Indonesia PB User Group
> To Post a message, send it to: [EMAIL PROTECTED]
> To Unsubscribe,send a blank message to:
> [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
> [EMAIL PROTECTED]
>
>
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
-----------------------------------------------
INDOPB TURUT BERDUKA CITA UNTUK ACEH & SUMUT
-----------------------------------------------
IndoPB - Indonesia PB User Group
To Post a message, send it to: [EMAIL PROTECTED]
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
