Mencari Data Dengan Menggunakan LIKE pada DataGridView VB.Net

Assalamu'alaikum wr wb

Oke gan sekarang kita akan membuat pencarian data dengan menggunakan %Like%
atau biasa disebut memfilter data yang ada di DataBase sehingga pencarian sangat mudah ditemukan karna sistem ini akan mencari karakter huruf ataupun angka jika dicari A akan tampil pada DataGridView yang berinisial A atau sebagainya,
pada Pos yang lalu juga telah dibuat Desain DataGridView dan DataGridView hanya bisa di input dengan Angka sekarang kita buat Pencariannya.

Oke langusng aja dahh ngga pake ribet ....

Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Rd As SqlDataReader
Dim Cmd As SqlCommand

Private Sub GridLoad()
        Da = New SqlDataAdapter("select p.Faktur,p.tanggal,p.NamaAgen,p.PO, " & _
                "(P.SubTotal - P.TotalDiskon)+((P.SubTotal - P.TotalDiskon)*10/100) as 'Total' " & _
                ",f.Pelunasan,f.utang,f.keterangan from Pembelian p LEFT join DetailPembelian_F " & _
                "f on P.Faktur=F.Faktur " & _
                "WHERE p.NamaAgen like '%" & TxtCari.Text & "%'  & "'", Conn)
        Ds = New DataSet
        Da.Fill(Ds, "Barang")
        DGV.DataSource = Ds.Tables("Barang")
        DGV.ReadOnly = True
End Sub

Jangan lupa GridLoad nya dipanggil gan :D

Private Sub FrmDaftarPembelian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)  _
Handles MyBase.Load

        BukaDB()
        GridLoad()

    End Sub

Contoh Hasilnya nii gan ....



untuk pencarian berdasar Tanggal juga bisa gan tinggal tambahin Between atau diatas tanggal >= dan
dibawah tanggal <=

Okee Sekian dulu dari ane gan, ane lg buat Project nii Buat Perusahaan + Buat UjiKom hehehe
ditunggu komennya....
=========================================================================