CakBud

Ketika Hidup Harus Bermakna Untuk Sesama..

Filtering Data Report Pada VB 6.0

Tulisan berikut mencoba menjawab pertanyaan sahabat baru saya di FB, Mr. John (tetap semangat pak… :) ) yang sedang kesulitan membuat filter pada datareport. Sekaligus menyambung tulisan saya sebelumnya Cetak Data Report Landscape Pada Visual Basic 6.0
Berikut langkah-langkahnya :

  1. Siapkan kopi, atau minuman lain yang menyegarkan :)
  2. Pada contoh ini saya menggunakan sebuah databases Access (dbsurat.mdb) dangan sebuah tabel yang saya beri nama surat dan dengan struktur sebagai berikut :
    struktur
    dan silahkan diisi datanya..
  3. Buat sebuah project baru dan tambahkan dua buah komponen pada project anda
    komp
  4. Desain form seperti dibawah ini
    form
  5. Selanjutnya silahkan atur koneksi ADODC1 dengan database dbsurat.mdb yang sudah kita buat, dan atur recordsetnya ke tabel surat.
  6. Aktifkan DataGrid1, atur properti DataSource-nya  dengan ADODC1 dan pastikan ketika form anda di running hasilnya seperti berikut :
    formrun
  7. Selanjutnya anda buat sebuah DataEnvironment
    dataenvironment
  8. Atur koneksinya dengan tabel surat yang sudah kita buat
    atur
  9. Buat sebuah DataReport, atur properti DataSource dengan DataEnvironment1 dan DataMember dengan Command1
    data_report
  10. Atur tampilan sebagai berikut :
    aturreport
  11. Selanjutnya kita kembali ke Form, aktifkan DataGrid1 dan tambahkan satu even procedure pada DataGrid1 – Double Klik, dan tambahkan code sebagai berikut :

    Private Sub DataGrid1_DblClick()
    ‘ ujikan apakah recordset tabel surat dalam keadaan terbuka atau tidak,
    ‘ jika terbuka (1) maka ditutup
    If DataEnvironment1.rsCommand1.State = 1 Then
    DataEnvironment1.rsCommand1.Close
    End If
    ‘buka recordset tabel surat
    DataEnvironment1.rsCommand1.Open
    ‘refresh data pada recordset tabel surat
    DataEnvironment1.rsCommand1.Requery
    ‘filter data berdasarkan nomor surat
    DataEnvironment1.rsCommand1.Filter = “no_surat=’” & Adodc1.Recordset(0) & “‘”
    ‘tampilkan datareport
    DataReport1.Show
    End Sub

  12. Setelah semuanya selesai running form anda dan klik ganda pada datagrid anda, pastikan hasilnya seperti gambar dibawah, jika tidak, maka anda harus mengulang kembali.. he he he.. tetep semangat dunk..
    final

Kode program silahkan klik disini

Demikian semoga membantu

  • Share/Bookmark
Categories: Uncategorized
10 December 2009 at 01:42 - Comments
John
Cak..apa email saya masuk mengenai program surat….untuk filter dataenvironment tolong di cek Cak yang salahnya di mana…namanya juga pemula ni
13 December 09 at 08:59
ceriaselamanyah
ini cak janjiku..
mencoba berbuat sesuatu untuk Indonesia lewat sebuah persembahan untuk ibu di hari ibu

http://kupu-kupu.otodidak.info/
24 December 09 at 07:26
ceriaselamanyah
ini cak janjiku..
mencoba berbuat sesuatu untuk Indonesia lewat sebuah persembahan untuk ibu di hari ibu

http://ruangperempuan.web.id/
24 December 09 at 07:27
hariyanto
contoh program aplikasi/////////???????
4 February 10 at 15:03
hariyanto


hariyanto: contoh program aplikasi/////////???????  

4 February 10 at 15:13
kak rohim
thx cak.. sangat berguna uk newbee
15 February 10 at 14:32
Komaruddin a.k.a virus13
mantap… nih die yg gW cari…
13 March 10 at 17:15
bobbiqu
salam kenal Bos
saya ingin bantuannya bos
gmana cara membuat data report dengan bantuan crystal report
dan gimana cara pengkoneksiannya ke database
mohon bantuannya ya mas
trim’s
25 March 10 at 15:02
nopryani
Aku mau nnya, gmn c nyetak data yg dfilter aj, sdangkan data yg tidak kefilter tidak ikut k’cetak?
thank
30 August 10 at 13:06