AccessTr.neT

Sayfalar: 1 2

(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

tskr ederim hocam şimdi oldu.

Sayfalar: 1 2

drummers

selime68