Berikut adalah langkah-langkah membuat report dengan menggunakan Data Report dengan koneksi dengan Data Environment.
Membuat koneksi dengan Data Environment
- Buka : menu -- Add Data Environment
- Klik kanan pada Connection1, pilih Properties
- Kemudian muncul Jendela Data Link Properties, pada Tab Provider Pilih Microsoft Jet 4.0 OLE DB Provider atau yang lain, klik next, pilih file databasenya, akhiri dengan OK.
- Klik kanan kembali Connection1, pilih Add Comment
- Setelah muncul Command1, Klik Kanan Command1, pilih Properties
- Kemudian muncul jendela Command1 Properties, atur source of datannya, kali ini saya menggunakan SQL STATEMENT, dengan cara pilih option SQL Statement dan Tuliskan Syntax SQL-nya, misalnya : " SELECT * FROM TSupplier", akhiri dengan OK.
- Buka : menu -- Add Data Report
- Set properties datareport1, Datasource=DataEnvironment1, DataMember=command1
- Susun sedemikian-rupa jendela data environment dan data report sehingga memungkinkan Field-field dalam command1 di drag ke dalam detail section-nya Data Report
- Atau dapat dilakukan dengan cara manual satu per satu RptTextBox-nya ke dalam detail section, kemudian atur properties-nya, yaitu dataformat dan datafield-nya
- Susun sesuai yang Anda inginkan
Tambahkan sebuah Form dan sebuah listBox, kemudian Copy-Paste coding dibawah ini :
Private Sub Command1_Click()
If DataEnvironment1.rsCommand1.State = adStateOpen Then DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Open "SELECT * FROM Tsupplier WHERE supplier='" + List1.Text + "'"
DataReport1.Show
End Sub
Private Sub Form_Load()
With DataEnvironment1
.Connection1.Provider = "Microsoft.Jet.OLEDB.4.0"
.Connection1.Open App.Path & "\db1.mdb"
With .rsCommand1
.Open "SELECT distinct(supplier) FROM Tsupplier"
Do Until .EOF
List1.AddItem .Fields(0)
.MoveNext
Loop
.Close
End With
End With
End Sub
Source Code :
http://www.ziddu.com/download/14331633/datareport.rar.html
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :