Visual Basic ile veritabanı bağlantısı

Visual basic ile veritabanı bağlantısı nasıl yapılır, bunu görelim.

Visual basic ile veritabanı bağlantısı nasıl yapılır, bunu görelim.

Gerekenler: 7 tane button 2 textbox (textbox'u artırabilirsiniz isterseniz).

İlk adım Project menüsünden add reference tıklayın ve Com'a tıklayın. Sonra Microsoft ActiveX data Objects 2.7'yi seçiyoruz.

Peşinden de 20021-2003 mdb uzantılı bir acces oluşturuyoruz ve hepsine kayıt ekliyoruz. Access'i visual projesinin içine bin ve sonra debug'un içine kopyalıyoruz.


Public Class Form1

 

    Dim CON As New ADODB.Connection

    Dim Kayitlar As New ADODB.Recordset

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        CON.CursorLocation = ADODB.CursorLocationEnum.adUseClient

        CON.Open("Provider=Microsoft.Jet.OleDb.4.0;Data Source=kayitlar.mdb")

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



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

        TextBox2.Text = Kayitlar.Fields("Adi").UnderlyingValue

        TextBox3.Text = Kayitlar.Fields("Telefon").UnderlyingValue

        TextBox4.Text = Kayitlar.Fields("Adres").UnderlyingValue

        TextBox5.Text = Kayitlar.Fields("Mail").UnderlyingValue

        TextBox6.Text = Kayitlar.Fields("Gun").UnderlyingValue

        TextBox7.Text = Kayitlar.Fields("Ay").UnderlyingValue

        TextBox8.Text = Kayitlar.Fields("Yil").UnderlyingValue

  



    End Sub



    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click



    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Kayitlar.AddNew()

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

        Kayitlar.Fields("Adi").Value = TextBox2.Text

        Kayitlar.Fields("Telefon").Value = TextBox3.Text

        Kayitlar.Fields("Adres").Value = TextBox4.Text

        Kayitlar.Fields("Mail").Value = TextBox5.Text

        Kayitlar.Fields("Gun").Value = TextBox6.Text

        Kayitlar.Fields("Ay").Value = TextBox7.Text

        Kayitlar.Fields("Yil").Value = TextBox8.Text



        Kayitlar.Update()

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

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sonraki.Click

        Kayitlar.MovePrevious()

        If Kayitlar.EOF Or Kayitlar.BOF Then

            Kayitlar.MoveNext()

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

            TextBox2.Text = Kayitlar.Fields("adi").Value

            TextBox3.Text = Kayitlar.Fields("Telefon").Value

            TextBox4.Text = Kayitlar.Fields("Adres").Value

            TextBox5.Text = Kayitlar.Fields("Mail").Value

            TextBox6.Text = Kayitlar.Fields("Gun").Value

            TextBox7.Text = Kayitlar.Fields("Ay").Value

            TextBox8.Text = Kayitlar.Fields("Yil").Value

           

        Else

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

            TextBox2.Text = Kayitlar.Fields("adi").Value

            TextBox3.Text = Kayitlar.Fields("Telefon").Value

            TextBox4.Text = Kayitlar.Fields("Adres").Value

            TextBox5.Text = Kayitlar.Fields("Mail").Value

            TextBox6.Text = Kayitlar.Fields("Gun").Value

            TextBox7.Text = Kayitlar.Fields("Ay").Value

            TextBox8.Text = Kayitlar.Fields("Yil").Value

           

        End If

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Kayitlar.MoveNext()

        If Kayitlar.EOF Or Kayitlar.BOF Then

            Kayitlar.MovePrevious()

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

            TextBox2.Text = Kayitlar.Fields("adi").Value

            TextBox3.Text = Kayitlar.Fields("Telefon").Value

            TextBox4.Text = Kayitlar.Fields("Adres").Value

            TextBox5.Text = Kayitlar.Fields("Mail").Value

            TextBox6.Text = Kayitlar.Fields("Gun").Value

            TextBox7.Text = Kayitlar.Fields("Ay").Value

            TextBox8.Text = Kayitlar.Fields("Yil").Value

      

        Else

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

            TextBox2.Text = Kayitlar.Fields("adi").Value

            TextBox3.Text = Kayitlar.Fields("Telefon").Value

            TextBox4.Text = Kayitlar.Fields("Adres").Value

            TextBox5.Text = Kayitlar.Fields("Mail").Value

            TextBox6.Text = Kayitlar.Fields("Gun").Value

            TextBox7.Text = Kayitlar.Fields("Ay").Value

            TextBox8.Text = Kayitlar.Fields("Yil").Value

        

        End If

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

     

    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Kayitlar.Delete()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        Kayitlar.Update()

    End Sub



    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

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

        Kayitlar.Fields("adi").Value = TextBox2.Text

        Kayitlar.Fields("Telefon").Value = TextBox3.Text

        Kayitlar.Fields("Adres").Value = TextBox4.Text

        Kayitlar.Fields("Mail").Value = TextBox5.Text

        Kayitlar.Fields("Gun").Value = TextBox6.Text

        Kayitlar.Fields("Ay").Value = TextBox7.Text

        Kayitlar.Fields("Yil").Value = TextBox8.Text

       

        Kayitlar.Update()

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

    End Sub



    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        End

    End Sub

End Class

  • Etiketler;
Azad.bilal Azad.bilal
Sanalkurs.net
Yorum Yaz

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

Veri tabanını yollayabilirim
veri tabanını verebilirim
Sa Ben vb6 kullanıyorum ve kaydet buttonu yapmak istiyorum nasıl bir kaydet buttonu yapmak istiyorsun diyne sorarsanız mesela 1 tane textbox 1 tane command button yapacam .exeye dönüştürüceğim ve textbox yazdığımda command buttonuna tıkladığımda otomatik olarak kaydedecektir programa tekrar girdiğimde o yazı orada olacak yardım Ederseniz sevinirim Umarım açık ve net anlatmışımdır şimdiden teşekkürler...
z
merhaba bilal bey bilginizi paylaştığınız için çok teşekkur ederim [email protected] mail adresime veri tabanını göndermeniz mümkün olursa sevinirim, çok teşekkurler
valla ben hiç vb6 kullanmadım
visual studio 2008 yükledim onda yardımcı olurmusun?
vb 2008 yükledim kaydet buttonu yapmak istiyorum programı .exe olduğunda programa girdiğimde yazı yazacam ve kaydet buttonuna basacam yazım orada kayıt olacak , programdan çıkıp tekrar girdiğimde yazım duracak kayıt edilecek umarım anlatmışımdır
yardım edecek olan yokmu visaul basic 2008 dede olsa olur kardeş
benim biraz uğraşmam gerek kardeş olursa paylaşırım
elimde vb de yazılmış bir kütüphane takip projesi var. kodlarını çözmem gerek yardımcı olur musunuz?
[email protected] veri tabanını gönderebilirmisin acaba.
evet ece elimden geleni kadar yardımcı olurum
ayhan bey geldi mi veri tabanı ?
npt2 MErhaba arkadaş bende hiç vb6 kullanmadım 3 ay 2008 kullandım şimdi hala 2010 kullanıyorum daha kolay ve güzel tavsiye ederim...

Yukarı Git