Llenando un ListView en VB.NET
Imports System.Data.SqlClient
Public Class frmCliente
Dim cn As New SqlConnection
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim cmd As New SqlCommand
Private Sub frmCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New SqlConnection("data source = servidor; initial catalog = Northwind; User Id = sa; Password = password")
cmd = New SqlCommand("SELECT * FROM Customers", cn)
da = New SqlDataAdapter
da.SelectCommand = cmd
cn.Open()
da.Fill(ds, "Customers")
cn.Close()
MostrarClientes()
End Sub
Private Sub MostrarClientes()
Dim objListItem As New ListViewItem
Me.ClientesListView.Items.Clear()
For Each drw As DataRow In ds.Tables("Customers").Rows
objListItem = ClientesListView.Items.Add(drw.Item("CompanyName").ToString, 0)
objListItem.SubItems.Add(drw.Item("ContactName").ToString)
objListItem.SubItems.Add(drw.Item("Phone").ToString)
objListItem.SubItems.Add(drw.Item("Region").ToString)
Next
End Sub
End Class
3 comentarios:
mi hermano me salvaste la vida muchas gracias
Por favor podrías explicarme en esta linea :
objListItem = ClientesListView.Items.Add(drw.Item("CompanyName").ToString, 0)
El "CompanyName" del Item donde lo defines.
He intentado dando un nombre dentro de ListView en la colección de Items, pero me da un error.
Muchas gracias
Publicar un comentario