Kayıtlar arasında gezinme silme ekleme ve güncelleme yapmak için kullanabileceğimiz nesnelerden birisidir.

Öncelikle veritabanımızın bağlantılarını yapıyoruz…


Dim DS as Dataset
Dim Adp AS SqlDataAdapter
Dim BindingSource1 as BindingSource
Dim SqlConn As SqlConnection = New SqlConnection("Data Source=SERVERADI;AttachDbFilename=DataDirectory\VERİTABANININADI;Integrated Security=True;Connect Timeout=30;User Instance=True")

Try
ADP = New SqlDataAdapter("SELECT * FROM TabloAdı", SqlConn)
SqlConn.Open()
ADP.Fill(DS, "TabloAdı")
‘BindingSource nesnesini datasete bağlıyoruz..
BindingSource1 = New BindingSource(DS, "TabloAdı")
Catch ex As Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
Finally
SqlConn.Close()
End Try

‘BindingSource de bulunan bilgileri verileri textbox kutularına aktarmak için CURRENT Metodunu kullanıyoruz..
COUNT Metodu kayıt sayısını verir. Eğer 0 (Sıfır ) ise Kayıt Yoktur..

if BindingSource1.Count <> 0 then
‘Veri Tabanında kayıt varsa…
TextBox1.Text = BindingSource1.Current(“AlanAdı1”)
TextBox2.Text = BindingSource1.Current(“AlanAdı2”)
TextBox3.Text = BindingSource1.Current(“AlanAdı3”)
End if

‘Kayıtlar arasında gezinmek için…
BindingSource1.MoveNext ‘Sonraki Kayıt
BindingSource1.MoveLast ‘Son Kayıt
BindingSource1.MoveFirst ‘İlk Kayıt
BindingSource1.MovePrevious ’Önceki Kayıt

‘Yeni Kayıt Eklemek için ADDNEW Metodunu kullanıyoruz..
BindingSource1.AddNew

‘Kayıt Silmek için RemoveAt(indis) Metodunu kullanıyoruz..
BindingSource1.RemoveAt(SilinecekKaydınNumarası)

‘filitreleme yapmak için FILTER Metodunu kullanıyoruz..
BindingSource1.Filter = "Alan1 = '" & FilitrelenecekBilgi & "'"

‘Harf katarına göre filitreleme yapmak istersek LIKE operatöünü kullanabiliriz..
BindingSource1.Filter = "Alan1 LIKE '" & FilitrelenecekBilgi & "%'"

‘Arama Yapmak için FIND Metodunu kullanıyoruz..
‘Aramayı Filitrelenen kayıtlarda yapar. Eğer tüm kayıtlarda arama yapmasını istiyorsak ve daha önceden filitreme yaptıysak ilk olarak filitrelemeyi iptal etmeliyiz..
BindingSource1.RemoveFilter

‘POSITION Metodu kaydın numarasını verir. bulunan kaydın aktif kayıt olması için kullanıyoruz..
BindingSource1.Position=Bindingsource1.Find(“AranılacakAlanAdı”,AranılacakBilgi)

‘Position Metodu -1 (EksiBir) değerini alırsa aranılan kayıt yoktur.

if BindingSource1.Position = - 1 then
Msgbox(“Aradığınız Kayıt Yoktur”)
Else
Msgbox (BindingSource1.Current(“Alan1”) & “ ” & BindingSource1.Current(“Alan1”) & “ ” & BindingSource1.Current(“Alan1”))
End if

‘Kayıt Güncellemek için

BindingSource1.Current(“AlanAdı1”) = TextBox1.Text
BindingSource1.Current(“AlanAdı2”) = TextBox2.Text
BindingSource1.Current(“AlanAdı3”) = TextBox3.Text

‘Güncelleme Tamamlandıktan sonra ENDEDIT Metodunu kullanıyoruz..
BindingSource.EndEdit

‘Veri Tabanını Güncellemek için..
Adp.Update(DS,”TabloAdı”)


İYİ ÇALIŞMALAR