Código Fonte - O melhor conteúdo para programadores

Autor

Banco de Dados

Compartilhe e guarde

Enquete

Que programa de afiliados é mais rentável?

Google adSense
Não sei
Mercado Livre
UOL Afiliados
Outros
Buscapé
Afilio (Hi-Midia)

Home Código Fonte ASP Arquivos

Atualizando combobox utilizando AJAX

O codigo abaixo atualiza um segundo combo baseado na escolha do primeiro acessando o banco de dados sem dar refresh na página.

Isto é possivel utilizando AJAX.

Recurso muito útil e bastante utilizado nas páginas atuais.

<%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>

<%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>

Arquivo	Tipo	Tamanho	Hits
combos.zip	Arquivo ZIP	18,3 Kb	1041

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco