Datebase İle Öğrenci Kayıt Programı Yapımı

Bu dersimizde Visual Basic Database sistemini kullanarak basit bir kayıt programı yapalım. Yeni başlayanlar için çok açıklamalı ve güzel bir ders olduğunu düşünüyorum.

Bu dersimizde Visual Basic Database sistemini kullanarak basit bir kayıt programı yapalım. Yeni başlayanlar için çok açıklamalı ve güzel bir ders olduğunu düşünüyorum.

Şimdi işe yeni bir Access belgesi açarak başlayalım. İsmini "kayıt" koyun. Tablolar kısmından Veriler Girerek Tablo Oluştur seçeneğine tıklayalım. Sonra karşımıza gelen ekrandan sırasıyla alan adlarını değiştirelim (sonra isteğe göre değiştirebilirsiniz)


Alan1 > TC Kimlik No 

Alan2 > Adı Soyadı

Alan3 > Baba Adı

Alan4 > Öğrenci No

Alan5 > Doğum Yeri

Alan6 > Doğum Tarihi

Alan7 > Açıklama



Evet, tablomuzu oluşturduk ve "kayitlar" diye kaydettik. Şimdi Visual Basic'te boş bir form açalım ve Project >Referans kısmından Microsoft ActiveX Data Object 2.7 Library seçelim ve OK diyelim.

Formun boş kısmına (Form load kısmına yazmayın):


Dim CON As New ADODB.Connection

Dim Kayitlar As New ADODB.Recordset



yazalım.

Sonra Tabloda yaptığımız alan adı kadar textbox ve label (labelleri textboxları tanıtmak için kullanın: Örneğin "AdıSoyadı") ekleyelim. Burda 7 tane verdiğimiz için ben 7 tane ekliyorum. Siz kaç tane yaptıysanız o kadar ekleyin..

Şimdi forma bir tane Kaydet butonu ekleyin ve içine:


Kayitlar.AddNew

Kayitlar.Fields("TckimlikNo") = Text1.Text

Kayitlar.Fields("AdıSoyadı") = Text2.Text

Kayitlar.Fields("BabaAdı") = Text3.Text

Kayitlar.Fields("Ogrencino") = Text4.Text

Kayitlar.Fields("DoğumYeri") = Text5.Text

Kayitlar.Fields("Doğumtarihi") = Text6.Text

Kayitlar.Fields("Açıklama") = Text7.Text



yazalım. Forma bir tane Önceki Kayıt butonu ekleyelim ve içine:


Kayitlar.MovePrevious

If Kayitlar.EOF Or Kayitlar.BOF Then

Kayitlar.MoveNext

Text1.Text = Kayitlar.Fields("TckimlikNo")

Text2.Text = Kayitlar.Fields("AdıSoyadı")

Text3.Text = Kayitlar.Fields("BabaAdı")

Text4.Text = Kayitlar.Fields("Ogrencino")

Text5.Text = Kayitlar.Fields("DoğumYeri")

Text6.Text = Kayitlar.Fields("Doğumtarihi")

Text7.Text = Kayitlar.Fields("Açıklama")

Else

Text1.Text = Kayitlar.Fields("TckimlikNo")

Text2.Text = Kayitlar.Fields("AdıSoyadı")

Text3.Text = Kayitlar.Fields("BabaAdı")

Text4.Text = Kayitlar.Fields("Ogrencino")

Text5.Text = Kayitlar.Fields("DoğumYeri")

Text6.Text = Kayitlar.Fields("Doğumtarihi")

Text7.Text = Kayitlar.Fields("Açıklama")

End If



yazalım. Buradaki Eof kodu kayıt yapıldıktan sonra hata vermesini engeller.

Sonraki Kayıt Butonu ekleyelim ve içine:


Kayitlar.MoveNext

If Kayitlar.EOF Or Kayitlar.BOF Then

Kayitlar.MovePrevious

Text1.Text = Kayitlar.Fields("TckimlikNo")

Text2.Text = Kayitlar.Fields("AdıSoyadı")

Text3.Text = Kayitlar.Fields("BabaAdı")

Text4.Text = Kayitlar.Fields("Ogrencino")

Text5.Text = Kayitlar.Fields("DoğumYeri")

Text6.Text = Kayitlar.Fields("Doğumtarihi")

Text7.Text = Kayitlar.Fields("Açıklama")

else

Text1.Text = Kayitlar.Fields("TckimlikNo")

Text2.Text = Kayitlar.Fields("AdıSoyadı")

Text3.Text = Kayitlar.Fields("BabaAdı")

Text4.Text = Kayitlar.Fields("Ogrencino")

Text5.Text = Kayitlar.Fields("DoğumYeri")

Text6.Text = Kayitlar.Fields("Doğumtarihi")

