Lima 2011 Postado Junho 19, 2011 Denunciar Share Postado Junho 19, 2011 Senhores (a), boa noite.Como faço para criar um campo SELECT (COMBOBOX), alimentado por uma base ACCESS, ou seja, trazendo informações de uma tabela e exibindo neste campo SELECT as informações contidas na tabela. Por favor, preciso deste script em ASP.Muito Obrigado pela ajuda. Link para o comentário Compartilhar em outros sites More sharing options...
0 Rodrigo_Linhas Postado Junho 20, 2011 Denunciar Share Postado Junho 20, 2011 (editado) Seria mais ou menos isso:<%Response.Charset="ISO-8859-1"%> <HTML> <HEAD> <TITLE>.:: Combos com AJAX ::.</TITLE> <META NAME="Author" CONTENT="Wellington Marinheiro"> <script src="lanc_ComboAjax.js"> </script> </HEAD> <BODY> <% if request.queryString("at")= "" then db = Server.MapPath("dados.mdb") Set cnn = Server.CreateObject("adodb.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";" SQL="SELECT * FROM tb_Lanc_categ ORDER by categoria" SET rs = Server.CreateObject("Adodb.recordset") rs.Open SQL,cnn if not rs.eof then lista = rs.getrows() total = ubound(lista,2) end if rs.close set rs = nothing %> <CENTER> Utilizando AJAX para atualizar um COMBOBOX <hr> <form name="form" action="index.asp?at=1" method="post"> <table border="1" bgcolor=#F4F4F4 width=40% align="center"> <tr> <td><B>Categoria</B> <td> <select name="categoria" class="select" Onchange="atualizaLanc(this.value);"> <option value="">selecionar... <% for t=0 to total response.write "<option value=" & lista(0,t) & "|" & lista(1,t) &">" & lista(1,t) & "</option>" next%> </select> <tr> <td><B>Lançamento:</B> <td> <div id="lanc"> <select name="Lancamento"> <option value="">Selecionar categoria</option> </select> </div> <tr> <td colspan="2" align="center"> <INPUT TYPE="submit" value="Enviar"> </tr> </table> </form> </CENTER> <% else response.write "<div align=center><B>Resultado:</B><BR>" response.write "Categoria selecionada: " & request.Form("nomecat") & "<BR>" response.write "Lançamento: " & request.Form("lancamento") & "<BR><BR>" response.write "<A HREF='index.asp'>Nova escolha</A>" response.write "</div>" end If %> </body> </html>Clique aqui para baixar o script completo Editado Junho 20, 2011 por Rodrigo_Linhas Link para o comentário Compartilhar em outros sites More sharing options...
0 Lima 2011 Postado Junho 20, 2011 Autor Denunciar Share Postado Junho 20, 2011 Cara preciso de um script que utiliza somente a linguagem asp sem o ajax, bem simples mesmo. Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Junho 21, 2011 Denunciar Share Postado Junho 21, 2011 <select name="select" class="select"> <option value="">selecionar...</option> <% SQL="SELECT * FROM tabela" set rs=conn.execute(sql) if not rs.eof then response.write "<option value="&rs("campo")&">"&rs("campo")&"</option>" end if rs.close set rs = nothing %> </select> Link para o comentário Compartilhar em outros sites More sharing options...
0 Lima 2011 Postado Junho 21, 2011 Autor Denunciar Share Postado Junho 21, 2011 bareta, como devo proceder para conectar o banco de dados access, para trazer as informações deste campo select para minha pagina ASP. Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Junho 22, 2011 Denunciar Share Postado Junho 22, 2011 da uma pesquisada ai no forum ou vai lá em connectionstrings.com Link para o comentário Compartilhar em outros sites More sharing options...
0 Lima 2011 Postado Julho 4, 2011 Autor Denunciar Share Postado Julho 4, 2011 Bareta,Muito obrigado pelo código.Consegui adaptar ao meu projeto. Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Lima 2011
Senhores (a), boa noite.
Como faço para criar um campo SELECT (COMBOBOX), alimentado por uma base ACCESS, ou seja, trazendo informações de uma tabela e exibindo neste campo SELECT as informações contidas na tabela. Por favor, preciso deste script em ASP.
Muito Obrigado pela ajuda.
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados