Vbasic ile Öğrenci Kayıt Programı ..

[blackman89]

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

Yazıyoruz.

Sanırım gereğinden fazla açıklayıcı oldu ama ben bunu yapana kadar çok uğraştığım için size yardımı olur diye böyle yazdım.

Ogrenciler adlı veritabanına, ogrenciler adlı bir tablo açıp, OgrenciAdi, OgrenciSoyadi, ve OgrenciNo adlı alanları eklemeniz gerekir.

 

[Ra_Y_Din]

teşekkürler kardeş oldukca açıklayıcı olmuş.savolasın..