BindingSource + BindingNavigator + DataGridView

Mungkin masih jarang yang mengkombinasikan BindingSource, BindingNavigator, dan DataGridView, padahal cara ini dapat mempermudah pembuatan aplikasi database.
Masing-masing kontrol memiliki fungsi sendiri-sendiri, DataGridView sebagai tampilan tabelnya, BindingNavigator sebagai tombol-tombol navigasi, dan BindingSource sebagai penghubungnya.


Public Class Form1
    Dim Adp As New OleDb.OleDbDataAdapter("select * from tblAlamat", _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "/data.mdb")
    Dim Bld As New OleDb.OleDbCommandBuilder(Adp)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DT As New DataTable
        Adp.Fill(DT)

        BindingSource1.DataSource = DT

        BindingNavigator1.BindingSource = BindingSource1
        DataGridView1.DataSource = BindingSource1
    End Sub

    Private Sub BindingSource1_ListChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ListChangedEventArgs) Handles BindingSource1.ListChanged
        'prosedur utk menyimpan langsung ke database
        Try
            Adp.Update(BindingSource1.DataSource)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class