Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Listboxes dinamicas, sem refresh, com pequeno problema...

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

Boa tarde amigos,Estou com um pequeno probleminha, estou com um codigo de 2 listboxes dinamicas, sem refresh, que pegam os dados do mysql...Esse codigo só está me trazendo uma unica subcategoria no 2º list, quando seleciono 1 categoria no 1º list. O que pode está errado amigos?Quero que quando seleciono 1 categoria no 1º list, apareçam todas as subcategorias da categoria selecionada. As 2 tabelas do mysql estão relacionadas corretamente.

<!--#include file="../Connections/conn.asp" --><%Function EscreveFuncaoJavaScript (Conexao)'O parametro conexao receberá uma conexao aberta!'Em funcoes, geralmente não criamos objetos do tipo conexões!'Opte por sempre deixar sua função o mais compatível possível com qualquer projeto!'Primeiro vamos escrever o cabecalho de qualquer script javascript!Response.Write "<script language=""JavaScript"">" & vb script:atualizaitens(this.form);"><% While NOT Rs.EoF %> <option value="<% = Rs("id_proc") %>"><% = Rs("nome_proc") %></option><% Rs.MoveNext %> <% Wend %> </select><br><br><select name="itens" id="itens"></select></form></body></html> <%'Fechando os objetos! Rs.CloseSet Rs = Nothingconn.CloseSet conn = Nothing %>

Aguardo resposta amigos...Não estou conseguindo postar o codigo inteiro.... mais uma tentativa:

<!--#include file="../Connections/conn.asp" --><%Function EscreveFuncaoJavaScript (Conexao)'O parametro conexao receberá uma conexao aberta!'Em funcoes, geralmente não criamos objetos do tipo conexões!'Opte por sempre deixar sua função o mais compatível possível com qualquer projeto!'Primeiro vamos escrever o cabecalho de qualquer script javascript!Response.Write "<script language=""JavaScript"">" & vb script:atualizaitens(this.form);"><% While NOT Rs.EoF %> <option value="<% = Rs("id_proc") %>"><% = Rs("nome_proc") %></option><% Rs.MoveNext %> <% Wend %> </select><br><br><select name="itens" id="itens"></select></form></body></html> <%'Fechando os objetos! Rs.CloseSet Rs = Nothingconn.CloseSet conn = Nothing %>

Moderadores me desculpe, mas agora vou tentar postar fora do QUOTE: <!--#include file="../Connections/conn.asp" --><%Function EscreveFuncaoJavaScript (Conexao)'O parametro conexao receberá uma conexao aberta!'Em funcoes, geralmente não criamos objetos do tipo conexões!'Opte por sempre deixar sua função o mais compatível possível com qualquer projeto!'Primeiro vamos escrever o cabecalho de qualquer script javascript!Response.Write "<script language=""JavaScript"">" & vb script:atualizaitens(this.form);"><% While NOT Rs.EoF %> <option value="<% = Rs("id_proc") %>"><% = Rs("nome_proc") %></option><% Rs.MoveNext %> <% Wend %> </select><br><br><select name="itens" id="itens"></select></form></body></html> <%'Fechando os objetos! Rs.CloseSet Rs = Nothingconn.CloseSet conn = Nothing %>Mais uma tentativa sem os comentários...

<!--#include file="../Connections/conn.asp" --><%Function EscreveFuncaoJavaScript (Conexao)Response.Write "<script language=""JavaScript"">" & vb script:atualizaitens(this.form);"><% While NOT Rs.EoF %> <option value="<% = Rs("id_proc") %>"><% = Rs("nome_proc") %></option><% Rs.MoveNext %> <% Wend %> </select><br><br><select name="itens" id="itens"></select></form></body></html> <%Rs.CloseSet Rs = Nothingconn.CloseSet conn = Nothing %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor FV    0

Igor FV
Postado

Agora o código todo está ai: Parte 1.

<html><head><% EscreveFuncaoJavaScript ( Conexao ) %></head><body><form name="iMasters"> <select name="procedimentos" id="procedimentos" onChange="java script:atualizaitens(this.form);"><% While NOT Rs.EoF %> <option value="<% = Rs("id_proc") %>"><% = Rs("nome_proc") %></option><% Rs.MoveNext %> <% Wend %> </select><br><br><select name="itens" id="itens"></select></form></body></html>

Parte 2.

<!--#include file="../Connections/conn.asp" --><%Function EscreveFuncaoJavaScript (Conexao)'O parametro conexao receberá uma conexao aberta!'Em funcoes, geralmente não criamos objetos do tipo conexões!'Opte por sempre deixar sua função o mais compatível possível com qualquer projeto!'Primeiro vamos escrever o cabecalho de qualquer script javascript!Response.Write "<script language=""JavaScript"">" & vbcrlf Response.Write "function atualizaitens (form) {" & vbcrlf'Essa função JavaScript recebe o form em que estão os campos a serem atualizados!'Veja na chamada da função no método OnChange em que se passa o this.form!'Vamos criar um switch para ele verificar qual opção foi selecionada!! Response.Write "switch (form.procedimentos.options[form.procedimentos.selectedIndex].value) {" & vbcrlf 'Agora entramos com o banco de dados! Temos que jogar aqui todas as opções de carro!SqlProc = "SELECT * FROM tbl_item ORDER BY nome_item" Set rsProc = conn.Execute ( SqlProc )While NOT rsProc.EOF'Caso tenha sido essa marca selecionada... Response.Write "case '" & rsProc("id_proc") & "':" & vbcrlf'Apagamos tudo o que tem na caixa dos carros!Response.Write "form.itens.length=0;" & vbcrlf 'Abrimos todos os carros relativos a essa marca!SqlItem = "SELECT id_item, nome_item FROM tbl_item WHERE id_item = " & rsProc("id_item")Set rsItem = conn.Execute ( SqlItem )'Fazemos um loop por todos os carros, criando uma nova opção no SELECT! i = 0 While NOT rsItem.EoFResponse.Write "form.itens.options[" & i & "] = new Option('" & rsItem("nome_item") & "','" & rsItem("id_item") & "');" & vbcrlf i=i+1rsItem.MoveNextWend'Imprimos um break! (Verifique tutoriais de JavaScript, se tiverem alguma dúvida da sua utilização! Response.Write "break;" & vbcrlf'Próxima marca! rsProc.MoveNext Wend 'Fecha chaves do switch e da função! E fecha o script! Response.Write "}}" & vbcrlf & "</script>" & vbcrlf End Function%> <%'Criando conexão com o banco de dados! 'Set Conexao = Server.CreateObject("ADODB.Connection")'Conexao.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("carros.mdb")'Abrindo a tabela MARCAS!Sql = "SELECT * FROM tbl_proc ORDER BY nome_proc" Set Rs = conn.Execute (Sql) %>AQUI ESTÁ O CODIGO INFORMADO LOGO ACIMA (PARTE 1).<%'Fechando os objetos! Rs.CloseSet Rs = Nothingconn.CloseSet conn = Nothing %>

Obs: os dois codigos estão em uma única pagina.Vlw...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito