Skip to main content

AccessTr.neT


vb.net ile accessten listbox' veri çekme

vb.net ile accessten listbox' veri çekme

Çözüldü #7
(28/02/2013, 00:35)selime68 yazdı: 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"))


ListView1.View = View.Details
ListView1.GridLines = True
ListView1.Columns.Add("KİMLİK", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("ADI", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("SOYADI", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("MESLEK", 80, HorizontalAlignment.Left)

Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='deneme.mdb'")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From 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"))
Next

Select * From veri" burda yanlışın var. Yukarıdaki gibi olacaktır
Formun load ına koy çalışır. Alan isimlerinin ve tablonun adının doğru olduğundan emin olunuz.
Kolay gelsin
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 28/02/2013, 00:55, Düzenleyen: drummers.
Cevapla
Çözüldü #8
tskr ederim hocam şimdi oldu.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task