Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/09/2011, 11:51
Avatar de msnonlygames
msnonlygames
 
Fecha de Ingreso: agosto-2011
Ubicación: En la programacion y la red
Mensajes: 23
Antigüedad: 13 años, 7 meses
Puntos: 0
Exclamación Consulta en Visual por Medio de un ListView

Hola todos queria saber si hay forma de llenar en un ListView datos de una consulta, yo por el momento lo estoy haciendo en un DataGridView, pero queria saber si hay forma de mandarlo a un ListView.
Este es el codigo que estoy utilizando para llenarlo en un Datagridview
Solo utilizo un TextBox y un DataGridView
Código vb:
Ver original
  1. Imports System.Data
  2. Imports System.Data.SqlClient
  3.  
  4. Public Class Form1
  5.     Dim ds As New DataSet
  6.     Dim cn As New SqlConnection("server=LUISITO;database=Northwind;Integrated Security=yes")
  7.    
  8.  Sub cargarProductos()
  9.         Try
  10.             Dim da As New SqlDataAdapter("Select productid as 'ID Producto',productname as 'Producto',unitprice as 'Precio Unitario' from products", cn)
  11.             da.Fill(ds, "Productos")
  12.             dgvlista.DataSource = ds.Tables("Productos")
  13.         Catch ex As Exception
  14.             MsgBox("Error al Buscar", MsgBoxStyle.Information, "Mensaje de Salida")
  15.         End Try
  16.     End Sub
  17.     Sub listaProducto2(ByVal nombre As String)
  18.         ds.Tables("Productos").DefaultView.RowFilter = "Producto like'" & nombre & "%'"
  19.        dgvlista.DataSource = ds.Tables("Productos")
  20.  End Sub
  21.  
  22.     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  23.         'proforma(TextBox1.Text)
  24.        listaProducto2(TextBox1.Text)
  25.     End Sub
  26.    
  27.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  28.         cargarProductos()
  29.         dgvlista.DataSource = ds.Tables("Productos")
  30. End Sub
  31. End Class

Espero su ayuda . Gracias