Hola amigos! Tengo un control listbox el cual tiene asignado en su propiedad autopostback el valor de true y en el encabezado de la pagina <%@ Page Language="vb" AutoEventWireup="true"%>. Estas dos asignaciones pienso que estan correctas para llamar el evento lstasesores_SelectedIndexChanged para que se ejecute sin embargo no lo hace. Alguien puede explicarme cual seria la posible falla o el error cometido.
Observen los sig. fragmentos de codigo:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
CargarAsesores()
End If
End Sub
Public Function CargarAsesores()
Dim MyConnection As String
MyConnection = CStr(Application("SqlConnection"))
Dim Conn As New SqlConnection(MyConnection)
Dim cmdAsesores As New SqlCommand("MostrarAsesores", Conn)
cmdAsesores.CommandType = CommandType.StoredProcedure
Conn.Open()
lstasesores.Items.Clear()
Dim drAsesores As SqlDataReader
drAsesores = cmdAsesores.ExecuteReader
Do While drAsesores.Read
Dim Agregar As New ListItem
Agregar.Text = drAsesores("APELLIDO") & "," & " " & _
drAsesores("NOMBRE")
Agregar.Value = drAsesores("ID_ASESOR").GetType.ToString
lstasesores.Items.Add(Agregar)
Loop
drAsesores.Close()
Conn.Close()
End Function
Private Sub lstasesores_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstasesores.SelectedIndexChanged
Dim conn As String
conn = CStr(Application("SqlConnection"))
Dim con As New SqlConnection(conn)
Dim cmdMostrar As New SqlCommand("SeleccionarAsesor", con)
cmdMostrar.CommandType = CommandType.StoredProcedure
Dim parameterIdAsesor As New SqlParameter("@IdAsesor", SqlDbType.UniqueIdentifier, 16)
parameterIdAsesor.Direction = ParameterDirection.Input
parameterIdAsesor.Value = lstasesores.SelectedItem.Value.ToString
cmdMostrar.Parameters.Add(parameterIdAsesor)
con.Open()
Dim drMostrar As SqlDataReader
drMostrar = cmdMostrar.ExecuteReader
drMostrar.Read()
txtnombres.Text = drMostrar("NOMBRE")
txtapellidos.Text = drMostrar("APELLIDO")
txtprofesion.Text = drMostrar("PROFESION")
txtarea.Text = drMostrar("AREA")
txtresumen.Text = drMostrar("RESUMEN_CURRICULAR")
txttelefono.Text = drMostrar("TELF_OFICINA")
txtemail.Text = drMostrar("EMAIL")
drMostrar.Close()
con.Close()
pnlinvestigador.Visible = True
End Sub
Gracias!
