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.

Şekil 1

Şekil 2

Şekil 3

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.