Jump to content


fsq2

Member Since 10/05/2004
Offline Last Active 12/05/2004, 01:06
-----

Topics I've Started

De Uma Dropdwonlist Para Outro

10/05/2004, 00:26

Estou tentando mandar informação de um drodownlist para o outro, no primeiro recebo os dados, ate consigo mandar par auma label, ou text box, porem para um outro droplist nao funciona, se alguem puder ajudar, seria algo tipo no primeiro recebo o nome, dai no segundo recebo alguma informação que referente no banco de dados, tipo endereco e, tipo como se fosse um filtro mesmo.



<%@ Page Language="vb" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

Dim strConexao as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\wwwroot\asp.net\Felipe\cadastro.mdb"
Dim strSQL As String
Dim conexao As New OleDbConnection()
Dim comando as New OleDbCommand()
Dim tabela as OleDbDataReader

Sub Page_Load(obj as object, e as eventargs)

if not Page.IsPostBack then
abastece()
end if

end sub


sub abastece()

conexao.ConnectionString = strConexao
strSQl = "SELECT * FROM cadastro " & _
"ORDER BY NOME"
comando.CommandText = strSQL
comando.Connection = conexao
conexao.open()

tabela = comando.ExecuteReader
lbCategoria.DataSource = tabela
lbCategoria.DataValueField = "codigo"
lbCategoria.DataTextField = "nome"
lbCategoria.DataBind()

Conexao.Close

End Sub


Sub Select_Categoria(obj as object, e as eventargs)
conexao.ConnectionString = strConexao
strSQl = "SELECT * FROM cadastro " & _
"WHERE codigo = " & lbCategoria.SelectedItem.Value
comando.CommandText = strSQL
comando.Connection = conexao

conexao.open
tabela = comando.ExecuteReader

If tabela.Read then
lblCodigo.text = tabela.getvalue(0)
tbCategoria.text = tabela.getvalue(1)
tbDescricao.text = tabela.getvalue(5)
Aqui coloco como nos outros recebedrop.text = tabela.getvalue(6), porem nao funciona


end if

end sub






</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
</p>
<asp:DropDownList id="lbCategoria" runat="server" autopostback="True" onselectedindexchanged="Select_Categoria"></asp:DropDownList>
<asp:DropDownList id="recebedrop" runat="server" autopostback="True" ></asp:DropDownList>


<asp:Label id="lblCodigo" runat="server" readonly="true"></asp:Label>
<br />
<asp:TextBox id="tbDescricao" runat="server"></asp:TextBox>
<p>
<asp:textBox id="tbCategoria" runat="server"></asp:textBox>
</p>
</form>
</body>
</html>

IPB Skin By Virteq