New Document

VB Net te Access VB Net te Access Veritabanına Bağlantı

Verilerimiz kayıt ederken DataAdapter nesnesinin Update methodunu kullanacağız.

Ado.net içerisinde verilerimizi bir veri kaynağından çekerken DataAdapter nesnesini sıkça kullanmaktayız. DataAdapter nesnesin SelectCommand nesnesine gerekli sql komutlarını bildirerek Istediğimiz verileri veritabanından çekebiliriz.

İlk önce makalenin altında görebileceğiniz Şekil 1 deki gibi Access Veritabanını oluşturun. Bu örnekte Veritabanına Db1 ismi verildi. Tablonun ismi Musteri. Yine örnekte Veritabanın Bulunduğu Path C:\Db1.mdb

Resim1

Şekil 1

Access Veritabanı oluşturduktan sonra Şimdi sıra geldi Şekil 2 deki formumuzu oluşturmaya. Toolbox tan Labelleri, ComboBoxları, TextBoxları, DataGridView nesnelerini formunuza ekleyin.

Resim2

Şekil 2

Bu örnekte kolaylık olması açısından Nesnelerin Name leri cmb1,v1,...
yapıldı.

Örnekte veritabanı bağlantısı birkaç yordam da bulunmaktadır. Bunun sebebi formumuz yüklenirken veya Veritabanından kayıt silerken güncel şekilde ekrandan görmektir. İsterseniz bu kısımdaki
bağlantıları kaldırabilirsiniz...

Forma yazılacak kodlar:

Public Class Form1

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

Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Db1.mdb;")

‘Veritabanı konumu belirtildi.

Dim adp As New OleDb.OleDbDataAdapter()

‘Yeni bir OledbDataDapter nesnesi oluşturuldu

‘ DataAdapter nesnesiyle verilerin çekilmesi için gerekli komutlar

adp.SelectCommand = New OleDb.OleDbCommand("Select * From Musteri", baglan)
Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)

baglan.Open() ‘Bağlantımızı açıyoruz
Dim ds1 As New DataSet() ‘Verilerimizi çekeçeğimiz dataset oluşturuldu.
adp.Fill(ds1) ‘ Verilerimizi Fill metodu ile oluşturduğumuz Datasetimize aktarıyoruz
Dim rw1 As DataRow
rw1 = ds1.Tables(0).NewRow
‘Datasetimiz için yeni bir satır tanımlıyoruz

Dim x1 As Integer
x1 = ds1.Tables(0).Rows.Count ‘Veritabanımızdaki kayıt sayısı

Dim s1, s2, s3 As String

s1 = cmb2.Text + cmb3.Text + v8.Text
s2 = cmb4.Text + cmb5.Text + v22.Text + "" + cmb6.Text + cmb7.Text
s3 = cmb8.Text + cmb9.Text + v22.Text + "" + cmb10.Text + cmb11.Text

rw1.Item("TCKimlikNo") = v2.Text
rw1.Item("Adi") = v3.Text
rw1.Item("Soyadi") = v4.Text
rw1.Item("BabaAdi") = v5.Text
rw1.Item("AnaAdi") = v6.Text
rw1.Item("DogumYeri") = v7.Text
rw1.Item("DogumTarihi") = s1.ToString
rw1.Item("Uyrugu") = v9.Text
rw1.Item("KimlikBelgesiTuru") = v11.Text
rw1.Item("KimlikSeriNo") = v12.Text
rw1.Item("NufusaKayitliOlduguIl") = v13.Text
rw1.Item("NufusaKayitliOlduguIlce") = v14.Text
rw1.Item("NufusaKayitliOlduguMahalle") = v15.Text
rw1.Item("NufusCilt") = v14.Text
rw1.Item("NufusAileSiraNo") = v17.Text
rw1.Item("NufusSiraNo") = v25.Text
rw1.Item("Cinsiyet") = v20.Text
rw1.Item("MedeniHali") = v21.Text
rw1.Item("Isi") = v18.Text
rw1.Item("IkametAdresi") = v24.Text
rw1.Item("GelisTarihi") = s2.ToString
rw1.Item("AyrilisTarihi") = s3.ToString
rw1.Item("VerilenOdaNo") = cmb1.Text
rw1.Item("AracPlakaNo") = v19.Text
rw1.Item("TelefonNo") = v26.Text

ds1.Tables(0).Rows.InsertAt(rw1, x1 + 1)
adp.Update(ds1)

DataGridView1.DataSource = ds1.Tables(0)

baglan.Close() ‘Veritabanı bağlantımızı kapatıyoruz.
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Text = "Access Veritabanı Kayıt...Bahadirsa"
.MaximizeBox = False
.Size = New System.Drawing.Size(619, 575)
.Location = New Point(140, 0)
End With

Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Db1.mdb;")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From Musteri", baglan)
Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)
baglan.Open()
Dim ds1 As New DataSet()
adp.Fill(ds1)
Dim rw1 As DataRow
rw1 = ds1.Tables(0).NewRow
DataGridView1.DataSource = ds1.Tables(0)
baglan.Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
v2.Text = ""
v3.Text = ""
v4.Text = ""
v5.Text = ""
v6.Text = ""
v7.Text = ""
v8.Text = ""
v9.Text = ""
v11.Text = ""
v12.Text = ""
v13.Text = ""
v14.Text = ""
v15.Text = ""
v16.Text = ""
v17.Text = ""
v18.Text = ""
v19.Text = ""
v20.Text = ""
v21.Text = ""
v22.Text = ""
v23.Text = ""
v24.Text = ""
v25.Text = ""
v26.Text = ""
cmb1.Text = ""
cmb2.Text = ""
cmb3.Text = ""
cmb4.Text = ""
cmb5.Text = ""
cmb6.Text = ""
cmb7.Text = ""
cmb8.Text = ""
cmb9.Text = ""
cmb10.Text = ""
cmb11.Text = ""
End Sub

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

Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Db1.mdb;")
Dim x As Integer = DataGridView1.CurrentRow.Index

‘Dim tcNo As String = DataGridView1.Item(x, 0).ToString
Dim cmd As New OleDb.OleDbCommand

cmd.Connection = baglan
cmd.CommandText = "Delete * From Musteri Where TCKimlikNo=‘" & v2.Text & "‘"

baglan.Close()

baglan.Open()

cmd.ExecuteNonQuery()

Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From Musteri", baglan)
Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)
Dim ds1 As New DataSet()
adp.Fill(ds1)
Dim rw1 As DataRow
rw1 = ds1.Tables(0).NewRow
DataGridView1.DataSource = ds1.Tables(0)

baglan.Close()

End Sub

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

‘-------------------------------------------------------------------------------------
‘Faydalı Olması dileğiyle...Bahadirsa
‘İleriki Makalelerimizde Veritabanı anlatımına, Sql bağlantılara devam edeceğiz...
‘Bizi takip etmeye devam edin.
‘Bilgi paylaşıldıkça güzeldir...Bahadirsa