ListView da Access Veritabanındaki Verileri Göstermek

Bu makalemizde access veritabanındaki personel tablosundaki bilgileri Listview nesnesinde göstereceğiz. Aşağıdaki şekilleri inceleyin.

Şekil 1

Şekil 2

Imports System.Data.OleDb
Public Class Form1

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

ListView1.View = View.Details
ListView1.GridLines = True
ListView1.Columns.Add("id", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Ad", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Soyad", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Ogrenim", 100, HorizontalAlignment.Center)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListView1.Items.Clear()
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=veri.mdb;")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From personel", 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("id"))
item.SubItems.Add(row.Item("Ad"))
item.SubItems.Add(row.Item("Soyad"))
item.SubItems.Add(row.Item("Ogrenim"))
Next


End Sub

End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.