Wednesday, February 20, 2013

[Vb6] Filter Adodc dan Datagrid

/ in / with 11 comments /


Masukan kode ini di bawah ini
fungsinya untuk menampilkan text yang di masukan di text box dan hanya itu saja yang keluar ...
If Adodc1.Recordset.RecordCount <> 0 Then 
Adodc1.Recordset.Filter = "Fieldnya '*" & txtcari.Text & "*'" 
Else 
MsgBox "Data tidak Ada!!", vbExclamation 
End If
Cara kedua :

Filter data dengan Textbox
Adodc1.Recordset.Filter = "NamaKolom like '%" + Me.Text1.Text + "%'"
‘jika anda mengetik huruf A maka data-data yang ada huruf A akan di tampilkan


Filter data dengan 2 pencarian textbox
Adodc1.Recordset.Filter = "Kolom1 like '%" + Me.Text1.Text + "%'and Kolom2 like '%" + Me.Text2.Text + "%'"

11 comments:

  1. AnonymousJuly 21, 2013 at 7:01 AM

    terima kasih share artikel mengenai filter.
    sangat bermanfaat bagi saya.

    Salam, Rasyid

    ReplyDelete
  2. UnknownJuly 27, 2013 at 12:52 AM

    Sama2

    ReplyDelete
  3. UnknownNovember 29, 2013 at 9:32 AM

    maksih gan ilmunya , berguna banget nih buat saya lagi di kejar-kejar deadline project, saya juga mau sekalian nannya kalo ngitung total dari data field yang udah di filter dengan textbox gmana gan ?

    ReplyDelete
    Replies
    1. UnknownNovember 30, 2017 at 9:27 AM

      ini untuk hitung total record yg sudah di filter
      Adodc1.Recordset.RecordCount

      Delete
  4. ZoeMarch 16, 2017 at 7:29 PM

    Gan, kok saya error ya. Pas ditulis bisa. Tapi kalo textboxnya dikosongin muncul error "Argument are of the wrong type..... bla ...bla" Itu kenapa ya gan https://s22.postimg.org/daaglhjch/erorvb.png

    ReplyDelete
    Replies
    1. UnknownNovember 30, 2017 at 9:21 AM

      tambahkan validasi untuk pengecekan textbox kosong seperti ini
      If TextBox1.Text <> "" Then

      Delete
  5. maaymeongAugust 24, 2017 at 11:04 AM

    Wah terima kasih sekali

    ReplyDelete
  6. UnknownSeptember 18, 2017 at 10:25 AM

    makasih pencerahannya tapi koq data gridnya gak bisa seperti awal lagi?? mohon di lengkapi boss,, makasihh

    ReplyDelete
  7. UnknownJuly 24, 2018 at 3:27 PM

    Kalo error run-time 3001 gmna kitu kakak butuh pencerahan terimakasih

    ReplyDelete
  8. teka teki codingSeptember 15, 2018 at 10:55 AM

    MAkasih Ganzss

    ReplyDelete

Subscribe to: Post Comments (Atom)