Visual Basic ile veritabanı bağlantısı

Selamün Aleyküm Arkadaşlar;

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.Cursor******** = ADODB.Cursor********Enum.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

Bende Bunun Videolu Dersini Koyacaktım