Vb .Net - Menciptakan Form Pencarian Data Pada Datagridview

Masih di Tutorial Visual Basic .Net Oleh JavaNetMedia, kali ini kami akan membahas wacana : Cara Membuat Pencarian Data Pada DataGridView Pada Form VB .NET. Kami informasikan juga pada Tutorial kali ini, kami memakai Visual basic .Net versi 2010 dan Database memakai SQL Server 2008.

Berikut langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI yaitu menyerupai gambar dibawah ini :

Jika sudah silahkan Save lalu anda dapat mengisi data menyerupai gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :

Pada Form1 diatas, kami memakai DataGridView1, Label1 dan TexBox1.
Jika sudah sesuai dengan gambar diatas, silahkan masukan koding dibawah ini ;

  Imports System.Data.SqlClient Public Class Form1     Dim Conn As SqlConnection     Dim da As SqlDataAdapter     Dim ds As DataSet     Dim Cmd As SqlCommand     Dim Rd As SqlDataReader     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"         Conn = New SqlConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Koneksi()         da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)         ds = New DataSet         ds.Clear()         da.Fill(ds, "TBL_PEGAWAI")         DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))     End Sub     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged         Call Koneksi()         Cmd = New SqlCommand("select * from TBL_PEGAWAI where Nama_Pegawai like '%" & TextBox1.Text & "%'", Conn)         RD = CMD.ExecuteReader         Rd.Read()         If Rd.HasRows Then             Call Koneksi()             da = New SqlDataAdapter("select * from TBL_PEGAWAI where Nama_Pegawai like '%" & TextBox1.Text & "%'", Conn)             ds = New DataSet             da.Fill(ds, "ketemu")             DataGridView1.DataSource = ds.Tables("ketemu")             DataGridView1.ReadOnly = True         End If     End Sub End Class 

Dan Jika sudah final semuanya, silahkan Jalankan atau Run Project VB .Net anda, lalu masukan nama yang akan anda cari pada textBox PENCARIAN DATA. maka data yang anda cari sesuai dengan data yang anda masukan...

Note :
Silahkan samakan arahan yang berwarna kuning dengan nama komputer anda

Tutorial diatas aku buat memakai VB .NET Databasenya memakai SQL Server.
Bagi anda yang ingin memakai Database MySQL atau Access sama saja. Artinya anda hany butuh beda koneksinya saja. Untuk koneksi Database MySQL dan Access sudah aku buatkan di Web ini.

Silahkan KLIK DISINI untuk download Project diatas
Silahkan KLIK DISINI Untuk melihat Video Tutorial diatas

Demikianlah Tutorial VB .NET - Membuat Form Pencarian Data Pada DataGridView Semoga bermanfaat untuk anda, Jangan lupa anda dapat Like, Share and Komentar dibawah. Untuk Index Tutorial VB .NET lainnya, dapat anda Klik Link Ini.

Share this post