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 e As 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.