DataBindings Metodu

Sql order by metodu ile comboboxtaki sorgu kriterlerine göre Access veritabanındaki verileri textboxlarda DataBindings metodunu kullanarak gösterimini sağlayacağız. Ayrıca sorgulama kriterine göre verilerin GridView nesnesinde gösterimini sağlayacağız. (Şekil 1)

Şekil 1

Şekil 2

Şekil 3

Imports System.Data.OleDb

Public Class Form1

Dim baglan As OleDbConnection

Dim komut As OleDbCommand

Dim da As OleDbDataAdapter

Dim ds As DataSet

Dim cmanager As CurrencyManager

Dim dview As DataView

Dim sorgu As String

Dim str As String = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=bilgiler.mdb"



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Kayıt Gösterimi"

End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Bu kısımdaki sorgulamaya göre kayıtları GridViewda listeleyeceğiz.

sorgu = "Select * From liste order by " & cbox1.Text

baglan = New OleDbConnection(str)

da = New OleDbDataAdapter(sorgu, baglan)

ds = New DataSet()

If (baglan.State = ConnectionState.Closed) Then

baglan.Open()

End If

da.Fill(ds, "liste")

'Ad ve Soyada göre sıralayacağımız

'kayıtları textboxlarda gösterimini sağlayacağız.

cmanager = Me.BindingContext(ds.Tables("liste"))

txtAd.DataBindings.Clear()

txtSoyad.DataBindings.Clear()

DateTimePicker1.DataBindings.Clear()

txtCep.DataBindings.Clear()

txtMail.DataBindings.Clear()

txtBirim.DataBindings.Clear()

txtAd.DataBindings.Add("Text", ds.Tables("liste"), "Ad")

txtSoyad.DataBindings.Add("Text", ds.Tables("liste"), "Soyad")

DateTimePicker1.DataBindings.Add("Text", ds.Tables("liste"), "GirisTarih")

txtCep.DataBindings.Add("Text", ds.Tables("liste"), "CepTelefon")

txtMail.DataBindings.Add("Text", ds.Tables("liste"), "Mail")

txtBirim.DataBindings.Add("Text", ds.Tables("liste"), "Birim")



dview = New DataView

dview.Table = ds.Tables("liste")

'Ad ve Soyada göre sıralayacağımız

'kayıtları dataview dan GridView a çekip

'listeleyeceğiz.

DataGridView1.DataSource = dview

baglan.Close()

End Sub

End Class



Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. 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.