vb ile grenci otomasyon programi yapimi

VB ile basit öğrenci Adı, Soyadı, OkulNo kaydetme, silme, düzenleme, kayıtlar arasında gezinme programı yapacağız.Genelde okullarda bu tip ödevler verilir.

Ö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;
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;

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;
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;

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;

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;

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

Yazıyoruz.

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

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;

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;

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