Text7.Text = Kayitlar.Fields("Açıklama")

End if



Yeni Kayıt Butonu ekleyelim ve içine:


Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""



ekleyelim. Kayıtları silmek İçin Sil butonu koyalım ve içine:


Kayitlar.Delete

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Kayitlar.Update



Değişikleri Kaydet butonu yapalım ve içine:


Kayitlar.Fields("TckimlikNo") = Text1.Text

Kayitlar.Fields("AdıSoyadı") = Text2.Text

Kayitlar.Fields("BabaAdı") = Text3.Text

Kayitlar.Fields("Ogrencino") = Text4.Text

Kayitlar.Fields("DoğumYeri") = Text5.Text

Kayitlar.Fields("Doğumtarihi") = Text6.Text

Kayitlar.Fields("Açıklama") = Text7.Text

Kayitlar.Update



Son olarak formumuzun boş kısmına tıklayıp Form_Load kısmına şu kodları yazalım:


CON.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & WinDir & "kayıt.mdb"

Kayitlar.Open "Select * from kayitlar", CON, adOpenStatic, adLockOptimistic

Text1.Text = Kayitlar.Fields("TckimlikNo")

Text2.Text = Kayitlar.Fields("AdıSoyadı")

Text3.Text = Kayitlar.Fields("BabaAdı")

Text4.Text = Kayitlar.Fields("Ogrencino")

Text5.Text = Kayitlar.Fields("DoğumYeri")

Text6.Text = Kayitlar.Fields("Doğumtarihi")

Text7.Text = Kayitlar.Fields("Açıklama")



yazalım...

Kodda %Windir% Windows'u yüklediğiniz yer demektir ve kayıt tablosunu oraya atın, yoksa hata verir.

Örneğin benim C:'de; ben kayıt tablosunu C:'ye attım.

Burdan yola çıkarak formunuzu geliştirebilirsiniz. Ve ileri düzey bir kayıt programı geliştirebilirsiniz.

Kolay gelsin.
  • Etiketler;
İnan Yılmaz
Hakkında bilgiler en kısa sürede eklenecektir.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

harika anlatım tesekkurler
[b]Tesekkurler super bir anlatim[/b]
Faydalı bir ders.Teşekkür ediyorum. Ayrıca bir sorum olacak. Acces veritabanımızı bu şekilde oluşturdum. Kaydet dediğim zaman nesne kapalı iken izin verilmiyor mesajı alıyorum. Buna göre Veritatabanın izinlerini nasıl düzenlerim.
vb de böyle bir hata hiç almadım bu söylediğin hata site ftp bağlantılarında yaşanır yada ben konuyu pek anlayamadım?
Sayın İnayılmaz, Teşekkür ediyorum verdiğiniz yanıt için. Bende anlayamadım.Bu durum neden kaynaklanıyor.Bir şeklilde hallederim sanırım.
şimdi problem kalmadı.kayıtlar gayet güzel işliyor.
slm arkadaşlar bn access 2003 te bir veritabanı oluşturdum.vs 2008 de de bu programı yaptım ama "property items is readonly" hatası werdi onu nasıl düzeltebilitriz??
muzaffer bey problemin çözüldüğünü söylemişsiniz, ama nasıl çözüldüğünü de zahmet olmazsa bir yazarsanız sedvinirim
İNAN BEY çok güzl bir anlatım teşekkürler ama text1.text yazıldığında hata veriyor textbox1.text yazdığımızda satırın tamamını hatalı veriyor bunun sebebi nedir ?
inan bey ben bilgisayar bölümü öğrencisiyim ödev aldm öğretmen kayıt programı ama veri kaydetme konusunda sorunum var elimde bir çok kod var ama yardımcı olmuyo bana yardım ederseniz çok sevinirim
Hangi programı kullanıyorsun benim verdiğim tüm örnekler visual studio 6.0 içindir.Diğerlerinde de mantık aynıdır aslında ama ben sadece bu programı kullanıyorum
visual studio 2008 kullanıyormm
Epeydir foruma girmediğim için soru askıda kalmış. Sayın azizcanacar bu dediğiniz dosyanın yazma izni ile ilgili. Dosya gerekli yazma izni verilmemiş durumda.Kullanıcı ayarlarınızı güvenlik seçeneklerinden tam denetim olarak ayarlarsanız sorun kalmamış olur. http://i1105.hizliresim.com/2011/5/30/12346.jpg Dosyanın çalışan halini resim olarak ekledim. Sanıyorum bu link eklemek uygunsuz bir durum değildir inşallah.
muzaffer usta, program çok güzel tam benim aradığım gibi bir şey, ama aynı sorun bende de oldu, güvenlik seçeneklerinden tam denetimi aradım, bulamadım, access 2003 kullanıyorum. bana yardımcı olursan çok sevinirim.

Yukarı Git