Binding Manager Dengan Vb 2008

Apakah pada sudah membaca artikel saya dengan judul Multiple BindingNavigator ?? Jika sudah, pada artikel tersebut di jelaskan bagaimana Binding Data dengan cara Design Time dan sangat mudah sekali. Untuk artikel kali ini penulis akan menjelaskan bagaimana cara Binding Data dengan cara Run Time (Coding).

Penulis menggunakan Northwind database, dengan menggunakan table Employees. Sekarang pada form tambahkan 2 buat text box dan 4 buah button. Susun dan design seperti gambar diatas.

Untuk pertama kali buat deklarasikan objek Dataset dan Binding Manager

Pada Class Form

Dim DataSet1 As New DataSet

Dim bMgr As BindingManagerBase

Lalu double click form, dan ketikkan sintaks dibawah ini :

       ' Set up connection string

        Dim connString As String = _

             "server = .\sqlexpress;" _

           & "integrated security = true;" _

           & "database = northwind"

        Dim sql As String = _

        "select " _

        & " * " _

        & "from " _

        & "employees"

        Dim conn As SqlConnection = New SqlConnection(connString)

        Dim da As SqlDataAdapter = New SqlDataAdapter(sql, conn)

        da.Fill(DataSet1, "employees")

        'Bind textbox ke data kolom

        TextBox1.DataBindings.Add("text", DataSet1, "employees.firstname")

        TextBox2.DataBindings.Add("text", DataSet1, "employees.lastname")

        'Membuat Binding Manager

        bMgr = MyBase.BindingContext(DataSet1, "employees")

Dengan sintaks di atas kita telah melakukan Binding data untuk TextBox1 dengan kolom FirstName dan TextBox2 dengan kolom LastName.

Dan untuk menjalankan Navigator data, double click button Previous/Mundur dan ketik sintaks dibawah :

bMgr.Position -= 1

Button Next/Maju : bMgr.Position += 1

Button First / Awal : bMgr.Position = 0

Button Last / Akhir : bMgr.Position = DataSet1.Tables("employees").Rows.Count - 1