Ir para conteúdo

POWERED BY:

Arquivado

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

Dom Quixote

sistema de busca simples

Por , em ASP Clássico

Recommended Posts

Robex 171    0

Robex 171
Postado

Eu faço da seguinte forma

 

Crio uma página que possui um form com os dados que poderam ser filtrados...

 

Nome:___________ Categoria:____________

Idade:___________ BUSCAR

 

Abaixo na mesma página eu imprimo o resultado das buscas...

 

 

 

Nome Categoria Idade

Registro 1 Cat 1 Idade 1

Registro 2 Cat 2 Idade 2

Registro 3 Cat 3 Idade 3

 

 

 

 

Exemplo de Codigo!

 

<%if session("login")<>"logado" then response.redirect("../index.asp")%><!-- #include file="../../include/funcao.asp" --> <!-- #include file="../../include/conexao.asp" --><!-- #include file="../topos_html/topo_dados.asp" --><%dim oConn, cachedim rs	set oConn = Server.CreateObject ("ADODB.connection")oConn.open "DSN=CacheLicita"cliente=replace(request("cliente"),"'","''")buscando=lcase(request("buscando"))ordem=request("ordem")if ordem="" then ordem="0" end ifset rs = Server.CreateObject("ADODB.Recordset")cache = "Select * from Licita.cliente where 1=1 "if cliente<>"" then	cache = cache & " and  cliente like upper('%" & cliente & "%')"		cache = cache & " or fantasia like upper('%" & cliente & "%')"	cache = cache & " or  razao like upper('%" & cliente & "%')"end ifcache = cache & " order by " & ordemif buscando="false" then	cliente=""end if	rs.open = oConn.Execute(cache)%><HTML><HEAD><TITLE>3 ALBE ADMIN - Funcionarios</TITLE><META NAME="GENERATOR" CONTENT="Sothink HTML Editor"></HEAD><script language="JavaScript" type="text/JavaScript">	function buscarp(){ 		busca.buscando.value = "true";		busca.action = "clientes.asp"		busca.submit()		}</script> <body link="#191970" vlink="#000080" alink="white" onLoad="java script:document.busca.buscar.focus();"><TABLE BORDER="0" WIDTH="100%" CELLPADDING="0" CELLSPACING="0">	<TR>		<TD>		<TABLE BORDER="0" WIDTH="100%" CELLPADDING="0" CELLSPACING="0">			<form name=busca METHOD="post">				<INPUT TYPE="hidden" NAME="buscando">				<TR>					<TD>Nome:</TD>				</TR>				<TR>					<TD><INPUT TYPE="Text" NAME=cliente value=<%=cliente%>><%space(2)%>						<input TYPE="Submit" name="buscar" VALUE="Buscar" onClick="buscarp()"><%space(2)%>					</TD>				</TR>			</table>			<a HREF="clientes_inclusao.asp?acao=incluir"><img SRC="../images/botoes/btnIncluir.bmp" BORDER="0"><br><br></a>			<TABLE BORDER="0" WIDTH="100%" CELLPADDING="0" CELLSPACING="0">				  <TR BGCOLOR="#000080">					<%cor="#bebebe"%>					<%if (rs.eof) then						response.write "<td><strong><font color='#B5B5B5'><center>Nenhum Cliente encontrado !</font></strong></td>"					  else%>						  <TD><strong><font color="#B5B5B5">ID</font></strong></TD>						  <TD><strong><a href="#" onClick="order(1)"><font color="#B5B5B5">Cliente</font></a></strong></TD>						  <TD><strong><a href="#" onClick="order(2)"><font color="#B5B5B5">U.O.</font></a></strong></TD>						  <TD><strong><a href="#" onClick="order(3)"><font color="#B5B5B5">U.G.O.</font></a></strong></TD>						  						<TD></TD>					  </TR>						<%do while not(rs.eof)%>							<%if cor="#bebebe" then								 cor="#B5B5B5"							  else								   cor="#bebebe"							  end if%>							<TR BGCOLOR="<%=cor%>">								<TD WIDTH="30"><% = rs("id")%></TD>								<TD WIDTH=""><%response.write "<a href='clientes_inclusao.asp?id="&rs("id")&"&acao=alterar'>"%><% = maiuscula(rs("cliente"))%></a></TD>								<TD WIDTH=""><%response.write rs("razao")%></TD>							   	<TD ALIGN="RIGHT"><a HREF='<%="clientes_grava.asp?id="&rs("id")&"&acao=excluir"%>'><img SRC="../images/botoes/btnExcluir.bmp" BORDER="0"></a></TD>							</TR>						<%rs.MoveNext						  loop					end if%>					  			</TABLE>		</TD>	</TR></TABLE></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dom Quixote    0

Dom Quixote
Postado

certo, mas não entendi muuuito bem...Não tem como você me passar um código bem simples, algo como criar um bd para cadastrar as palavras e depois me mostrar quais os códigos que buscam essas palavras..Tipo, cara, nunca fiz isso, gostaria de começar com uma coisa bem simples, manja?abração! :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

vamos dizer que você quer buscar um produto de uma tabela no banco de dados...você tem que criar a pagina de busca e a pagina de resultados.. na pagina de resultados você terá qu criar um loop onde irá mostrar todos os resultados...e na pagina de busca você terá que criar um formulario simples com um campo de texto de nome "busca" (por exemplo)... este formulario ira direcionar para a pagina de resultados...assim, na pagina de resultados você captura o que foi digitado no formulario anterior:busca = Request("busca")e faz um SELECT dando o parametro:SQL = SELECT * FROM produtos WHERE produto LIKE '%"&busca&"%'Set rs_resultados = Conexao.Execute(SQL)assim o loop só mostrará os resultados onde o produto for igual a busca...fica dificil você entender se você nao souber como fazer loop, SELECT, Request etc...mas dai você vai aprendendo aki no forum que depois fica baba!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Filipe_Moraes    15

Filipe_Moraes
Postado

ai cara, beleza?

tu pode usar a base de dados access para começar, depois evolui para mysql e depois sql server, mas como tas a começar, access é o indicado, serve para websites pequenos e medios, a nivel de base de dados.

Vou te dar a logica:

tu cria um formulario, vamos supor que tens uma base de dados chamada "registros" e dentro possui a tabela "usuarios" e dentro desta tabela existe 3 campos, "ID", "nome" e "idade".

No formulario de busca, vamos supor que tu que procurar um usuario com o nome "fulano", então o codigo ficaria assim:

//conexão com a base de dados (access)<%Conn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("registros.mdb") -->set con=server.CreateObject("ADODB.Connection")con.open conn%>

//pronto, ja temos a conexão, agora o formulario:

bom, aqui é melhor você usar um editor, tipo o dreamweaver, criamos facilmente forularios, mas vamos ao codigo:

//bom, aqui temos o nome do formulario, mais o metodo de envio e depois a pagina(busca.asp) que o usuario será direcionado quando clicar em "buscar"<HTML><HEAD><TITLE>Formulario</TITLE></HEAD><BODY><form name="buscador" method="post" action="busca.asp">//vamos criar um campo onde o user insere o nome do usuario que quer procurar:<INPUT type="text" name="nome" value="nome"><INPUT type="button" name="Enviar" value="submit"></form></BODY></HTML>
Agora vamos criar a pagina com o codigo que irá procurar na base de dados o nome do usuario digitado no campo "nome" no formulario acima:

página busca.asp

<%//vamos capturar o nome digitado no campo:nome=request.form("nome")//vamos criar uma instrução que irá procurar na base de dados, na tabela "usuarios", o usuario e criar o objecto RecordSet, para caso o usuario exista, pegamos as informações dele:set rs = Server.CreateObject("ADODB.Recordset")inst = "Select * from usuarios where nome='"&nome"'"//a sintase aqui é o seguinte, ele vai selecionar todos os 3 campos da tabela "usuarios" (id, nome e idade) que esta na base de dados "registros"//aqui vamos trabalhar o resultado retornado, caso não encontre nada, aparece a mensagem "Usuario não encontrado":If rs.EOF thenresponse.write("Usuário não encontrado!")else//caso encontre, mostra as informações atraves do recordsetresponse.write("Foi encontrado o seguinte usuario:")<br>response.write(RS("nome")) / response.write(RS("idade")//vamos encerrar a conexão e o objecto recordset que abrimosconn.closeset conn=nothingrs.closeset rs= nothing%>

bom amigo, isso é uma busca muito simples, ve ai, ha muitos tutoriais bons ai no imasters.

Aqui ta o codigo sem comentarios, pode haver alguns erros, não revisei!!

 

<HTML><HEAD><TITLE>Formulario</TITLE></HEAD><BODY><%Conn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("registros.mdb") -->set con=server.CreateObject("ADODB.Connection")con.open conn%><form name="buscador" method="post" action="busca.asp"><INPUT type="text" name="nome" value="nome"><INPUT type="button" name="Enviar" value="submit"></form></BODY></HTML>

página busca.asp

<%dim nomenome=request.form("nome")set rs = Server.CreateObject("ADODB.Recordset")inst = "Select * from usuarios where nome='"&nome"'"If rs.EOF thenresponse.write("Usuário não encontrado!")elseresponse.write("Foi encontrado o seguinte usuario:")<br>response.write(RS("nome")) / response.write(RS("idade")conn.closeset conn=nothingrs.closeset rs= nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Filipe_Moraes    15

Filipe_Moraes
Postado

ola, a pagina "busca.asp" é chamada qd o user clicar no botão enviar que esta no formulario, ta la em cima explicando no codigo...percebeu??a base de dados você cria com o programa access, ao lado direito (versão 2003) esta uma opção para criar um documento vazio, da o nome de "registros", salva no mesmo directorio da pagina onde tem a conecção com a base de dados, depois procura uma opção se não me engano para criar a tabela no modo estrutura, ai você coloca os nome dos campos, "ID"--> tipo: autonumeração, "Nome"--> tipo: text e "idade"--> number (acho eu), depois salvas a tabela com o nome usuarios.Bom, ja algum tempo que nao trabalho com access, mas ve se isso ajuda!!Vlwwww

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