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 :