membuat fungsi pencarian di vb net 2008 or 2010

fungsi pencarian....................

Membuat Fungsi Pencarian Data (VB.NET)

 Tutorial kali ini kita akan membahas mengenai cara untuk membuat pencarian data di VB.Net

berikut adalah source code untuk membuat tombol dengan fungsi pencarian data :

Imports System.Data

Imports System.Data.SqlClient

Public Class F_CARI

    Public dtadapter As SqlDataAdapter = Nothing

    Public SQL1 As String

    Public koneksi As String

    Public conn As New SqlConnection

    '----- sub untuk koneksi ke database, disini saya menggunakan ms.sql sever 2000----

    '  untuk koneksinya sendiri diubah sesuai dengan koneksi yang kalian gunakan

    Sub konek()

        koneksi = "Data Source=MALADOANK;Initial Catalog=BERBAGI;Integrated Security=true;User ID=mdbk;Password=123"

        conn = New SqlConnection(koneksi)

        conn.Open()

    End Sub

    ''===========fungsi button untuk pencarian id petugas

    Private Sub bt_CARI_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles bt_CARI.Click

        konek()

        Dim sql2 As String

        sql2 = "select * from PETUGAS where id_petugas like '%" & TX_ID.Text & "%'"

        dtadapter = New SqlDataAdapter(sql2, conn)

        Dim SRT As New DataTable

        SRT.Clear()

        dtadapter.Fill(SRT)

        DataGridView1.DataSource = SRT

    End Sub

End Class

 ## Selamat mencoba, jika ada yang error atau ada yang belum paham silahkan tinggalkan komentar kalian. terima kasih.