| Article |
|---|
MS Access Veritabanına Bağlanmak ve TreeView da Verileri Göstermek
Merhaba arkadaşlar bu makalemizde MS Access veritabanına bağlanacağız. Tablodaki verileri TreeView da göstereceğiz.Access veritabanına bağlanabilmek için pyodbc sınıfını aşağıdaki gibi ekleyin.
|
C++ Çalışma Anında Access Database’de Tablo Oluşturmak
Merhaba arkadaşlar bu makalemizde C++ çalışma anında formumuzdaki butona tıklayarak Access veritabanında Employess adlı tablo oluşturacağız. Access veritabanına bağlanabilmeniz için Access DataBase Engine bileşeni gerekebilir. |
Delphide Access Veritabanına Bağlanmak
Merhaba arkadaşlar bu makalemizde access veritabanına bağlanacağız. Formumuza 2 adet DBEdit, 1 adet Button ekleyelim. Ayrıca formumuza 1 er adet DataSource, ADOConnection ve ADOTable ekleyelim. |
Delphide DBGrid Nesnesini Access Veritabanına Bağlamak
Merhaba arkadaşlar bu makalemizde access veritabanına bağlanacağız.Formumuza Data Controls kısmından 1 adet DBGrid, DBNavigator ekleyin.Formumuza Data Access kısmından 1 adet DataSource ve dbGo kısmından AdoTable ekleyin.DataSource1 i seçin ve Object Inspector de DataSet kısmında AdoTable1 i seçin. |
Access Veritabanına Kayıt ve Kayıt Girişi Kontrolü
Merhaba arkadaşlar. Bu makalemizde Access veritabanına kayıt girişi yaparken girilen verilerin veritabanımızda kayıtlı olup olmadığını kontrolünü yapacağız. |
Access Veritabanından Excel Dosyaya Aktarım
Merhaba arkadaşlar, önceki makalelerde Excel sayfasının Access veritabanına aktarımını görmüştük. Bu makalemizde ise Access veritabanımızdaki dataları, Excel sayfasına nasıl ekleyebileceğimiz konusunu göreceğiz. |
Excel Sayfasını Access Veritabanına Aktarmak
Merhaba arkadaşlar, bugün Excel sayfasındaki verileri, Access veritabanımıza nasıl ekleyebileceğimiz konusunu göreceğiz. İlk önce Solution Explorer a sağ tıkla. Add Reference tıkla. Daha sonra COM kısmından Microsoft Excel 12.0 Object Library dosyasını seçip, OK e tıkla. Böylece Excel Library dosyasını projemize eklemiş olduk. |
ListView da Access Veritabanındaki Verileri Göstermek
Bu makalemizde access veritabanındaki personel tablosundaki bilgileri Listview nesnesinde göstereceğiz. Aşağıdaki şekilleri inceleyin. |
VB Net te Access VB Net te Access Veritabanına Bağlantı
Verilerimiz kayıt ederken DataAdaptet 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.
Access Veritabanı oluşturduktan sonra Şimdi sıra geldi Şekil 2 deki formumuzu oluşturmaya. Toolbox tan Labelleri, ComboBoxları, TextBoxları, DataGridView nesnelerini formunuza ekleyin.
Bu örnekte kolaylık olması açısından Nesnelerin Name leri cmb1,v1,...
yapıldı.
Örnekte veritabany 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 |
Access Veritabanına Kayıt Ekleme
Bu örneğimizde Access Veritabanımıza kayıt eklemeyi göreceğiz. İlk önce
C:\p_takip.mdb şeklinde veritabanımızı tanımlayalım. |
VB Net te Access Veritabanına Bağlantı
Verilerimiz kayıt ederken DataAdaptet nesnesinin Update methodunu kullanacağız. |