busca por resultado exato

vivi@ne · Dezembro 5, 2006

PRA QUEM PRECISAR DE AJUDA COM UMA BUSCA ASSIM, NO FIM DESTES POSTS ESTÁ O CÓDIGO FUNCIONANDO belezaTo começando e apanhando no ASPFaz alguns dias que to quebrando a cabeça e não consigo fazer aparecer um resultado na busca...Tem que funcionar assim: a pessoa digita um determinado termo e busca dentro de um combo o que se refere esse termo, aí aparecem todas as informações referente aquela linha que tá no bd do access.Tô muito enrolada com isso e o pior é pra ontem...Se alguém souber corrigir o problema me dá uma luz...abaixo estão os códigos HTML e ASPHTML<HTML><HEAD><TITLE>Pesquisa</TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1252"></HEAD><BODY><form action="buscateste.asp" method="post" name="Criterio"> <table width="494" border="1" align="center" bordercolor="#666666"> <tr> <td width="242"> <label>Descrição / Número </label></td> <td width="236"> <center> <input type="text" name="palavra"> </center> </td> </tr> <tr> <td> <label>Procurar por: </label> </td> <td> <center> <select name="Criterio" id="Criterio"> <option value="NumeroMedauto"> Numero Medauto </option> <option value="NumeroOriginal"> Numero Original </option> <option value="Sinonimo"> Sinonimo </option> <option value="NomedoProduto"> Nome do Produto </option> </select> </center> </td> </tr> <tr> <td> <label> <center> <input name="Procurar" type="submit" id="Procurar" value="Procurar"> </center> </label> </td> <td> <label> <center> <input type="reset" name="Reset" value="Limpar"> </center> </label> </td> </tr> </table> <label></label></form></BODY></HTML>ASP<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim Sql If Filtro = "NumeroMedauto" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'" End If If Filtro = "NumeroOriginal" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'" End If If Filtro = "Sinonimo" Then Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'" End If If Filtro = "NomedoProduto" Then Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'" End IfDim WebRs Set WebRs = Server.CreateObject("ADODB.Recordset") WebRs.Open Sql , BdWeb, 3 If WebRs.BOF and WebRs.EOF Then%> <h2 align="center">Nenhuma informação localizada ! </h2> <hr> <center><a href="buscateste1.htm">Retorna</a></center><%Else%> <%If WebRs.BOF Then%> <h2>Resultado da Busca:</h2> <hr> <table BORDER="0" width="100%" cellpadding="3"> <td> <tr><b>Número Medauto :</b> <%=WebRs("NumeroMedauto")%> </tr><tr><b>Número Original :</b> <%=WebRs("NumeroOriginal")%> </tr><tr><b>Sinonimo:</b> <br> <%=WebRs("Sinonimo")%> </tr><tr><b>Nome do Produto:</b> <br> <%=WebRs("NomedoProduto")%> </tr> <hr> <tr> </td> <p><% Do While Not WebRs.EOF %> <%WebRs.MoveNext Loop%> <center><a href="buscateste1.htm">Retorna</a></center> </table><%End If%><%End If%><%WebRs.CloseBdWeb.Close%>URGENTISSIMO!!!!![/size][/b]

CassianoVix · Dezembro 5, 2006

To começando e apanhando no ASPFaz alguns dias que to quebrando a cabeça e não consigo fazer aparecer um resultado na busca...Tem que funcionar assim: a pessoa digita um determinado termo e busca dentro de um combo o que se refere esse termo, aí aparecem todas as informações referente aquela linha que tá no bd do access.Tô muito enrolada com isso e o pior é pra ontem...Se alguém souber corrigir o problema me dá uma luz...abaixo estão os códigos HTML e ASPHTML<HTML><HEAD><TITLE>Pesquisa</TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1252"></HEAD><BODY><form action="buscateste.asp" method="post" name="Criterio"> <table width="494" border="1" align="center" bordercolor="#666666"> <tr> <td width="242"> <label>Descrição / Número </label></td> <td width="236"> <center> <input type="text" name="palavra"> </center> </td> </tr> <tr> <td> <label>Procurar por: </label> </td> <td> <center> <select name="Criterio" id="Criterio"> <option value="NumeroMedauto"> Numero Medauto </option> <option value="NumeroOriginal"> Numero Original </option> <option value="Sinonimo"> Sinonimo </option> <option value="NomedoProduto"> Nome do Produto </option> </select> </center> </td> </tr> <tr> <td> <label> <center> <input name="Procurar" type="submit" id="Procurar" value="Procurar"> </center> </label> </td> <td> <label> <center> <input type="reset" name="Reset" value="Limpar"> </center> </label> </td> </tr> </table> <label></label></form></BODY></HTML>ASP<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim Sql If Filtro = "NumeroMedauto" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'" End If If Filtro = "NumeroOriginal" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'" End If If Filtro = "Sinonimo" Then Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'" End If If Filtro = "NomedoProduto" Then Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'" End IfDim WebRs Set WebRs = Server.CreateObject("ADODB.Recordset") WebRs.Open Sql , BdWeb, 3 If WebRs.BOF and WebRs.EOF Then%> <h2 align="center">Nenhuma informação localizada ! </h2> <hr> <center><a href="buscateste1.htm">Retorna</a></center><%Else%> <%If WebRs.BOF Then%> <h2>Resultado da Busca:</h2> <hr> <table BORDER="0" width="100%" cellpadding="3"> <td> <tr><b>Número Medauto :</b> <%=WebRs("NumeroMedauto")%> </tr><tr><b>Número Original :</b> <%=WebRs("NumeroOriginal")%> </tr><tr><b>Sinonimo:</b> <br> <%=WebRs("Sinonimo")%> </tr><tr><b>Nome do Produto:</b> <br> <%=WebRs("NomedoProduto")%> </tr> <hr> <tr> </td> <p><% Do While Not WebRs.EOF %> <%WebRs.MoveNext Loop%> <center><a href="buscateste1.htm">Retorna</a></center> </table><%End If%><%End If%><%WebRs.CloseBdWeb.Close%>URGENTISSIMO!!!!!

ViviOlhando bem rapidamente, parece que você esqueceu de recuperar o valor digitado no campo "palavra".Faz assim:

Filtro = Cstr(Trim((Request.Form("Criterio"))))Palavra = Request.Form("palavra")

E no seu select troque a palavra filtro por palavra, assim:

Sql = "SELECT * FROM Pesquisa WHERE Campo LIKE '%" & Palavra & "%'"

AbraçosCassiano.

Maux · Dezembro 5, 2006

tira o like dos sqlusa soh = "select * from nome_da_tabela where nome_do_campo = '" & variavel & "'"

vivi@ne · Dezembro 5, 2006

tira o like dos sqlusa soh = "select * from nome_da_tabela where nome_do_campo = '" & variavel & "'"

Fiz tudo o que você mandouAinda não deu certo... apareceu um erroADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /medauto/buscateste.asp, line 44 ** a linha 44 é:43 44 WebRs.Open Sql , BdWeb, 34546 If WebRs.BOF and WebRs.EOF Then%>4748 <h2 align="center">Nenhuma informação localizada ! </h2>o que pode ser agora?

CassianoVix · Dezembro 5, 2006

VivianeIsso que o Maux disse, é pra transformar a busca por parte do texto em uma busca exata.Mas essa não é a causa do erro.Olhe o meu post acima do dele, que eu te dei umas dicas pra resolver o erro.AbraçosCassiano.

vivi@ne · Dezembro 5, 2006

To começando e apanhando no ASPFaz alguns dias que to quebrando a cabeça e não consigo fazer aparecer um resultado na busca...Tem que funcionar assim: a pessoa digita um determinado termo e busca dentro de um combo o que se refere esse termo, aí aparecem todas as informações referente aquela linha que tá no bd do access.Tô muito enrolada com isso e o pior é pra ontem...Se alguém souber corrigir o problema me dá uma luz...abaixo estão os códigos HTML e ASPHTML<HTML><HEAD><TITLE>Pesquisa</TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1252"></HEAD><BODY><form action="buscateste.asp" method="post" name="Criterio"> <table width="494" border="1" align="center" bordercolor="#666666"> <tr> <td width="242"> <label>Descrição / Número </label></td> <td width="236"> <center> <input type="text" name="palavra"> </center> </td> </tr> <tr> <td> <label>Procurar por: </label> </td> <td> <center> <select name="Criterio" id="Criterio"> <option value="NumeroMedauto"> Numero Medauto </option> <option value="NumeroOriginal"> Numero Original </option> <option value="Sinonimo"> Sinonimo </option> <option value="NomedoProduto"> Nome do Produto </option> </select> </center> </td> </tr> <tr> <td> <label> <center> <input name="Procurar" type="submit" id="Procurar" value="Procurar"> </center> </label> </td> <td> <label> <center> <input type="reset" name="Reset" value="Limpar"> </center> </label> </td> </tr> </table> <label></label></form></BODY></HTML>ASP<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim Sql If Filtro = "NumeroMedauto" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'" End If If Filtro = "NumeroOriginal" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'" End If If Filtro = "Sinonimo" Then Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'" End If If Filtro = "NomedoProduto" Then Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'" End IfDim WebRs Set WebRs = Server.CreateObject("ADODB.Recordset") WebRs.Open Sql , BdWeb, 3 If WebRs.BOF and WebRs.EOF Then%> <h2 align="center">Nenhuma informação localizada ! </h2> <hr> <center><a href="buscateste1.htm">Retorna</a></center><%Else%> <%If WebRs.BOF Then%> <h2>Resultado da Busca:</h2> <hr> <table BORDER="0" width="100%" cellpadding="3"> <td> <tr><b>Número Medauto :</b> <%=WebRs("NumeroMedauto")%> </tr><tr><b>Número Original :</b> <%=WebRs("NumeroOriginal")%> </tr><tr><b>Sinonimo:</b> <br> <%=WebRs("Sinonimo")%> </tr><tr><b>Nome do Produto:</b> <br> <%=WebRs("NomedoProduto")%> </tr> <hr> <tr> </td> <p><% Do While Not WebRs.EOF %> <%WebRs.MoveNext Loop%> <center><a href="buscateste1.htm">Retorna</a></center> </table><%End If%><%End If%><%WebRs.CloseBdWeb.Close%>URGENTISSIMO!!!!!
ViviOlhando bem rapidamente, parece que você esqueceu de recuperar o valor digitado no campo "palavra".Faz assim:
Filtro = Cstr(Trim((Request.Form("Criterio"))))Palavra = Request.Form("palavra")
E no seu select troque a palavra filtro por palavra, assim:
Sql = "SELECT * FROM Pesquisa WHERE Campo LIKE '%" & Palavra & "%'"
AbraçosCassiano.

Cassiano, valw a dica mas ainda não deu certo... dessa vez a pg que retorna tá em branco.....dá uma olhada como ficou o cód depos que eu mudei e se tá certo, please http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim PalavraPalavra = Request.Form("palavra")Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim SqlIf Filtro = "NumeroMedauto" ThenSql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & Palavra & "%'"End IfIf Filtro = "NumeroOriginal" ThenSql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" & Palavra & "%'"End IfIf Filtro = "Sinonimo" ThenSql = "SELECT * FROM Pesquisa WHERE Sinonimo  LIKE '%" & Palavra & "%'"End IfIf Filtro = "NomedoProduto" ThenSql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" & Palavra & "%'"End IfDim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")WebRs.Open Sql , BdWeb, 3If WebRs.BOF and WebRs.EOF Then%><h2 align="center">Nenhuma informação localizada ! </h2><hr><center><a href="buscateste1.htm">Retorna</a></center><%Else%><%If WebRs.BOF Then%><h2>Resultado da Busca:</h2><hr><table BORDER="0" width="100%" cellpadding="3"><td><tr><b>Número Medauto :</b><%=WebRs("NumeroMedauto")%> </tr><tr><b>Número Original :</b><%=WebRs("NumeroOriginal")%></tr><tr><b>Sinonimo:</b> <br><%=WebRs("Sinonimo")%></tr><tr><b>Nome do Produto:</b> <br><%=WebRs("NomedoProduto")%></tr><hr><tr></td><p><%Do While Not WebRs.EOF%><%WebRs.MoveNextLoop%><center><a href="buscateste1.htm">Retorna</a></center></table><%End If%><%End If%><%WebRs.CloseBdWeb.Close%>

CassianoVix · Dezembro 5, 2006

Esse código ASP que você postou está em que página?

Na buscateste.asp? Se não for... tem que ser na buscateste.asp (que é a página destino do seu form)

Dei uma arrumada rápida no código que tem que ficar na buscateste.asp pra facilitar o entendimento... Tenta aí...

<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim Filtro, PalavraFiltro = Request.Form("Criterio")Palavra = Request.Form("palavra")Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")	BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim SqlSelect Case Filtro	Case "NumeroMedauto"		Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & Palavra & "%'"	Case "NumeroOriginal"		Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" & Palavra & "%'"	Case "Sinonimo"		Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" & Palavra & "%'"	Case "NomedoProduto"		Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" & Palavra & "%'"End SelectDim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")	WebRs.Open Sql , BdWeb, 3If WebRs.EOF Then%><h2 align="center">Nenhuma informação localizada ! </h2><center><a href="buscateste1.htm">Retorna</a></center><%Else%>	<h2>Resultado da Busca:</h2>	<table BORDER="0" width="100%" cellpadding="3">	<%While Not WebRs.EOF%>	<tr><td><b>Número Medauto :</b><%=WebRs("NumeroMedauto")%> </td></tr>	<tr><td><b>Número Original :</b><%=WebRs("NumeroOriginal")%></td></tr>	<tr><td><b>Sinonimo:</b><%=WebRs("Sinonimo")%></td></tr>	<tr><td><b>Nome do Produto:</b><%=WebRs("NomedoProduto")%></td></tr>	<%WebRs.MoveNext	Loop%>	</table>	<center><a href="buscateste1.htm">Retorna</a></center><%End If%><%	WebRs.CloseSet WebRs = Nothing	BdWeb.CloseSet BdWeb = Nothing%>

Abraços

Cassiano.

vivi@ne · Dezembro 6, 2006

Agora deu certo...depois de mudar muito e com a ajuda de muitos, principalmente o amigo CASSIANO, segue abaixo o código da pg html e da pg asp pra quem quiser usar....

HTML

<HTML><HEAD><TITLE>Pesquisa</TITLE><META http-equiv=Content-Type content="text/html; charset=windows-1252"><script language="JavaScript" type="text/JavaScript"><!--function MM_findObj(n, d) { //v4.01  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {	d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);  if(!x && d.getElementById) x=d.getElementById(n); return x;}function MM_validateForm() { //v4.0  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);	if (val) { nm=val.name; if ((val=val.value)!="") {	  if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');		if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';	  } else if (test!='R') { num = parseFloat(val);		if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';		if (test.indexOf('inRange') != -1) { p=test.indexOf(':');		  min=test.substring(8,p); max=test.substring(p+1);		  if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';	} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' / Descrição / Número.\n'; }  } if (errors) alert('Este campo é obrigatório:\n'+errors);  document.MM_returnValue = (errors == '');}//--></script></HEAD><BODY><form action="resultado_busca.asp" method="post" name="Criterio">  <table width="494" border="1" align="center" bordercolor="#666666">	<tr>	  <td width="242">		<label>Palavra / Descrição / Número		</label></td>	  <td width="236">		<center>		  <input name="Palavra" type="text" onChange="MM_validateForm(' ','','R');return document.MM_returnValue" >		</center>	  </td>	</tr>	<tr>	  <td>		<label>Procurar por: </label>	  </td>	  <td>		<center>		  <select name="Criterio" id="Criterio">			 <option value="NumeroMedauto"> Numero Medauto </option>			<option value="NumeroOriginal"> Numero Original </option>			<option value="Sinonimo"> Sinonimo </option>			<option value="NomedoProduto"> Nome do Produto </option>		  </select>		</center>	  </td>	</tr>	<tr>	  <td>		<label>		<center>		  <input name="Procurar" type="submit" id="Procurar" onClick="MM_validateForm('palavra','','R');return document.MM_returnValue" value="Procurar">		</center>		</label>	  </td>	  <td>		<label>		<center>		  <input type="reset" name="Reset" value="Limpar">		</center>		</label>	  </td>	</tr>  </table>  <label></label></form></BODY></HTML>

ASP

<%@LANGUAGE="VBSCRIPT" %><%Option ExplicitDim FiltroFiltro = Cstr(Trim((Request.Form("Criterio"))))Dim PalavraPalavra = Request.Form("Palavra")Dim BdWebSet BdWeb = Server.CreateObject("ADODB.Connection")BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb")Dim SqlSelect Case Filtro	   Case "NumeroMedauto"		Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" & Palavra & "%'"	Case "NumeroOriginal"		Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" & Palavra & "%'"	Case "Sinonimo"		Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" & Palavra & "%'"	Case "NomedoProduto"		Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" & Palavra & "%'"		End SelectDim WebRsSet WebRs = Server.CreateObject("ADODB.Recordset")WebRs.Open Sql , BdWeb, 3If WebRs.EOF Then%><h2 align="center">Nenhuma informação localizada ! </h2><center><a href="busca.htm">Retorna</a></center><%Else%>	<hr>	<h2>Resultado da Busca:</h2>	<p><table width="79%" height="123" border="1" align="center">  <tr>	<td width="49%" rowspan="4"><b>Foto:</b><%=WebRs("Imagem")%></td>	<td width="51%" height="24"><b>Número Medauto :</b><%=WebRs("NumeroMedauto")%></td>  </tr>  <tr>	<td><b>Número Original :</b><%=WebRs("NumeroOriginal")%></td>  </tr>  <tr>	<td><b>Sinonimo:</b><%=WebRs("Sinonimo")%></td>  </tr>  <tr>	<td><b>Nome do Produto:</b><%=WebRs("NomedoProduto")%></td>  </tr></table><tr><p><%Do While Not WebRs.EOF%><%WebRs.MoveNextLoop%>  <hr>  <tr>	<p>  <center>	  <a href="busca.htm">Retorna</a>	</center>	<%	WebRs.CloseSet WebRs = Nothing	BdWeb.CloseSet BdWeb = NothingEnd If%>

MUITO OBRIGADO A TODOS

Arquivado

busca por resultado exato

Recommended Posts

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

CassianoVix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

CassianoVix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

CassianoVix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vivi@ne 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

comando like (Mysql) no php

mostrar quanto tempo foi postado um conteudo

lendo RSS com PHP mostrando a imagem de preview

Fóruns

Tempo Real

Informação importante