Ayuda con dropdown List porfavor
Publicado por Emilio Rosales (1 intervención) el 02/09/2005 01:01:56
Hola que tal, estoy trabajando con un drop down el cual lleno desde una base de datos. Esto lo hace correctamente, pero al seleccionar la opcion que quiero para poder traer la informacion correspondiente, siempre me trae el primero.
Aqui esta el codigo de como lleno el Dropdown, el cual si me lo llena correctamente pero no me hace lo que comento arriba:
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
Dim DS1 As DataSet
Dim Conexion1 As SqlConnection
Dim Cmnd1 As SqlDataAdapter
Conexion1 = New SqlConnection("server=(local)\miguelr;user id=sa;password=sesion;database=pruebas")
Cmnd1 = New SqlDataAdapter("select * from GpoUsuarios", Conexion1)
DS1 = New DataSet
Cmnd1.Fill(DS1, "GpoUsuarios")
lstGpo.DataSource = DS1
lstGpo.DataTextField="Nombre"
lstGpo.DataValueField="idGpo"
lstGpo.DataBind()
End Sub
Y con este codigo lo mando a llamar:
Public Sub Submitbtn_click(ByVal Sender As Object, ByVal E As EventArgs)
If (Page.IsValid) Then
Dim DS As DataSet
Dim Conexion As SqlConnection
Dim Cmnd As SqlDataAdapter
Conexion = New SqlConnection("server=(local)\miguelr;user id=sa;password=sesion;database=pruebas")
Cmnd = New SqlDataAdapter("select * from Usuarios where idGpo='" + lstGpo.SelectedItem.Value + "'", Conexion)
DS = New DataSet
Cmnd.Fill(DS, "usuarios")
Lista.DataSource = DS.Tables("Usuarios").DefaultView
Lista.DataBind()
End If
End Sub
Espero que me puedan decir en que estoy mal porfavor.
Gracias
Aqui esta el codigo de como lleno el Dropdown, el cual si me lo llena correctamente pero no me hace lo que comento arriba:
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
Dim DS1 As DataSet
Dim Conexion1 As SqlConnection
Dim Cmnd1 As SqlDataAdapter
Conexion1 = New SqlConnection("server=(local)\miguelr;user id=sa;password=sesion;database=pruebas")
Cmnd1 = New SqlDataAdapter("select * from GpoUsuarios", Conexion1)
DS1 = New DataSet
Cmnd1.Fill(DS1, "GpoUsuarios")
lstGpo.DataSource = DS1
lstGpo.DataTextField="Nombre"
lstGpo.DataValueField="idGpo"
lstGpo.DataBind()
End Sub
Y con este codigo lo mando a llamar:
Public Sub Submitbtn_click(ByVal Sender As Object, ByVal E As EventArgs)
If (Page.IsValid) Then
Dim DS As DataSet
Dim Conexion As SqlConnection
Dim Cmnd As SqlDataAdapter
Conexion = New SqlConnection("server=(local)\miguelr;user id=sa;password=sesion;database=pruebas")
Cmnd = New SqlDataAdapter("select * from Usuarios where idGpo='" + lstGpo.SelectedItem.Value + "'", Conexion)
DS = New DataSet
Cmnd.Fill(DS, "usuarios")
Lista.DataSource = DS.Tables("Usuarios").DefaultView
Lista.DataBind()
End If
End Sub
Espero que me puedan decir en que estoy mal porfavor.
Gracias
Valora esta pregunta


0