On 10/5/05, Jenar Suseno <[EMAIL PROTECTED]> wrote:
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
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
