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