Vb.Net - Veritabanına Bağlanmak

Visual Basic ile Veri tabanı bağlantısı nasıl kurulur?

Vb.Net ile veri tabanı bağlantısı

Forma eklemeniz gereken araçlar; 

7 Adet Button,

2 Adet TextBox ekleyin

İlk Önce project sekmesinden  Add Reference bölümüne gelin. Sonrasında Açılan pencerede .NET, COM, Browse, Recent bölümünü göreceksiniz. Siz "COM"a tıklayın. Karşınıza gelen ekranda Microsoft ActiveX data Objects 2.7'yi seçiniz.

Hemen sonrasında 20021-2003 mdb uzantılı bir acces oluşturun tümüne kayıt ekleyin. Access'i visual projesinin içine bin ve sonra debug'uniç içine kopyalayın.




Kodlar,

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

Kaynak >>  http://www.sanalkurs.net/visual-basic-ile-veritabani-baglantisi-5511.html