Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Cara Membuat Textbox Pencarian Data dari Listview pada VB.Net

Dalam pencarian data kita memang sangat butuh Textbox yang bisa mem-filter data yang rinci. Hal ini sangat membantu kita dalam mencari ratusan bahkan ribuan data yang tersimpan dalam database. Pada artikel kali ini saya akan coba membagikan bagaimana Cara Membuat Textbox Pencarian Data dari Listview pada VB.Net.

cara membuat textbox pencarian di listview pada vbnet 500x446 Pencarian Data dari Listview Filter Data Listview VB.Net

Cara Membuat Textbox Pencarian Data dari Listview pada VB.Net

Pertama kita buat databasenya jangan lupa dengan tabelnya. Baiklah langsung saja, untuk mengikuti Tutorial kali ini anda butuh membuat koneksi terlebih dahulu, kalo agan” ingin membuat Textbox pencarian mungkin coding yang ane kasih bisa bantu, langsung saja ane kasih listingnya :

Sub LoadCari()
If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = serper
sConnection.Open()
End If

If cmbFilter.Text = “Silahkan Pilih” Then
ParamCari = “”
ElseIf cmbFilter.Text = “Kode Pelanggan” Then
ParamCari = “Where kd_pelanggan like ‘%” & txtFilter.Text & “%’”
ElseIf cmbFilter.Text = “Nama Pelanggan” Then
ParamCari = “Where nm_pelanggan like ‘%” & txtFilter.Text & “%’”
End If
Dim sqlQueryCari As String = “SELECT * FROM pelanggan ” & ParamCari

Dim sqlLoadPelangganDataTable As New DataTable
Dim i As Integer
Try
cekkoneksi()

With sqlCommand
.CommandText = sqlQueryCari
.Connection = sConnection
End With
With sqlAdapter
.SelectCommand = sqlCommand
.Fill(sqlLoadPelangganDataTable)
End With

lvPelangganData.Items.Clear()

For i = 0 To sqlLoadPelangganDataTable.Rows.Count – 1
With lvPelangganData
.Items.Add(sqlLoadPelangganDataTable.Rows(i)(“kd_pelanggan”))
With .Items(.Items.Count – 1).SubItems
.Add(sqlLoadPelangganDataTable.Rows(i)(“nm_pelanggan”))
.Add(sqlLoadPelangganDataTable.Rows(i)(“nm_warung”))
.Add(sqlLoadPelangganDataTable.Rows(i)(“alamat”))

End With
End With
Next

Catch ex As Exception
MsgBox(ex.Message)
End Try
sqlCommand.Dispose()
sqlAdapter.Dispose()
sConnection.Close()
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

2 Comments

Add a Comment

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