miércoles, 1 de julio de 2009

Guardar datos en un ListBox

Como anteriormente ya deje un post para ver como se guardan datos en un ComboBox; ahora veremos como guardar datos en un listbox.

Primeramente veremos las propiedades mas comunes que utilizaremos y son:


  • DataSource: nos permite guardas valores de un DataTable

  • DisplayMenber: nos permite guardar un capo al igual que el combobox

  • ValueMenber: nos permite guardar otro campo.


Aplicacion: Mostrar los productos por categoria en un DataGridView para eso guarderemos los productos en un listbox y al hacer click en uno de ellos mostrarlos.

Nota: Utilizaremos una conexion a SqlClient


'importamos los elementos
Imports System.data
Imports System.Data.SqlClient 'Proveedor de Sql Server

Public Class Form1
'Paso 1: Creando la cadena de conexion
Dim cad as tring = "Server=(local);IntegratedSecurity=SSPI;Database=Neptuno"
Dim cn As New SqlConnection(cad)

'evento load del form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Paso 2: Listando los datos en el ListBox
Dim strsql As String = "Select idproducto,nombreproducto From productos"
Dim da As New SqlDataAdapter(strsql, cn)
'creando una tabla en memoria
Dim tbl As New DataTable
'copiando los datos del DataAdapter al DataTable
da.Fill(tbl)
'Mostrando los datos en el ListBox
ListBox1.DataSource = tbl
ListBox1.DisplayMember = "nombreproducto"
ListBox1.ValueMember = "idproducto"
LBLCANTIDAD.Text = ListBox1.Items.Count
End Sub
End Class