Veritabanındaki Kayıtlar Arasında Gezinmek (DataBind Navigate)

Bu makalemizde Access veritabanına bağlanarak, formumuzdaki İleri Geri Butonlarına tıklayarak  veritabanındaki kayıtları Textbox larda göstereceğiz. (Şekil 2)
Aşağıdaki şekilleri inceleyin.

Imports System.Data.OleDb
Public Class Form1
    Private bMgr As BindingManagerBase
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ’Veritabanına bağlantı oluşturuldu.
        Dim str As String = "SELECT * FROM liste"
        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=personel.mdb;")
        Dim da As New OleDb.OleDbDataAdapter(str, baglan)

        baglan.Open()
        Dim ds As New DataSet()

        ’ Datasetle tablodan veri alınıyor
        da.Fill(ds, "liste")

        ’ liste tablosundaki Ad sütunundaki veri gösterilecek
        TextBox1.DataBindings.Add("text", ds, "liste.Ad")

        ’ liste tablosundaki Soyad sütunundaki veri gösterilecek
        TextBox2.DataBindings.Add("text", ds, "liste.Soyad")

        ’ Binding Manager oluşturuluyor.
        bMgr = Me.BindingContext(ds, "liste")
        baglan.Close()
    End Sub

    Private Sub btnGeri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeri.Click
        bMgr.Position -= 1
    End Sub

    Private Sub btnIleri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIleri.Click
        bMgr.Position += 1
    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN