Would you like to react to this message? Create an account in a few clicks or log in to continue.


 
IndeksBSI-PCLatest imagesPencarianPendaftaranLogin

 

 Membuat output / Laporan berformat .txt

Go down 
PengirimMessage
bubles
Pendatang Baru
Pendatang Baru
bubles


Jumlah posting : 2
Age : 34
Registration date : 29.03.12

Membuat output / Laporan berformat .txt Empty
PostSubyek: Membuat output / Laporan berformat .txt   Membuat output / Laporan berformat .txt Icon_minitime2012-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 :

Membuat output / Laporan berformat .txt Jctq4udg
Kembali Ke Atas Go down
 
Membuat output / Laporan berformat .txt
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» mencetak data berformat .txt di foxpro
» bagaimana cara membuat One to Many di VB pada form transaksi

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