Full Versiyonu Görmek İçin Tıklayınız ---> Vbde Öğrenci Takip Programı

Yardım Arama Üye Listesi Msn Al

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