Bu derste class içerisinde bir tane navigasyon kontrolü yapacağız ve daha sonra bu class'ı kullanıp kayıtlarımız arasında dolaşacağız.
Uygulamada vb.net 2005 ve veritabanı olarak SQL Server kullanılmıştır. Diğer veritabanlarına dönüştürülebilir.
Öncelikle class'ımızı oluşturalım.
Imports System.Data
Imports System.Data.SqlClient
Public Class kaynak 'class tanımlanıyor
Public adp_kullan As SqlDataAdapter
Public Sub gonder(ByVal adp As SqlDataAdapter, ByVal ad As String)
adp.Fill(tablolar, ad)
tablo.Table = tablolar.Tables(0)
kayit = Form.ActiveForm.BindingContext(tablo)
adp_kullan = adp
End Sub
Private tablolar As New DataSet
Private tablo As New DataView
Private kayit As CurrencyManager
ReadOnly Property tabloata() As DataView
Get
Return tablo
End Get
End Property
Public Sub sonraki()
'dataset üzerinden sonraki kayda gider
kayit.Position += 1
End Sub
Public Sub onceki()
'dataset üzerinden önceki kayda gider
kayit.Position -= 1
End Sub
Public Sub ilk()
'dataset üzerinden ilk kayda gider
kayit.Position = 0
End Sub
Public Sub son()
'dataset üzerinden son kayda gider
kayit.Position = tablo.Count - 1
End Sub
Public Sub ekle()
'dataset'e yeni kayıt ekler
kayit.AddNew()
End Sub
Public Sub sil()
'dataset'deki aktif kaydı siler
kayit.RemoveAt(kayit.Position)
MsgBox("Kayıt silindi")
End Sub
Public Sub islem_tamamla()
'dataset üzerinden son yapılan işlemi bitirir.
'DİKKAT
'dataset üzerinde bir işlem yapıldıktan sonra
'o işlem mutlaka bitirilmelidir,
'yoksa hatalar çıkabilir.
kayit.EndCurrentEdit()
End Sub
Public Sub iptalet()
'dataset üzerinden yapılan işlemleri iptal eder
kayit.CancelCurrentEdit()
End Sub
Public Sub guncelle()
'dataset üzerinden yapılan işlemleri veritabanına yazar.
adp_kullan.Update(tablolar, tablolar.Tables(0).ToString)
End Sub
End Class
Şimdi de bu class'ı kullanarak örnek bir uygulama yapalım. Aşağıdaki kontrolleri projenize ekleyin:
- Uygulamamızda verileri göstermek amaçlı bir tane datagridview
- Navigasyon için 8 tane buton
Bu uygulamada örnek olsun diye KAYITLAR tablosundaki KULLANICILAR alanında iş yapacağız.
Kodlar aşağıdaki gibi:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim baglanti As SqlConnection
Dim adp As SqlDataAdapter
Dim ds As DataSet
Dim veri As New kaynak ' classımızı tanımladık.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
baglanti = New SqlConnection(" siz buraya kendi connectionstring'inizi yazın")
If baglanti.State = ConnectionState.Closed Then
baglanti.Open()
End If
adp = New SqlDataAdapter("SELECT * FROM KAYITLAR", baglanti)
veri.gonder(adp, "KULLANICILAR") 'Class'a yollanıyor
DataGridView1.DataSource = veri.tabloata
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
veri.onceki()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
veri.sonraki()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
veri.ilk()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
veri.son()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
veri.islem_tamamla()
veri.ekle()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
veri.islem_tamamla()
veri.iptalet()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
veri.sil()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
veri.guncelle()
End Sub
End Class
Navigasyon
