New Document

ListView Nesnesine Veritabanın dan Bilgi Çekmek

Bu makalemizde ListView nesnemize Access veritabanından veri çekeceğiz.
Formunuza aşağıdaki şekildeki gibi oluşturun.

Şekil 1

Imports System.Data.OleDb
Public Class Form1
Dim i As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ‘Access veritabanına bağlanıyor
        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bilgi.mdb;")
        Dim adp As New OleDb.OleDbDataAdapter()
        Dim str As String = "Select * From personel_bilgi"
        adp.SelectCommand = New OleDb.OleDbCommand(str, baglan)
        Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)
        Dim cmd As New Data.OleDb.OleDbCommand(str, baglan)
        baglan.Open()

        ‘ListView ın özellikleribelirtiliyor.
        ListView1.FullRowSelect = True
        ListView1.View = View.Details
        ListView1.GridLines = True

        ‘ListView a sütunlar ekleniyor
        ‘ayrıca sütun ismi ve genişliği belirleniyor.
        ListView1.Columns.Add(("ID"), 20)
        ListView1.Columns.Add(("AD"), 100)
        ListView1.Columns.Add(("SOYAD"), 100)
        ListView1.Columns.Add(("ANNE ADI"), 100)
        ListView1.Columns.Add(("BABA ADI"), 100)
        ListView1.Columns.Add(("ÖĞRENİM DURUMU"), 100)
        ListView1.Columns.Add(("MESLEK"), 100)
        ListView1.Columns.Add(("ADRES"), 100)

Dim ds As New DataSet()
adp.Fill(ds)

‘ListViewItemler oluşturuluyor
Dim itemler As New ListViewItem

        For i = 0 To ds.Tables(0).Rows.Count - 1

            itemler = ListView1.Items.Add(ds.Tables(0).Rows(i).Item(0), ds.Tables(0).Columns.Count - 1)
            itemler.SubItems.AddRange(New String(6) {ds.Tables(0).Rows(i).Item(1), ds.Tables(0).Rows(i).Item(2), ds.Tables(0).Rows(i).Item(3), ds.Tables(0).Rows(i).Item(4), ds.Tables(0).Rows(i).Item(5), ds.Tables(0).Rows(i).Item(6), ds.Tables(0).Rows(i).Item(7)})
            itemler.Font = New Font("Arial", 10, FontStyle.Bold)
            itemler.ForeColor = Color.Navy

            ‘itemler = ListView1.Items.Item(i)
            ‘veya aşağıdaki gibi yapabilirsiniz.
            ‘Dim item() As String = {ds.Tables(0).Rows(i).Item(0), ds.Tables(0).Rows(i).Item(1), ds.Tables(0).Rows(i).Item(2), ds.Tables(0).Rows(i).Item(3), ds.Tables(0).Rows(i).Item(4), ds.Tables(0).Rows(i).Item(5), ds.Tables(0).Rows(i).Item(6), ds.Tables(0).Rows(i).Item(7)}
            ‘ListView1.Items.Add(New ListViewItem(item))

        Next
        baglan.Close()
    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır