Mostrar campos con DropDownList Help...
Publicado por zunea (18 intervenciones) el 27/03/2012 01:44:34
Amigos, muchas gracias de antemano:
Trabajo en Asp.net VB 2010
Lo que pretendo es seleccionar el código de un alumno (DropDownList) y mostrar el nombre y apellido según dicha selección, es decir, con solo que el usuario seleccione el código el sistema muestre el nombre y el apellido y otros datos del alumno en un label.text...
Este es el código que uso pero no me funciona, no pasa nada....
Protected Sub DDListCod_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDListCod.SelectedIndexChanged
Dim CnT As New SqlConnection
Dim QueryT As New SqlCommand
CnT.ConnectionString = SDSAlumnos.ConnectionString
CnT.Open()
QueryT.CommandType = Data.CommandType.Text
QueryT.CommandText = "Select * from alumnos where IdAlum='" & DDListCod.SelectedValue & "'"
QueryT.Connection = CnT
Try
Dim dts As New DataTable
Dim da As New SqlDataAdapter(QueryT)
da.Fill(dts)
Me.LblNombre.Text = dts.Rows(0).Item(2)
Me.LblApellidos.Text = dts.Rows(0).Item(3)
Me.LblGrado.Text = dts.Rows(0).Item(7)
Me.LblNivel.Text = dts.Rows(0).Item(6)
Catch ex As Exception
MsgBox(ex.Message)
End Try
CnT.Close()
End Sub
Gracias por cualquier sugerencia al respecto.
Trabajo en Asp.net VB 2010
Lo que pretendo es seleccionar el código de un alumno (DropDownList) y mostrar el nombre y apellido según dicha selección, es decir, con solo que el usuario seleccione el código el sistema muestre el nombre y el apellido y otros datos del alumno en un label.text...
Este es el código que uso pero no me funciona, no pasa nada....
Protected Sub DDListCod_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDListCod.SelectedIndexChanged
Dim CnT As New SqlConnection
Dim QueryT As New SqlCommand
CnT.ConnectionString = SDSAlumnos.ConnectionString
CnT.Open()
QueryT.CommandType = Data.CommandType.Text
QueryT.CommandText = "Select * from alumnos where IdAlum='" & DDListCod.SelectedValue & "'"
QueryT.Connection = CnT
Try
Dim dts As New DataTable
Dim da As New SqlDataAdapter(QueryT)
da.Fill(dts)
Me.LblNombre.Text = dts.Rows(0).Item(2)
Me.LblApellidos.Text = dts.Rows(0).Item(3)
Me.LblGrado.Text = dts.Rows(0).Item(7)
Me.LblNivel.Text = dts.Rows(0).Item(6)
Catch ex As Exception
MsgBox(ex.Message)
End Try
CnT.Close()
End Sub
Gracias por cualquier sugerencia al respecto.
Valora esta pregunta


0