Tutorial : Button Cari Untuk Visual Basic dengan Visual Studio

Setelah belajar membuat button Save pada Tutorial Button Save pada Visual Basic, kita akan belajar bagai mana cara membuat kode untuk button cari dan input.

Sebelumnya, kita memiliki button Tampilkan. Namun untuk mempermudah pekerjaan, hapus button tersebut. Kita akan membuat data otomatis tampil saat di run agar memudahkan pencarian.

Pada Tutorial Menghubungkan Database kita telah membuat kode untuk menampilkan data dan menamainya dengan sub Data_tampil().

Klik dua kali pada Form1 di bagian mana saja. Masukan kode Data_tampil()

Kemudian klik dua kali pada button input. Masukan kode berikut:

        nip.Text = ""
        nama.Text = ""
        alamat.Text = ""

Fungsi kode input adalah, saat kita akan memasukan data dan sudah ditulis semua, kita tidak perlu menghapusnya satu-persatu.

Sekarang untuk button cari. Klik dua kali pada button cari, lalu masukan kode berikut:

Dim da As OleDbDataAdapter
        Dim ds As New DataSet
        da = New OleDbDataAdapter("SELECT * FROM daftar where NIP = '" & nip.Text & "'", con)
        ds = New DataSet
        da.Fill(ds, "daftar")
        DataGridView1.DataSource = ds.Tables("daftar")

        nip.Text = DataGridView1.CurrentRow.Cells(0).Value
        nama.Text = DataGridView1.CurrentRow.Cells(1).Value
        alamat.Text = DataGridView1.CurrentRow.Cells(2).Value

Pada kode "SELECT * FROM daftar where NIP = '" & nip.Text & " adalah untuk menentukan kita akan mencari berdasarkan apa. Pada kode tersebut kita akan mencari berdasarkan NIP.

Sedangkan kode daftar adalah untuk mencari pada tabel yang telah kita hubungkan. 

Pada nip.Text = DataGridView1.CurrentRow.Cells(0).Value berfungsi untuk menampilkan data yang telah kita cari pada text box. Angka 0 menunjukan untuk kolom pertama. Untuk kolom kedua kita akan memasukan angka 1, dan seterusnya.

Nah sampai disinu dulu tutorial dari saya. Semoga mudah dipahami, dan selamat mencoba.

Author: Bela Pertiwi Larashati