Inicio > Desarrollo Escritorio > Cargar datos en un Listview

Cargar datos en un Listview


Imports System.Data.SqlClient

Module Conexion

Public cadena As String = "Data Source=SERVERX;DataBase=SISclinica;Integrated Security=True"
Public con As New SqlConnection(cadena)

End Module

Esta es nuestra clase que utilizaremos la cPersona


Imports System.Data
Imports System.Data.SqlClient

Public Class cPersona

Private _idpersona As Integer
Private _nombres As String
Private _apellidos As String
Private _dni As String

Public Property idpersona() As Integer
Get
Return _idpersona

End Get
Set(ByVal value As Integer)
_idpersona = value

End Set
End Property

Public Property nombres() As String
Get
Return _nombres
End Get
Set(ByVal value As String)
_nombres = value

End Set
End Property

Public Property apellidos() As String
Get
Return _apellidos

End Get
Set(ByVal value As String)
_apellidos = value

End Set
End Property

Public Property dni() As String
Get
Return _dni

End Get
Set(ByVal value As String)
_dni = value

End Set
End Property

Public Function mostrar_personas()
Dim cmd As New SqlCommand
Dim dr As SqlDataReader

cmd.CommandText = "sp_mostrar"
cmd.Connection = Conexion.con
cmd.CommandType = CommandType.StoredProcedure

If Conexion.con.State = ConnectionState.Open Then Conexion.con.Close()
Conexion.con.Open()
dr = cmd.ExecuteReader
Return dr

dr.Close()
Conexion.con.Close()

End Function

End Class

Ahora programaremos el evento click del button

Dim objpersona As cPersona
objpersona = New cPersona
Dim filab As ListViewItem
Dim drb As SqlDataReader

drb = objpersona.mostrar_personas
Do While drb.Read = True

filab = New ListViewItem(CStr(drb.Item(0)))
filab.SubItems.Add(CStr(drb.Item(1)))
filab.SubItems.Add(CStr(drb.Item(2)))
filab.SubItems.Add(CStr(drb.Item(3)))

ListView1.Items.Add(filab)
filab = Nothing
Loop

Categorías:Desarrollo Escritorio
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: