Öğ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!

• 9 yıl önce
eyw kardeşim
• 9 yıl önce
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)
• 9 yıl önce
hata tam olarak nedir ona göre anlatıyım
• 9 yıl önce
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
• 9 yıl önce
hata veriyor ya :( bulamadım neden oldugunu .s
• 9 yıl önce
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.
• 9 yıl önce
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..
• 9 yıl önce
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..
• 9 yıl önce
ö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
• 8 yıl önce
Merhaba hocam bana birolhana yoladığınız gibi yollarsanız seviinirim Şimdiden teşekkür ederim aytekin_baris95@hotmail.com

Yukarı Git