jueves, agosto 31, 2006

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:

CESCK dijo...

mi hermano me salvaste la vida muchas gracias

CESCK dijo...
Este comentario ha sido eliminado por el autor.
Miguel dijo...

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