Bind Data Uygulaması

Bind Data metoduyla veritabanımızda kayıtlı veriler arasında dolaşabileceğiz. Formunuza 4 adet TextBox, Button ve Label ekleyin.(Şekil 1)

Bu uygulamada kayıtlar arasında ileriye, geriye, ilk kayıta veya son kayıta gidebileceğiz.

Şekil 1

Form1.vb

Imports System

Imports System.Data

Imports System.Windows.Forms

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

        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb;")

        Dim sql As String = "SELECT * FROM Employees"

        Dim da As New OleDbDataAdapter(sql, baglan)

        Dim DataSet1 As DataSet = New DataSet

        da.Fill(DataSet1, "Employees")

        'Column lara bağlanıp, bilgileri textboxlara getiriyoruz.

        'employees tablosundaki EmployeeID column a bağlanıyoruz.

        'diğer alanlarada aynı şekilde bağlanıyoruz.

        txtId.DataBindings.Add("text", DataSet1, "Employees.EmployeeID")

        txtAd.DataBindings.Add("text", DataSet1, "Employees.FirstName")

        txtSoyad.DataBindings.Add("text", DataSet1, "Employees.LastName")

        txtAdres.DataBindings.Add("text", DataSet1, "Employees.Address")

        ' Binding Manager oluşturuyoruz.

        bMgr = Me.BindingContext(DataSet1, "Employees")

    End Sub

    Private Sub btnIleri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIleri.Click

         ' Bir sonraki kayıta gidiyoruz

        bMgr.Position += 1

    End Sub

    Private Sub btnGeri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeri.Click

        ' Bir önceki kayıta gidiyoruz

        bMgr.Position -= 1

    End Sub

    Private Sub btnIlk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIlk.Click

       ' İlk kayıta gidiyoruz

        bMgr.Position = 0

    End Sub

    Private Sub btnSon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSon.Click

       ' Son kayıta gidiyoruz       

       bMgr.Position = bMgr.Count

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN