Hola amigos del foro, tengo un problema espero que me puedan ayudar, les cuento, tengo un dropdownlist en donde cargo los nombre de Usuarios desde una base de datos (hasta ahi no hay problem), lo que quiero es que cuando se seleccione un nombre del Dropdownlist, me aparezca el cargo que ocupa... en un datalist....dicho cargo se encuentra almacenado dentro de la misma tabla.. aqui les va el codigo para que vean si encuentran un error
Function Cargo(ByVal usuarioNombre As String) As System.Data.DataSet
Dim connectionString As String = "server='(local)'; trusted_connection=true; database='Memo'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "SELECT [Usuarios].[UsuarioCargo] FROM [Usuarios] WHERE ([Usuarios].[UsuarioNombre"& _
"] = @UsuarioNombre)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_usuarioNombre As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_usuarioNombre.ParameterName = "@UsuarioNombre"
dbParam_usuarioNombre.Value = usuarioNombre
dbParam_usuarioNombre.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_usuarioNombre)
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Function Nombre() As System.Data.DataSet
Dim connectionString As String = "server='(local)'; trusted_connection=true; database='Memo'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "SELECT [Usuarios].[UsuarioNombre] FROM [Usuarios]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Sub Page_Load(Sender As Object, E As EventArgs)
If Not (Page.IsPostBack)
dropdownlist1.DataSource = Nombre()
dropdownlist1.DataTextField = "UsuarioNombre"
dropdownlist1.DataBind()
End If
End Sub
Sub DataList1_SelectedIndexChanged(sender As Object, e As EventArgs)
DataList1.DataSource = Cargo(DropDownList1.Items(DropDownList1.SelectedIn dex).Text)
DataList1.DataBind()
End Sub
ahhhh y esto me aparece cuando selecciono codigo HTML
<body>
<form runat="server">
<asp:DropDownList id="DropDownList1" style="Z-INDEX: 100; LEFT: 153px; POSITION: absolute; TOP: 44px" runat="server" OnSelectedIndexChanged="DropDownList1_SelectedInde xChanged" AutoPostBack="True" Width="353px"></asp:DropDownList>
<asp:DataList id="DataList1" style="Z-INDEX: 100; LEFT: 152px; POSITION: absolute; TOP: 64px" runat="server" OnSelectedIndexChanged="DataList1_SelectedIndexCha nged" Width="353px" Height="60px">
<ItemTemplate>
<asp:Label id="Label1" runat="server" text='<%# DataBinder.Eval(Container.DataItem,"UsuarioCargo") %>' font-size="XX-Small" font-names="Verdana" width="384px"></asp:Label>
</ItemTemplate>
</asp:DataList>
<!-- Insert content here -->
</form>
</body>
Espero me puedan ayudar... Saludos
Roberto
