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"))