AccessTr.neT

Tam Versiyon: vb.net ile accessten listbox' veri çekme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
merhaba
yani başlamış olduğum Microsoft Visual Studio 2010 programlama dilinde uzun uzun uğraşlar sonunda vb.net ile Access veri tabanı arasında bağlantı kurup verileri çekebiliyorum. ve bu işlemi forma eklemiş olduğum DataGridView1'de çekiyorum. eklemiş olduğum kayıtları liste kutusuna çekmek istiyorum fakat başarılı olamadım sanırım lütfen yardımcı olabilirmisiniz. kayıt işlemi için kullandığım kod aşağıda ki gibidir.

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim baglanti As New OleDb.OleDbConnection
baglanti.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=C:\Users\İLHAN\Desktop\Yeni klasör\deneme\deneme\bin\Debug\okuyucu2.mdb"
baglanti.Open()
Dim ds As New DataSet
Dim adb As New OleDb.OleDbDataAdapter("select * from okuyucu", baglanti)
adb.Fill(ds, "okuyucu")
DataGridView1.DataSource = ds.Tables("okuyucu")
baglanti.Close()


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglanti As New OleDb.OleDbConnection
baglanti.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=C:\Users\İLHAN\Desktop\Yeni klasör\deneme\deneme\bin\Debug\okuyucu2.mdb"
baglanti.Open()



Dim a, b, c, d, f, g, k, l As String
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
d = TextBox4.Text
f = TextBox7.Text
l = TextBox8.Text
g = TextBox5.Text
k = TextBox6.Text
If a = "" Or b = "" Or c = "" Or d = "" Or f = "" Or l = "" Or g = "" Or k = "" Then
MsgBox("verileri eksiksiz girmelisiniz")

End If

Dim Command As OleDbCommand
Command = New OleDbCommand("Insert Into okuyucu(Kimlik,tc,ad,soyad,meslek,web,posta,adres) values ('" + a + "','" + b + "','" + c + "','" + d + "','" + f + "','" + l + "','" + g + "','" + k + "') ", baglanti)
Command.ExecuteNonQuery()
Dim ds As New DataSet
Dim adb As New OleDb.OleDbDataAdapter("select * from okuyucu", baglanti)
adb.Fill(ds, "okuyucu")
DataGridView1.DataSource = ds.Tables("okuyucu")
baglanti.Close()
MsgBox("brawoooooooooooo")

End Sub

ListView1.View = View.Details
ListView1.GridLines = True
ListView1.Columns.Add("1.Kolon Adı Ne olsun", 80, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
ListView1.Columns.Add("2.Kolon Adı Ne olsun", 1500, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanının adını yaz.mdb'")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From veritaban içindeki tablonun adını yaz", baglan)
baglan.Open()
Dim ds1 As New DataSet()
adp.Fill(ds1)
baglan.Close()
Dim item As New ListViewItem
For Each row As DataRow In ds1.Tables(0).Rows
item = ListView1.Items.Add(row.Item("1.Kolon Adı")) ' tablodaki alan adı
item.SubItems.Add(row.Item("1.Kolon Adı")) 'tablodaki alan adı
Next

Formun load ına koyarsan ve tabiki 1 adet listviev eklemen lazım, form açılışında dolu olarak gelir
SN drummers HOCAM COK TESEKKÜR EDERİM
item = ListView1.Items.Add(row.Item("Kimlik")) ' tablodaki alan adı
item.SubItems.Add(row.Item("Kimlik")) 'tablodaki alan adı


hocam vermiş olduğunuz kodun yukarıda ki kısmını tam olarak anlayamadım yardımcı olabilirmisiniz
(27/02/2013, 17:17)selime68 yazdı: [ -> ]
item = ListView1.Items.Add(row.Item("Kimlik")) ' tablodaki alan adı
item.SubItems.Add(row.Item("Kimlik")) 'tablodaki alan adı


hocam vermiş olduğunuz kodun yukarıda ki kısmını tam olarak anlayamadım yardımcı olabilirmisiniz



verileri aldığınız tablodaki alanların adları. Firmalar diye bir tablon var olduğunu varsayalım. içinde ad,soyad alanları olsun

item = ListView1.Items.Add(row.Item("ad")) ' tablodaki alan adı
item.SubItems.Add(row.Item("soyad")) 'tablodaki alan adı
Hocam vermiş olduğunuz kodları yazdım fakat listview'e verileri çekemedim yazmış olduğum kod aşağıda ki gibi.nerde yanlış yapıyorum anlayamadım. deneme.mdb adında bir Access veri tabanım ve bu veri tabanında "veri" adında tablom var.tablo içinde ise Kimlik,adi,soyadi, ve meslek adında alanlarım var
Imports System.Data
Imports System.Data.OleDb


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim baglanti As New OleDbConnection
baglanti.ConnectionString = "provider=Microsoft.JET.OleDb.4.0;" & "Data source =C:\Users\İLHAN\Desktop\yeni örnek\deneme\deneme\bin\Debug\deneme.mdb"
baglanti.Open()

Dim ds As New DataSet
Dim adb As New OleDb.OleDbDataAdapter("Select * from veri", baglanti)
adb.Fill(ds, "veri")
DataGridView1.DataSource = ds.Tables("veri")
baglanti.Close()
'--------------------------------------------------
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.Columns.Add("KİMLİK", 80, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
ListView1.Columns.Add("ADI", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("SOYADI", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("MESLEK", 80, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\İLHAN\Desktop\yeni örnek\deneme\deneme\bin\Debug\deneme.mdb'")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * veri", baglan)
baglan.Open()
Dim ds1 As New DataSet()
adp.Fill(ds1)
baglan.Close()
Dim item As New ListViewItem
For Each row As DataRow In ds1.Tables(0).Rows
item = ListView1.Items.Add(row.Item("Kimlik")) ' tablodaki alan adı
item.SubItems.Add(row.Item("adi")) 'tablodaki alan adı
item.SubItems.Add(row.Item("soyadi"))
İtem.SubItems.Add(row.Item("meslek"))
Sayfalar: 1 2