Saya membuat procedure untuk copy data direcordset ke
txt file, sbb:
rs_publikasi.MoveFirst
xnama = Trim(cd1.FileName) + ".txt"
Open xnama For Output As #1
Do While Not rs_publikasi.EOF
Print #1, Format(rs_publikasi(0), "yyyy/mm/dd") &
"::" & Trim(rs_publikasi(1)) & "::" & rs_publikasi(3)
rs_publikasi.MoveNext
If rs_publikasi.EOF Then
Close #1
Exit Do
End If
Loop
Semua data sukses tercopy ke file text tadi.
Yang jadi pertanyaan,kenapa selalu ada baris kosong
diakhir data?
Data ini nanti akan di upload ke web, sehingga ada
data kosong pada data web hasil upload.
Memang dengan cara manual di hapus dulu baris kosong
tadi trus di upload bisa menghindari data kosong.
Adakah tambahan code supaya baris kosong pada file txt
tadi tidak ada lagi?
jenar suseno
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> 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/
