Visual Basic ile veritabanı bağlantısı

[alimania]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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