Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

Busca vindo errado

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Pessoal!

 

Estou fazendo uma busca simples, mas estou notando que ao buscar por exemplo pelo código ID = 1, ele está me trazendo também os 111,112,151 e por aí vai, todos os que tem o ID com 1, também traz.

 

Oque queria é que apenas viesse o que digitei, por exemplo o ID = 1

 

Tem como mudar esta minha programação abaixo????

 

<% IDHELP = Replace(Trim(Request.QueryString("pesquisar")),"'","") PagAtual = Request.QueryString("paginacao") MaxREG = 25 SQL = "SELECT * FROM HELP WHERE (Codigo LIKE '%" & ID & "%') ORDER BY Codigo DESC" SET RSAjuda = Server.CreateObject("ADODB.Recordset")   	 RSAjuda.CursorType = 3	 RSAjuda.CacheSize = MaxREG	 RSAjuda.PageSize = MaxREG	 RSAjuda.Open SQL, CX  IF RSAjuda.BOF AND RSAjuda.EOF THEN %>

 

Apenas coloquei a parte principal do código, me falem por gentileza oque posso fazer acima, para fazer oque desejo.

 

 

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

evite usar o like no sql, isso diminui a performace e neste caso é totalmente inadequado

 

ASP
SQL = "SELECT * FROM HELP WHERE (Codigo ='" & ID & "') ORDER BY Codigo DESC"

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Ok, jonathan!

 

É porque esta instrução de busca tinha conseguido por aí, e portanto não sabia disto. ok

Mas me diga uma outra coisa, e se eu quiser pesquisar mais coisas além do Codigo ='" & ID & "', tipo: Descricao, e etc...

Como posso acrescentar mais alí no código acima????

 

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Jonathan!

 

Agora fui testar com o código que me passou e me deu este erro, veja:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'

 

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/help.asp, line 59

Esta linha é a parte do SQL

 

 

Segue meu código completo para paginação de dados, que antes funcionava antes sem colocar o seu código no SELECT, mas só que funcionava trazendo todos os registros que continham o ID 1, 111, e etc....

<HTML><HEAD><link href="css.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {	color: #CC0000;	font-weight: bold;}.style2 {color: #0066CC}.style3 {	color: #CC3300;	font-weight: bold;}--></style><BODY bgcolor="#FFFFFF"><table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <tr>	<td height="23" valign="middle"> </td>  </tr>  <tr>	<td width="100%" valign="top"><table width="90%" border="0" align="center" cellpadding="2" cellspacing="2">		<tr>		  <td><table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="PRODBORDA"><tr> 	<td width="208%" colspan="4"> <% IDHELP = Replace(Trim(Request.QueryString("pesquisar")),"'","") PagAtual = Request.QueryString("paginacao") MaxREG = 25 SQL = "SELECT * FROM HELP WHERE (Codigo ='" & IDHELP & "') ORDER BY Codigo DESC" SET RSAjuda = Server.CreateObject("ADODB.Recordset")   	 RSAjuda.CursorType = 3	 RSAjuda.CacheSize = MaxREG	 RSAjuda.PageSize = MaxREG	 RSAjuda.Open SQL, CX  IF RSAjuda.BOF AND RSAjuda.EOF THEN %>	  <table width="100%" height="173" border="0" align="center" cellpadding="2" cellspacing="2">		<tr> 		  <td valign="bottom"> <FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">			<table width="380" height="40" border="0" align="center" bgcolor="#F4F4F4" class="BordaLaranja">			  <tr>				<td width="82"><div align="center"><strong>Buscar:</strong> </div></td>				<td width="138"><div align="left">					<input name="pesquisar" type="text" id="pesquisar">				</div></td>				<td width="126"><input name="submeter_formulario" type="submit" class="BotaoBorda1" id="submeter_formulario" value="Pesquisar"></td>				<td width="16"> </td>			  </tr>			</table>		  </FORM></td>		</tr>	  </table>	  <table width="100%" height="98" border="0" align="center" cellpadding="2" cellspacing="2">		<tr> 		  <td height="14"></td>		</tr>		<tr> 		  <td height="62"><div align="center" class="FonteNoticiasTitulo">Sua busca 			  não encontrou nada para esta procura!</div></td>		</tr>		<tr> 		  <td></td>		</tr>	  </table><%  ELSE IF Request.QueryString("paginacao") = "" THEN	PagAtual = 1		ELSE	PagAtual = Request.QueryString("paginacao") END IF			  RSAjuda.MoveFirst  TotalPages = RSAjuda.PageCount			  RSAjuda.AbsolutePage = PagAtual  %>	  <table width="100%" height="48" border="0" align="center" cellpadding="2" cellspacing="2">		<tr> 		  <td> <FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">			<table width="380" height="40" border="0" align="left" bgcolor="#F4F4F4" class="BordaLaranja">				<tr> 				  <td width="82"> <div align="center"><strong>Buscar:</strong> 					</div></td>				  <td width="138">  					  <div align="left">						<input name="pesquisar" type="text" id="pesquisar">						</div></td>				  <td width="126"> <input name="submeter_formulario" type="submit" class="BotaoBorda1" id="submeter_formulario" value="Pesquisar"></td>				  <td width="16"> </td>				</tr>			  </table>			</FORM></td>		</tr>	  </table>	  <TABLE width="100%" align="center" cellPadding=4 cellSpacing=4>		<TBODY>		  <TR>			<TD width=6% height="30" align=middle valign="middle" bgcolor="#000000"><div align="center" class="FonteNoticiasTextoBold_B style3">Código</div></TD>			<TD width="69%" vAlign=middle bgcolor="#000000"><span class="style2">  <span class="style3">DESCRIÇÃO DA AJUDA</span></span></TD>			<TD width="15%" align="center" vAlign=middle bgcolor="#000000" class="FonteNoticiasTextoBold_B style1">DATA</TD>			</TR>		</TBODY>	  </TABLE>	  <TABLE width="100%" align="center" cellPadding=0 cellSpacing=0>		<TBODY>		  <TR> <% FOR i = 1 TO MaxREG%>			<TD vAlign=top><TABLE width="100%" cellPadding=4 cellSpacing=4 class=BordaCinza>				<TBODY>				  <TR> 					<TD width=6% align=middle valign="middle"> <div align="center" class="FonteNoticiasTitulo3"><%=RSAjuda("Codigo")%></div></TD>					<TD vAlign=top><strong><font color="#CC0000"><%=Ucase(RSAjuda("Nome"))%></font></strong></TD>					<TD width="15%" align="center" vAlign=middle bgcolor="#F4F4F4" class="FormTexto_RED"><%=RSAjuda("Data")%> </TD>					<TD width="10%" align="center" vAlign=middle> 					  <table width="100%" border="0" cellspacing="2" cellpadding="0">						<tr>						  <td height="25"><div align="center"><a href="edita.asp?ajudacod=<%=RSAjuda("Codigo")%>&paginacao=<%=PagAtual%>" target="_parent" class="FonteNoticiasTextoBold_L"><strong><img src="admin_imagens/imagem_administracao_editar.jpg" alt="Editar" width="30" height="30" class="INPUTSemBorda"></strong></a></div></td>						</tr>												<tr>						  <td height="25"><div align="center"><a href="excluir.asp?ajudacod=<%=RSAjuda("Codigo")%>&paginacao=<%=PagAtual%>" target="_parent" class="FonteNoticiasTitulo"><strong><img src="admin_imagens/imagem_administracao_deletar.jpg" alt="Deletar" width="30" height="30" class="INPUTSemBorda"></strong></a></div></td>						</tr>					  </table>					</TD>				  </TR>				</TBODY>			  </TABLE>			  <br></TD>		  </TR>		</TBODY><%	RSAjuda.MoveNext IF RSAjuda.EOF THEN	EXIT FOR	END IF	NEXT%>	  </TABLE>	  <br> 	  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="4">		<tr> 		  <td><div align="right" class="FonteNoticiasTexto"><% Response.Write("Página " & PagAtual & " de " & TotalPages & "<br><br>")    IF TotalPages > 1 THEN%></div></td>		</tr>	  </table>	  <br> <br> 	  <table width="100%" align="center">		<tr> 		  <td align="center"> 			<%IF Cint(PagAtual) > 1 THEN%>			<a href="help.asp?paginacao=<%=PagAtual-1%>" target="frame_centro">Retornar</a> 			   			<% ELSE%>			Retornar   			<%END IF  FOR t=1 TO TotalPages	IF CInt(t) = CInt(PagAtual) THEN %>			<b><%=t%></b> 			<%ELSE%>			<a href="help.asp?paginacao=<%=t%>"><%=t%></a> 			<% END IF  	IF Cint(t) < TotalPages THEN%>			<%END IFNEXT	 IF Cint(PagAtual) < TotalPages THEN%>			   <a href="help.asp?paginacao=<%=PagAtual+1%>" target="frame_centro">Avançar</a> 			   			<%ELSE%>   Avançar<% END IF%>		  </td>		</tr>		<tr> 		  <td align="center"> </td>		</tr>		<tr>		  <td align="center"> </td>		</tr><%END IF%>	  </table><%END IF%>	</td>  </tr></table><%	 RSAjuda.Close SET RSAjuda = Nothing	 CX.Close SET CX = Nothing%></td>		</tr>	  </table></td>  </tr></table></BODY></HTML>
Veja se consegue me ajudar por gentileza.

Obrigado!

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