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
Sangat mudahkan.. Selamat mencoba dan bercoding ria...
Wassalam..
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :