IndeksBSI-PCCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 Membuat output / Laporan berformat .txt

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
bubles
Pendatang Baru
Pendatang Baru


Jumlah posting : 2
Age : 27
Registration date : 29.03.12

PostSubyek: Membuat output / Laporan berformat .txt   2012-03-29, 10:30

gan ane punya script kayak gini ni buat mengahasilkan output berfotmat .txt :

Private Sub Command2_Click()

Dim NamaFile As String
Dim tmp As String

NamaFile = App.Path & “\File\” & Text3.Text & “.txt”
Open NamaFile For Append As #1
Print #1, “Data Baris pertama”
Print #1, “”
Print #1, “Data tambahan ketiga”

Close #1

NamaFile = App.Path & “\Filecoba.txt”
Open NamaFile For Input As #1
While Not EOF(1)
Input #1, tmp
Label1.Caption = tmp ‘<—contoh ingin mengetahui hasil pembacaan file
Wend
Close #1
End Sub

nah ane bingungnya gimana caranya nampilin data nya data baris pertama (header) itu berasal dari query ini :

select sandi,jku,tgl_lapor,noform,jmlisi from header where tgl_lapor = '05/03/2012'

dan data baris ketiga (isi) berasal dari query ini :

select kode_komponen,nama_komponen,t,t01,t02,t03,t04,t05,t06,t07,t08,t09,t10,t11,t12,t13,t14,t15,t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30 from isi i, komponen k, header h where k.kode_komponen = i.kode_komponen and h.tgl_lapor = i.tgl_lapor ang i.tgl_lapor = '05/03/2012'

mohon bantuannya gan…

dan hasilnya seperti ini :

Kembali Ke Atas Go down
Lihat profil user
 
Membuat output / Laporan berformat .txt
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
 :: Programming :: Pemrograman Visual :: Visual Basic-
Navigasi: