Öğrenci Kayıt Programı-2

Bu dersimizde yine bir kayıt programı daha yapalım...

Bu dersimizde yine bir kayıt programı daha yapalım...

Bir Access veritabanı açıyoruz. Adını "kayitlar" koyduktan sonra C:'ye kaydediyoruz. Gelen pencereden "veriler girerek tablo oluştur" diyoruz.

Daha sonra Project > Add Reference sekmesine giriyoruz. COM sekmesinden "Microsoft ActiveX Data 2.7 Library"yi seçip "OK" diyoruz.

Sonra formumuzu aşağıdaki resme benzer şekilde tasarlıyoruz:





Public Class Form1

    Dim CON As New ADODB.Connection

    Dim Kayitlar As New ADODB.Recordset



    Private Sub Button7_Click    ( çıkış )

        End

    End Sub



    Private Sub Form1_Load   ( form kodu )

        'CON.CursorLocation = ADODB.CursorLocationEnum.adUseClient

        CON.Open("Provider=Microsoft.jet.oledb.4.0;Data Source=c:kayitlar.mdb")

        Kayitlar.Open("Select * from kayitlar", CON, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

        TextBox1.Text = Kayitlar.Fields("TckimlikNo").Value

        TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value

        TextBox3.Text = Kayitlar.Fields("BabaAdı").Value

        TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value

        TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value

        TextBox6.Text = Kayitlar.Fields("Doğumtarihi").Value

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

    End Sub



    Private Sub Button1_Click     ( kaydet )

        Kayitlar.AddNew()

        Kayitlar.Fields("TckimlikNo").Value = TextBox1.Text

        Kayitlar.Fields("AdıSoyadı").Value = TextBox2.Text

        Kayitlar.Fields("BabaAdı").Value = TextBox3.Text

        Kayitlar.Fields("ÖğrenciNo").Value = TextBox4.Text

        Kayitlar.Fields("DoğumYeri").Value = TextBox5.Text

        Kayitlar.Fields("Doğumtarihi").Value = TextBox6.Text

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

        Kayitlar.Update()

        MsgBox("Kayit İşlemi Tamamlanmıştır")

    End Sub



    Private Sub Button2_Click           ( önceki kayıtı aç ) 

        Kayitlar.MovePrevious()

        If Kayitlar.EOF Or Kayitlar.BOF Then

            Kayitlar.MoveNext()

            TextBox1.Text = Kayitlar.Fields("TckimlikNo").Value

            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value

            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value

            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value

            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value

            TextBox6.Text = Kayitlar.Fields("Doğumtarihi").Value

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

        Else

            TextBox1.Text = Kayitlar.Fields("TckimlikNo").Value

            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value

            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value

            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value

            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value

            TextBox6.Text = Kayitlar.Fields("Doğumtarihi").Value

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

        End If

    End Sub



    Private Sub Button3_Click          ( sonraki kayıtı aç )

        Kayitlar.MoveNext()

        If Kayitlar.EOF Or Kayitlar.BOF Then

            Kayitlar.MovePrevious()

            TextBox1.Text = Kayitlar.Fields("TckimlikNo").Value

            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value

            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value

            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value

            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value

            TextBox6.Text = Kayitlar.Fields("Doğumtarihi").Value

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

        Else

            TextBox1.Text = Kayitlar.Fields("TckimlikNo").Value

            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value

            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value

            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value

            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value

            TextBox6.Text = Kayitlar.Fields("Doğumtarihi").Value

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

        End If

    End Sub



    Private Sub Button4_Click            ( yeni kayıt aç ) 

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub



    Private Sub Button5_Click                     ( kayıtı sil )

        Kayitlar.Delete()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        Kayitlar.Update()

    End Sub



    Private Sub Button6_Click             ( değişiklikleri kaydet )

        Kayitlar.Fields("TckimlikNo").Value = TextBox1.Text

        Kayitlar.Fields("AdıSoyadı").Value = TextBox2.Text

        Kayitlar.Fields("BabaAdı").Value = TextBox3.Text

        Kayitlar.Fields("ÖğrenciNo").Value = TextBox4.Text

        Kayitlar.Fields("DoğumYeri").Value = TextBox5.Text

        Kayitlar.Fields("Doğumtarihi").Value = TextBox6.Text

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

        Kayitlar.Update()

    End Sub

End Class



  • Etiketler;
Yorum Yaz

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

eyw kardeşim
Sayın Hocam Burada gördüklerimi taman uyğuladım ve Koduda buradan kopyala yapıştır yaptım. Ançak kod hatası çıkıyor. bir türlü accese bağlanamadım. Bu konuda aydınlatırsanız sevinirim( Görüntülü anlatım olarak mümkünse)
hata tam olarak nedir ona göre anlatıyım
sayın batuhan ; en yakın zamanda wideo koyucaz 1-2 güne hazır olur yeni bir derse koyarım aynı programın wideolu wersiyonu olur
hata veriyor ya :( bulamadım neden oldugunu .s
Sayın Hocam, Size zahmet accesle birlikte bana proje şeklinde birolhankonya@hotmail.com adresine atabilirseniz çok sevinirim. VB 2005 Kullanıyom Bir muhasebe proğramı yapmaya çalışıcam sayenizde. Sayğılar.
birolhan arkadaşım,sana yardımcı olurum ama bu muhasebe programı kolay birşey değil o yüzden biraz daha öğrenmen lazım ayrıca 2008 kullanmanı tavsiye ederim..
Hocam anlattığınız gibi programı uyguluyorum ama kayıt da " Kayitlar.AddNew() " kısmında hata veriyor. Vb.net 2010 kullanıyorum ondan kaynaklanıyor olabilr mi? Acaba Teşekkür ederim..
öncelikle iyi günler hocam sistem analizi diye bir dersimiz var ve bu dersten yurt+otomasyon sistemi olarak basic te bi proje ödevi aldım yardımcı olursanız sevinirim.. Şimdiden teşekkür ederim
Merhaba hocam bana birolhana yoladığınız gibi yollarsanız seviinirim Şimdiden teşekkür ederim aytekin_baris95@hotmail.com

Yukarı Git