Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: Gota en 10 Noviembre 2008, 00:54 AM

Título: Llenar ListBox apartir de un ComboBox por sentencia SQL 2005
Publicado por: Gota en 10 Noviembre 2008, 00:54 AM
Hola, por casulidad saben de alguna pagina ó ejemplo donde se utilice base de datos sin dataset para cargar un listbox apartir de la seleccion de un comboBox.
Por ejemplo: Tengo un comboSecciones y pretendo cargar los alumnos de la sección seleccionada a partir de una sentencia SQL.
Estoy trabajando en tres capas, usando clases aun así me seria de mucha utilidad si me pordrian orientar con esta duda. GRACIAS.
Título: Re: Llenar ListBox apartir de un ComboBox por sentencia SQL 2005
Publicado por: softdonet en 24 Diciembre 2008, 14:50 PM
hola aca tienes un jemplo bamos utilizar la base de datos northwind la que viene predefinida en el sql server 2000

utilizando las dos tablas, tanto la tabla categories y la tabla products

te boy ha dar un ejemplo no en capas. tu tendras adaptarlo segun tu conveniencia

vamos utilizar un SqlDataAdapter , lo cual nos permitira hacer la consulta sql
para agrgarlo luego aun datatable los datos obtenidos en la consulta

Código (vb.net) [Seleccionar]

Imports System.Data.SqlClient
Imports System.Data.DataView
Public Class Form1
    Dim con As New SqlConnection("Integrated security=sspi;server=.;database =northwind")
    Dim dtb As DataTable
    Dim da As SqlDataAdapter
    Function llenar_combo() As DataTable
        da = New SqlDataAdapter("select *from categories", con)
        dtb = New DataTable
        da.Fill(dtb)
        Return dtb
    End Function
    Function llenar_listbox() As DataTable
  'creamos la consulta y filtramos los datos segun el campo que tiene en comun
        da = New SqlDataAdapter("select *from products where categorYid =" & Me.ComboBox1.SelectedValue & "", con)
        dtb = New DataTable
        da.Fill(dtb)
        Return dtb
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.DataSource = llenar_combo()
        Me.ComboBox1.ValueMember = "categorYid"
        Me.ComboBox1.DisplayMember = "categoryname"
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            Me.ListBox1.DataSource = llenar_listbox()
            Me.ListBox1.ValueMember = "Productid"
            Me.ListBox1.DisplayMember = "productname"
        Catch ex As Exception
         
        End Try
    End Sub
End Class






(http://by118w.bay118.mail.live.com/att/GetAttachment.aspx?tnail=0&messageId=2416316e-eff4-49dd-aa53-0f3e5c058e0e&Aux=14%7C0%7C8CB33E565163C10%7C)
espero que te sirva de algo