Vbde öğrenci takip Programı

[PowerDns]

Evet arkadaşlar acemiler için Adodb ile basit öğrenci Adı, Soyadı, OkulNo kaydetme, silme, düzenleme, kayıtlar arasında gezinme örneği.

Öncelikle projemize Project/References menüsünden “Microsoft ActiveX Data Objects 2,7 Library” yi ekleyelim.
Form alanımızda
3 textbox,
1-Adı
2-Soyadı
3-OkulNo
Ve 8 komut butonu
1-ilkkayıt
2-Önceki Kayıt
3-SonrakiKayıt
4-Son Kayıt
5- Yeni Kayıt
6- Kaydet
7- Kaydı Sil
8-Değişiklikleri kaydet
olsun.
Önce veritabanı ile bağlantı kurmak için değişkenlerimizi tanıtıyoruz.
General bölümüne;

Dim CON As New ADODB.Connection
Dim Kayitlar As New ADODB.Recordset

Sonra Veritabanına ve istediğimiz tabloya bağlanıyoruz;
Form bölümüne;

CON.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\ogrenciler.mdb"
Kayitlar.Open "Select * from ogrenciler", CON, adOpenStatic, adLockOptimistic
Ve ilk kayıtlarımızı gösteriyoruz;
Kod Alanı:

Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )​

İlk Kayıta gitmek için ;
İlk kayıt butonunu tıklayıp;

Kod Alanı:

Kayitlar.MoveFirst
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )​

Yazıyoruz.

Önceki kayıt için;
Önceki kayıt butonunu yıklıyoruz;
Kod Alanı:

Kayitlar.MovePrevious
If Kayitlar.EOF Or Kayitlar.BOF Then
Kayitlar.MoveNext
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
Else
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
End If​

Yazıyoruz.
(buradaki If Kayitlar.EOF Or Kayitlar.BOF Then / else / end if : kayıt biterse hata vermesin diyedir. )

Sonraki Kayıt için de işlemler hemen hemen aynı
Sonraki kayıt butonunu tıklayıp;

Kod Alanı:

Kayitlar.MoveNext
If Kayitlar.EOF Or Kayitlar.BOF Then
Kayitlar.MovePrevious
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
Else
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
End If​

Yazıyoruz.
(buradaki If Kayitlar.EOF Or Kayitlar.BOF Then / else / end if : yine kayıt biterse hata vermesin diyedir. )

Son Kayda gitmek için;
Son kayıt butonuna tıklıyoruz;

Kod Alanı:

Kayitlar.MoveLast
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )​

Yazıyoruz.

Yeni öğrenci Eklemek için
Yeni Öğrenci butonunu tıklıyoruz;
Kod Alanı:

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""​

Yazıyoruz.

Kaydetmek için
Kaydet butonuna tıklıyoruz;

Kod Alanı:

Kayitlar.AddNew
Kayitlar.Fields("OgrenciAdi" ) = Text1.Text
Kayitlar.Fields("OgrenciSoyadi" ) = Text2.Text
Kayitlar.Fields("OgrenciNo" ) = Text3.Text​

Yazıyoruz.

Kayıt silmek için kayıt sil butonunu tıklıyoruz;

Kod Alanı:

Kayitlar.Delete
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Kayitlar.Update​

Yazıyoruz.

Değişiklikleri kaydetmek için;
Değişiklikleri kaydet butonuna tıklıyoruz;

Kod Alanı:

Kayitlar.Fields("OgrenciAdi" ) = Text1.Text
Kayitlar.Fields("OgrenciSoyadi" ) = Text2.Text
Kayitlar.Fields("OgrenciNo" ) = Text3.Text
Kayitlar.Update​