ADO .NET Nedir?

1-Kontrolleri Veri Tabanına Bağlamak

btnBaglan butonunun Click olayı içine aşağıdaki kodları yazın

ØOleDbDataAdapter1.Fill(DataSet11, "Kisiler")

Ø lblKonum.Text = Me.BindingContext(DataSet11, "Kisiler").Position + 1 & "/" &_ Me.BindingContext(DataSet11, "Kisiler").Count

Øİlk satır Fill metodu ile Dataset11 içerisine Kisiler tablosundaki kayıtları yükler.

 İkinci satır ise lblKonum üzerinde O Anki Kayıt No / Toplam Kayıt Sayısı formatında imleç konumunu günceller.

1-Kontrolleri Veri Tabanına Bağlamak

btnGuncelle butonunun Click olayı içine aşağıdaki kodları yazın

OleDbDataAdapter1.Update(DataSet11, "Kisiler")

OledbDataAdapter’ın Update metodu, Dataset içerisinde yapılan değişiklikleri veri tabanına günceller.

btnIlk butonunun Click olayı içine aşağıdaki kodları yazın

ØMe.BindingContext(DataSet11, "Kisiler").Position = 0

ØlblKonum.Text = Me.BindingContext(DataSet11, "Kisiler").Position + 1 & "/" &_ Me.BindingContext(DataSet11, "Kisiler").Count

ØFormun BindingContex koleksiyonunun Position özelliğine 0 atanarak, Dataset imlecinin ilk kayıta gitmesi sağlanır.

ØlblKonum üzerinde O Anki Kayıt No / Toplam Kayıt Sayısı formatında imleç konumunu günceller

btnGeri butonunun Click olayı içine aşağıdaki kodları yazın

ØIf Me.BindingContext(DataSet11, "Kisiler").Position > 0 Then

Ø            Me.BindingContext(DataSet11, "Kisiler").Position -= 1

Ø            lblKonum.Text = Me.BindingContext(DataSet11, "Kisiler").Position + 1 & "/" & Me.BindingContext(DataSet11, "Kisiler").Count

Ø        End If

ØYukarıda, eğer o anki kayıt ilk kayıt değilse, imleç pozisyonu bir azaltılmıştır. Ardından yine mevcut konum lblKonum üzerinde görüntülenmiştir.