Membuat Pencarian Di Visual Basic

                   Mesin pencarian merupakan salah satu elemen penting dari sebuah pemrograman. Hal ini dikarenakan, dengan pencarian kita dapat mengetahui atau mencari data dengan mudah. Mungkin hal tersebut tidak berlaku apabila data hanya sedikit, tapi bagaimana bila datanya ribuan atau jutaan ?Apakah anda dengan tega membuat user mencari data satu persatu ?Oleh karena dasar tersebut kak thoy memberikan solusi, untuk membuat source code pencarian pada Visual Basic.NET.

Disini kak thoy seperti biasa menggunakan Visual Basic 2010 dan SQL Server sebagai databasenya. Kak thoy menggunakan StoredProcedure yah ..
hhe :)

Sebelum

 Sesudah

1. Masukkan textbox dan beri nama txt_cari
2. Database dengan nama "testing"
3. Masukkan DataGridView dengan nama dg_negara
4. klik 2x pada textbox "txt_cari" dan ketikkan kode seperti di bawah ini


Private Sub txt_cari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_cari.TextChanged
        ds = New DataSet
        da = New SqlDataAdapter
        Dim dv As DataView
        If txt_cari.Text = "" Then 'Test if the textbox is null, then reset thegrid.
            Call tampil_data()
           
        Else
            dc.Connection = konek()
            dc.CommandType = CommandType.StoredProcedure
            dc.CommandText = "cari_negara"
            dc.Parameters.Add("@cari", SqlDbType.VarChar, 255).Value = txt_cari.Text
            da.SelectCommand = dc
            da.Fill(ds, "caripenyakit")
            dv = New DataView(ds.Tables(0))
            dg_negara.DataSource = ds
            dg_negara.DataMember = "caripenyakit"
          
            dc.Parameters.Clear()
        End If
    End Sub


5. dengan tambahan untuk menampilkan data

Private Sub tampil_data()
        dc = New SqlCommand
        da = New SqlDataAdapter
        ds = New DataSet
        dc.Connection = konek()
        dc.CommandType = CommandType.StoredProcedure
        dc.CommandText = "tampil_negara"
        da.SelectCommand = dc
        da.Fill(ds, "Negara")
        dg_negara.DataSource = ds
        dg_negara.DataMember = "Negara"
End Sub

6. dengan tambahan untuk membuat koneksi

Public Function konek() As SqlConnection
        cone = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=testing;Integrated Security=SSPI;Persist Security Info=true;")
        Try
            cone.Open()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Return cone
    End Function

7. isi dari StoredProcedure cari_negara
create proc cari_negara (@cari varchar(255))
as
select @cari= '%'+RTRIM(@cari)+'%';
select id_negara as [ID Negara], nama_negara as [Nama Negara] from tbl_negara where nama_negara like @cari

8. isi dari StoredProcedure tampil_negara
create proc [dbo].[tampil_negara]
as

select * from tbl_negara

9. selesai~


Catatan
1. Program diatas bukan program sepenuhnya, jadi masih perlu dipahami
2. VB yang digunakan Visual Basic 2010 dengan database SQL Server 2008
3. Program diatas benar2 saya buat, jadi sudah dicoba dan hasilnya work 100%