| Article |
|---|
ListBox’ta Seçili Verileri Veritabanına Kaydetmek
Merhaba arkadaşlar bu makalemizde ListBox’ta seçeceğimiz itemleri Sql veritabanımıza kaydedeceğiz. Listbox’ta çoklu seçim yapabilmemiz için Listbox’ın Selection Mode özelliğini MultiSimple olarak ayarlayın. Formumuza 1 adet ListBox ve Button ekliyoruz. |
Veritabanındaki Tabloları Birleştirip DataGridView da Göstermek
Bu makalemizde veritabanımızda bulunan iki farklı tablodaki bilgileri birleştirip, dataGridView da göstereceğiz. |
Veritabanı Alanlarını Birleştirip ComboBox ta Göstermek
Merhaba arkadaşlar, bu makalemizde veritabanında bulunan alanları birleştirerek, ComboBox nesnesinde gösterimini sağlayacağız. |
CheckedListBox ile Veritabanı Bağlantısı
Merhaba arkadaşlar. Yeni bir makalede yine birlikteyiz. Veritabanımızdaki verileri CheckedListBox nesnesinde göstereceğiz. Daha sonra CheckedListBox ta seçtiğimiz satırları ListBox a aktaracağız. |
ListView İle Veritabanı Bağlantısı-2
Merhaba arkadaşlar, bu makalemizde Access veritabanındaki bilgileri ListView nesnemizde göstereceğiz. (Şekil 1) |
Veritabanındaki İki Tabloyu Birleştirme
Bu örnekte Access veritabanındaki iki farklı tablodaki verileri birleştirip, DataGridView nesnemizde göstereceğiz. Personel veritabanındaki arge ve satis tablolarından verilerimizi çekiyoruz. Sql sorgumuz aşağıdaki gibidir. id nolara göre sıralıyoruz. |
Veri Tabanı Programlama-II
Byte dergisinin, veritabanı programlaması ile ilgili 65 sayfalık pdf dosyası. Dosya winrar ile sıkıştırıldı şifre:bahadirsa dosya boyutu:4.87 MB.
Dökümanın faydalı olması dileğiyle... Bahadır ŞAHİN
........................................ |
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 |
DetailsView Nesnesi ile Veritabanına Bağlantı
Bu makalemizde DetailsView nesnesi ile Access veritabanımıza bağlanacağız. DetailsView nesnesi seçili iken sağ tıklayın. Auto Format kısmından DetailsView nesnenizin görünümünü değiştirin... |
Veritabanı İşlemleri
----------
Soru-1 | Nasıl Veritabanı Oluşturabilirim ?
----------
Önce Microsoft Access i açtık ve bir kayitlar adında bir tablo Oluşturduk. |
Veritabanı Bağlantı Kontrol
Bu makalemizde veritabanına bağlantımız olup olmadığını
kontrol edeceğiz.
Formunuza 2 adet button ekleyin. Aşağıdaki şekilleri inceleyin. |
Veritabanındaki Kayıt Sayısını Öğrenmek
Bu örnekte Northwind.mdb Access veritabanındaki Customers tablosunda kayıtlı olan kayıt sayısını öğreneceğiz. |
VC#.Net ile Sql Veritabanı Bağlantısı
Bu makalemizde vc#.nette sql veritabanına bağlanıp, verilerimizi dataGridView nesnemizde göstereceğiz. İlk önce formunuza 1 adet button ve dataGridView nesnesi ekleyin. Formunuza aşağıdaki şekildeki gibi tasarlayın. |
VB Net te Access Veritabanına Bağlantı
Verilerimiz kayıt ederken DataAdaptet nesnesinin Update methodunu kullanacağız. |
Veritabanı İşlemleri
Bu makalemizde Access veritabanımızdaki bilgileri comboboxta seçtiğimiz kriterlere göre listbox ta gösterimini sağlıyacağız. Bu örnekte veritabanımızı C:\bahadirsa.mdb de oluşturduk... |