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.
ads
Hiç yorum yok: