Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Cara Membuat Textbox Pencarian Data dari Datagridview pada VB.Net

Halo Sobat Coding, Pada tutorial sebelumnya kita sudah mempelajari tentang bagaimana Cara Menampilkan Data dari Database ke Datagridview pada VB.Net. Pada tutorial kali ini kita akan meneruskan pembahasan sebelumnya yaitu mempelajari tentang bagaimana Cara Membuat Textbox Pencarian Data dari Datagridview pada VB.Net.

cara membuat textbox pencarian dari datagridview pada vbnet 500x365 Search function using Textbox and Combo Box VB.Net Pencarian Filter Data di Textbox Filter Data Datagridview VB.Net

Cara Membuat Textbox Pencarian Data dari Datagridview pada VB.Net

Pertama kita buat databasenya jangan lupa dengan tabelnya. Baiklah langsung saja, untuk mengikuti Tutorial kali ini anda butuh Koneksi terlebih dahulu, kalo agan” ingin membuat Cara Membuat Textbox Pencarian Data dari Datagridview pada VB.Net.  Mungkin coding yang ane kasih bisa bantu, langsung saja ane kasih listingnya :

Sub Tampilgrid()
Call cekkoneksi()
sqlAdapter = New MySqlDataAdapter(“select * from barang ” & paramCari, sConnection)
Ds = New DataSet
sqlAdapter.Fill(Ds, “barang”)
DGV.DataSource = Ds.Tables(“barang”)
DGV.ReadOnly = True

End Sub

Sub AturDgv()
Try

DGV.Columns(0).Width = 100
DGV.Columns(1).Width = 400
DGV.Columns(2).Width = 180
DGV.Columns(3).Width = 120
DGV.Columns(4).Width = 120
DGV.Columns(5).Width = 120
DGV.Columns(6).Width = 180

DGV.Columns(0).HeaderText = “Kode Barang”
DGV.Columns(1).HeaderText = “Nama Barang”
DGV.Columns(2).HeaderText = “Harga Jual”
DGV.Columns(3).HeaderText = “Diskon”
DGV.Columns(4).HeaderText = “Stock”
DGV.Columns(5).HeaderText = “Retur”
DGV.Columns(6).HeaderText = “Harga Beli”
Catch ex As Exception
End Try
End Sub

Private Sub FormUtama_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Call cekkoneksi()
Call Tampilgrid()
Call AturDgv()

End Sub

Sub Loadcari()

If cmbFilter.Text = “Silahkan Pilih” Then
paramCari = “”
ElseIf cmbFilter.Text = “Kode Barang” Then
paramCari = “Where kd_barang like ‘%” & txtFilter.Text & “%’”
ElseIf cmbFilter.Text = “Nama Barang” Then
paramCari = “Where nm_barang like ‘%” & txtFilter.Text & “%’”
End If

Call Tampilgrid()
Call AturDgv()

End Sub

Sub txtFilter_TextChanged(sender As Object, e As EventArgs) Handles txtFilter.TextChanged
Loadcari()

End Sub

Private Sub btnCari_Click(sender As Object, e As EventArgs) Handles btnCari.Click
Loadcari()
End Sub

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme