Search Data Menggunakan Binding Function di VB.Net dan Ms.Access Database

Kali ini saya mau share cara mencari data menggunakan binding function di visual basic 2015 menggunakan database microsoft access. Binding function ini emang lebih mudah, tapi perlu banyak nulis kalau ingin menampilkan data ke textbox.Tentu saja saya menggunakkan MetroFramework untuk tampilan yang lebih kekinian, untuk Frameworknya silahkan download dimari

langsung saja, silahkan anda membuat form seperti berikut:

Untuk urutan nya MetroTextBox2 Berada pada ID dan seterusnya, dan MetroTextBox6 pada Search.

Keterangan:

ListBox1
MetroTextBox6 (Cari)
MetroTextBox1 (ID)
MetroTextBox2 (Nama)
MetroTextBox3 (NISN)
MetroTextBox4 (Kelas)
MetroTextBox5 (Alamat)

Lalu buatlah module dan masukkan script berikut:

Imports System.Data.OleDb

Module koneksi

    Public conn As OleDbConnection

    Public cmd As OleDbCommand

    Public ds As DataSet

    Public dr As OleDbDataReader

    Public da As OleDbDataAdapter

    Public bs As BindingSource

    Public lokasidata As String

    Public Sub konek()

        lokasidata = "provider=microsoft.jet.oledb.4.0;data source=db_biodata.mdb"

        conn = New OleDbConnection(lokasidata)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

    End Sub

End Module

Klik dua kali pada form nya, lalu masukkan script berikut:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        konek()

        cmd = New OleDbCommand

        da = New OleDbDataAdapter("SELECT * FROM tbl_biodata", conn)

        ds = New DataSet

        da.Fill(ds, "tbl_biodata")

        ListBox1.DataSource = ds.Tables("tbl_biodata")

        ListBox1.DisplayMember = "nama"

        bs = New BindingSource

        bs.DataSource = ds.Tables("tbl_biodata")

        MetroTextBox1.DataBindings.Add("Text", bs, "idsiswa")

        MetroTextBox2.DataBindings.Add("Text", bs, "nama")

        MetroTextBox3.DataBindings.Add("Text", bs, "nisn")

        MetroTextBox4.DataBindings.Add("Text", bs, "kelas")

        MetroTextBox5.DataBindings.Add("Text", bs, "alamat")

        ListBox1.SelectedIndex = 0

    End Sub

Klik dua kali kembali pada listbox nya, lalu masukkan script berikut:

If Not IsNothing(bs) Then

            bs.Position = ListBox1.SelectedIndex

        End If

Terakhir pada tombol Cari masukkan script berikut:


bs.Filter = String.Format("Nama Like '*{0}*'", MetroTextBox6.Text)

Silahkan coba jalankan, jika berhasil berarti tidak ada masalah, untuk video nanti saya coba uploadkan di yutub. Sekian tutorialnya, semoga bermanfaat dan jika ada yang perlu di tanyakan silahkan berkomentar ya.