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

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.