Menampilkan Record dari database Access dengan Visual Basic .Net

Bagi temen-teman yang baru kenal VB.net bisa coba latihan berikut untuk menampilkan record dari database.

Silakan kamu buat dulu database dbSales.accdb, kemudian buat tabel customer dengan field Name, City dan Industry-Type. Jangan lupa isi beberapa contoh data customer.

Komponen yang dibutuhkan Datagrid dan Command Button. Silakan desain form kamu seperti gambar dibawah ini.

Double klik pada form dan tuliskan script berikut:

Imports System.Data.OleDb                       'koneksi pakai OLEDB
Public Class Form2
    Dim conn As OleDbConnection
    Dim cm As OleDbCommand
    Dim dr As OleDbDataReader
    Dim bind As BindingSource

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\lat_vb_dgv\dbSales.accdb")
        conn.Open()
        cm = New OleDbCommand("select * from customer", conn)
        dr = cm.ExecuteReader
        bind = New BindingSource                'digunakan untuk navigasi prev, next
        bind.DataSource = dr
        dg.DataSource = bind
    End Sub

Kembali ke mode desain dan double klik commang button dengan tulisan “next”. Tambahkan script bind.MoveNext(), sehingga script menjadi:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bind.MoveNext()
    End Sub

Lakukan hal yang sama pada command button “Previous”,”First”,dan “Last”

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bind.MovePrevious()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        bind.MoveFirst()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        bind.MoveLast()

    End Sub

Sebagai tambahan, double klik pada datagridview dan pilih Procedure KeyUp. Ubah script program seperti script berikut:

    Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dg.KeyUp
        Dim br As Integer = dg.SelectedRows(0).Index
        TextBox1.Text = dg.Item(0, br).Value            'menampilkan data dari datagrid ke textbox1
    End Sub

End Class

Tujuan script diatas adalah agar pada saat kamu tekan tombol keyboard arah atas dan bawah untuk memilih record, secara otomatis Field Name pada datagridview akan tampil pada textboxt di bawahnya.

Semoga bermanfaat.