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
Mode Lineal
