Como eu faço uma busca em asp e retorne a busca na mesma página

Adilson_Web_2007 · Agosto 9, 2007

Olá eu tenho um formulario de busca. E gostaria que a busca fosse retornada na mesma página, como eu faço isso. Desde já eu agradeço a todos segue o meu código;

<%@LANGUAGE="VBSCRIPT"%><%Option explicit%><!--#Include file="conexao/oracle.inc"--><%response.expires=0dim conexaoDataBase,ConnString,sqlTabela,rsTabela,buttonbutton=request.form("busca")Call abreConexaosqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"'"set rsTabela = conexaoDataBase.execute(sqlTabela)%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="#" method="post" name="busca"><table border="0" align="center"><tr><td>Buscar</td><td><input name="busca" type="text" size="35" maxlength="40" ><inputname="Enviar"type="submit"value="Enviar"></td></tr><td><%= rsTabela("cod_cliente")%></td></tr></table></form></body></html>

jrcardozo · Agosto 9, 2007

só você colocar o action do form para a mesma ela mesma e faz um if pra ver se foi ou não digitado algo no input

if request.form("busca") <> "" then'faz a busca e exibe os resultadosend if

Adilson_Web_2007 · Agosto 9, 2007

então eu fiz assim

<%@LANGUAGE="VBSCRIPT"%><%Option explicit%><%if request.form("busca") <> "" thenresponse.expires=0dim conexaoDataBase,ConnString,sqlTabela,rsTabela,buttonbutton=request.form("busca")Call abreConexaosqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' "set rsTabela = conexaoDataBase.execute(sqlTabela)<%end if%>%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="listar.asp" method="post" name="busca"><table border="0" align="center"><tr><td>Buscar</td><td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td></tr>[b]<td><%= rsTabela("cod_cliente")%></td> [/b]erro aqui</tr></table></form></body></html>

segue o erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/contratos/listar.asp, line 34

jrcardozo · Agosto 9, 2007

está errado, você tem que fazer isso dentro do body e fazer um if pra saber se o recordset chegou no final ou não

segue:

<%@LANGUAGE="VBSCRIPT"%><%Option explicit%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="listar.asp" method="post" name="busca"><table border="0" align="center"><tr><td>Buscar</td><td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td></tr><%if request.form("busca") <> "" then		response.expires=0	dim conexaoDataBase,ConnString,sqlTabela,rsTabela,button	button=request.form("busca")	Call abreConexao	sqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' "	set rsTabela = conexaoDataBase.execute(sqlTabela)		if not rsTabela.eof then		%>			<tr>			<td><%= rsTabela("cod_cliente")%></td> 			<td> </td> 		</tr>		<%	end ifend if%></table></form></body></html>

Adilson_Web_2007 · Agosto 9, 2007

Ok deu certo muito obrigado e desculpe o incomodo.

Adilson_Web_2007 · Agosto 9, 2007

Então ó script funciona diretinho.

Me tira uma duvida eu tenho duas busca no mesmo formulario. Quando eu chamo a busca 2 a busca 1 some, teria como fazer a busca 2 e a busca 1 permanecer? por favor. Desde já eu agradeço.

Segue o código.

<%@LANGUAGE="VBSCRIPT"%><%Option explicit%><!--#Include file="conexao/oracle.inc"--><%response.expires=0	dim conexaoDataBase,ConnString,sqlTabela,rsTabela,button%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Listar Cliente</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="listar.asp" method="post" name="busca"><table border="0" align="center" width="100%"><tr><td><div align="right">Buscar</div></td><td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td></tr><%if request.form("busca") <> "" then			button=request.form("busca")	Call abreConexao	sqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' "	set rsTabela = conexaoDataBase.execute(sqlTabela)		if not rsTabela.eof then		%>			<tr>		  <td><div align="right">Cliente</div></td> 			<td><%= rsTabela("razao_social")%></td> 					<%		else		%>		<tr>		  <td><div align="right"></div> </</td> 			<td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> 		</tr>				<%	end ifend if%><tr><td><div align="right">Buscar</div></td><td><input name="busca1" type="text" id="busca1" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td></tr><%if request.form("busca1") <> "" then		response.expires=0		button=request.form("busca1")	Call abreConexao	sqlTabela = "Select * From rcr.cliente where razao_social='"&button&"' "	set rsTabela = conexaoDataBase.execute(sqlTabela)		if not rsTabela.eof then		%>			<tr>		  <td><div align="right">Cliente</div></td> 			<td><%= rsTabela("cod_cliente")%></td> 					<%		else		%>		<tr>		  <td><div align="right"></div> </</td> 			<td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> 		</tr>				<%	end ifend if%></table></form></body></html>

Flavio Uccela · Agosto 9, 2007

Só setar outro RS como Recordset que ele não sobrepõe. Ao inves de usar nas duas rsTabela, usa uma rsTabela1 e na outra rsTabela2 =P

Adilson_Web_2007 · Agosto 9, 2007

então eu fiz assim e não deu certo

<%@LANGUAGE="VBSCRIPT"%><%Option explicit%><!--#Include file="conexao/oracle.inc"--><%response.expires=0	dim conexaoDataBase,ConnString,sqlTabela,rsTabela,button,rsTabela1,sqlTabela1%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><title>Listar Cliente</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form action="listar.asp" method="post" name="busca"><table border="0" align="center" width="100%"><tr><td><div align="right">Buscar</div></td><td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td></tr><%if request.form("busca") <> "" then			button=request.form("busca")	Call abreConexao	sqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' "	set rsTabela = conexaoDataBase.execute(sqlTabela)		if not rsTabela.eof then		%>			<tr>		  <td><div align="right">Cliente</div></td> 			<td><%= rsTabela("razao_social")%></td> 					<%		else		%>		<tr>		  <td><div align="right"></div> </</td> 			<td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> 		</tr>				<%	end ifend if%></form><form action="listar.asp" method="post" name="busca12"><tr><td><div align="right">Buscar</div></td><td><input name="busca12" type="text" id="busca1" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td></tr><%if request.form("busca12") <> "" then		response.expires=0		button=request.form("busca12")	Call abreConexao	sqlTabela1 = "Select * From rcr.cliente where razao_social='"&button&"' "	set rsTabela1 = conexaoDataBase.execute(sqlTabela1)		if not rsTabela1.eof then		%>			<tr>		  <td><div align="right">Cliente</div></td> 			<td><%= rsTabela1("cod_cliente")%></td> 					<%		else		%>		<tr>		  <td><div align="right"></div> </</td> 			<td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> 		</tr>				<%	end ifend if%></table></form></body></html>

jrcardozo · Agosto 10, 2007

você deve passar o parametro novamente no post do segundo form

coloque isso fora do IF

button=request.form("busca")

e isso no segundo form

<form action="listar.asp" method="post" name="busca12"><input name="busca" type="hidden" value="<%=button%>">

entendendo....

sempre que carregar a página vai colocar na variavel button o valor do text, esse valor será colocado também no input hidden do segundo form. Ao submeter o segundo form estará passando novamente o value do input name=busca(que é o mesmo name do input text do primeiro form)

com isso você mantém os parametros desejados

Adilson_Web_2007 · Agosto 10, 2007

CARA VALEU funcionou perfeitamente. muito obrigado . nossa loco isaaaaaaaaaaaaaaaaaaaaa.

Arquivado

Como eu faço uma busca em asp e retorne a busca na mesma página

Recommended Posts

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Flavio Uccela 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante