Ir para conteúdo

POWERED BY:

Arquivado

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

FGC

Consulta Combo

Por , em ASP Clássico

Recommended Posts

FGC    0

FGC
Postado

Boa Noite

 

Estou com pequeno problema em uma consulta que é o seguinte ao executar a consulta ele esta enviando alguns numero junto da consulta exemplo se procurar AABB ele retorna :

 

/teste.asp?search=11%7CAABB&submit=busca

 

Sendo que o correto seria retorna :

 

/teste.asp?search=AABB&submit=busca

 

:thumbsup:

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipefurriel    0

filipefurriel
Postado

Não será que sua variavel enviado esta escrita com acento ou Ç, algo desse tipo? Ou você já tentou resgatar as variaveis na página filha por meio do x=querystring("x"). Verifique, faça um teste, e depois informe. vwl.

Compartilhar este post

Link para o post
Compartilhar em outros sites

FGC    0

FGC
Postado

OLá ,

 

Estou postando o código completo ...

 

<%

Dim strURL     

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  

Dim strSQL    
Dim strSearch  
inicio = Timer

'#Fun��o que tira todos os acentos das palavras
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento) 
 Letra = mid(StrAcento, i, 1)
 Select Case Letra
  Case "�","�","�","�","�","�","�","�","�","�","�"
  Letra = "A"
  Case "�","�","�","�","�","�","�","�"
  Letra = "E"
  Case "�","�","�","�","�","�"
  Letra = "I"
  Case "�","�","�","�","�","�","�","�","�","�"
  Letra = "O"
  Case "�","�","�","�","�","�","�","�","�"
  Letra = "U"
  Case "�","�"
  Letra = "C"
  Case "�"
  Letra = "N"
 End Select
 texto = texto & Letra
next
TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

<%  
if request.queryString("at")= "" then

db = Server.MapPath("noticias.mdb")
Set cnn = Server.CreateObject("adodb.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";"

SQL="SELECT * FROM Horarios ORDER by Equipe"
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
%><title>:.Gestor de Liga :. </title>
<body bgcolor="#FFFFFF">
<link href="estilos.css" rel="stylesheet" type="text/css" />


<table width="141" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">
 <tr>
   <td bgcolor="#FFFFFF" width="812">
   <table width="738" border="0" cellpadding="2" style="border-collapse: collapse" height="1">
<tr>
         <td bgcolor="#FFFFFF" height="4" colspan="2" width="890">
           <p align="center">
           <b>
                     <font face="Tahoma" style="font-size: 12pt">
                     <img border="0" src="tp_equipes.jpg" align="left"></font></b></td>
       </tr>            
<tr>
         <td bgcolor="#FFFFFF" valign="middle" height="1" width="569">
           <form action="<%= strURL %>" method="get">
             <div align="left"> 
               <b><font face="Arial" style="font-size: 8pt">  Informe a 
               equipe </font>
               </b> 
               <span style="font-size: 8pt"> 
               <font face="Arial" color="#008000">
                <br>
               </font>
               </span>
				<select name="search" 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><font face="Arial" color="#008000"><input name="submit" type="submit" value="busca" style="font-size: 8 pt; font-weight: bold; background-color: #1D2447; color:#FFFFFF; background-image:url('fundo.jpg')" /><span style="font-size: 8pt">
               </span></font>
             </div>
           </form>
           <p align="center"> 
               <font face="Arial" style="font-size: 8pt"> 
               <%
If strSearch <> "" Then

      	strDBPath = Server.MapPath("Noticias.mdb")

Const adUseClient = 3

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT Equipe, Bairro,Cidade,id " _
	& "FROM Horarios " _
	& "WHERE Equipe LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
	& "OR Bairro LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
	& "ORDER BY Equipe;"

Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount



%> </font>
           </p></td>
         <td bgcolor="#FFFFFF" valign="top" height="1" width="317">
           <p align="center">
           <font face="Arial" style="font-size: 8pt"><a title="Imprimir" href="a">
           <script language="JavaScript1.2">
<!--
function DoPrinting(){
if (!window.print){
alert("Use o Netscape  ou Internet Explorer \n nas vers�es 4.0 ou superior!")
return
}
window.print()
}
//-->
           </script>
           </a>
           </font></td>
       </tr>
     </table>
     <p align="left">
       <font face="Century Gothic" style="font-size: 8pt"><b>                                                                        <font color="#6E9F4D">         </font><font color="#1D2447">       ( Foram encontradas <%=intContador%> 
       ocorr�ncias )</font></b></font></p>
     <div align="center" style="width: 502; height: 246"> 
       <table width="759" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr> 
           <th width="39" bgcolor="#1D2447" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0"><strong>
           <font face="Arial" style="font-size: 8pt" color="#FFFFFF">Cod</font></strong></th>
           <th width="235" bgcolor="#1D2447" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0">
           <strong><font face="Arial" style="font-size: 8pt" color="#FFFFFF">
           Equipe</font></strong></th>
           <th width="211" bgcolor="#1D2447" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0">
           <strong><font face="Arial" style="font-size: 8pt" color="#FFFFFF">
           Bairro</font></strong></th>
           <th width="211" bgcolor="#1D2447" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0">
           <strong><font face="Arial" style="font-size: 8pt" color="#FFFFFF">
           Cidade</font></strong></th>
           <th width="15" bgcolor="#1D2447" align="left" style="border-bottom-style: none; border-bottom-width: medium">
           <font face="Arial" style="font-size: 8pt" color="#FFFFFF">
           Deletar</font></th>
           <th width="15" bgcolor="#1D2447" align="left" style="border-bottom-style: none; border-bottom-width: medium">
           <font face="Arial" style="font-size: 8pt" color="#FFFFFF">
           Editar</font></th>
           <th width="1" bgcolor="#FFFFFF" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0"> </th>
         </tr>


         <%

Do While Not rstSearch.EOF
	%><font face="Century Gothic" style="font-size: 8pt"> </font>
         <tr>
         <%

         	id = Trim(rstSearch.Fields("id"))
             	Response.Write "<TR style='cursor=hand;' id="& id&" onclick=""consultarClick('"&id&"')""; class='"&fundo&"' "
	Response.Write " onmouseover=""this.className='inputMouse';"" "
	Response.Write " onmouseout=""this.className='"&fundo&"';"">"
	%><font face="Century Gothic" style="font-size: 8pt"> </font> 
           <td width="39" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#EBEBEB"><font size="1" face="Arial"><%= rstSearch.Fields("id").Value %></font></td>
           <td width="235" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#EBEBEB"><font size="1" face="Arial"><%= rstSearch.Fields("Equipe").Value %></font></td>
           <td width="211" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#EBEBEB"><font size="1" face="Arial"><%= rstSearch.Fields("Bairro").Value %></font></td>
           <td width="211" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#EBEBEB"><font size="1" face="Arial"><%= rstSearch.Fields("Cidade").Value %></font></td>
           <td bgcolor="#EBEBEB" width="15" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D">
             <p align="center">
             <a href="deletaequipe.asp?id=<%=id%>">
             <img border="0" src="excluir.gif"></a></td>
           <td bgcolor="#EBEBEB" width="15" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D">
             <p align="center">
             <a href="altera_equipes.asp?acao=V&id=<%=id%>">
             <img border="0" src="edita.gif"></a></td>
           <td width="1" align="left" style="border-style: none; border-width: medium; " bordercolor="#6E9F4D">
              </td>
         </tr>
         <%

	rstSearch.MoveNext
Loop
%><font face="Century Gothic" style="font-size: 8pt"> </font>
       </table>
       <p align="left"> <p align="left"><b>
       <font face="Century Gothic" style="font-size: 8pt" color="#1D2447">Sua busca foi processada em 
       <%response.write FormatNumber( Timer - inicio, 2 )%>
       segundos.</font><font face="Century Gothic" style="font-size: 8pt" color="#6E9F4D"><br>
       </font></b>
       <font face="Century Gothic" style="font-size: 8pt">

 

Valeu!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

use o Trim antes de recuperar a variavel

 

search = Trim(search)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

depois da função tiraacento

 

<%

Dim strURL     

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  

Dim strSQL    
Dim strSearch  
inicio = Timer

'#Fun��o que tira todos os acentos das palavras
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento) 
 Letra = mid(StrAcento, i, 1)
 Select Case Letra
  Case "�","�","�","�","�","�","�","�","�","�","�"
  Letra = "A"
  Case "�","�","�","�","�","�","�","�"
  Letra = "E"
  Case "�","�","�","�","�","�"
  Letra = "I"
  Case "�","�","�","�","�","�","�","�","�","�"
  Letra = "O"
  Case "�","�","�","�","�","�","�","�","�"
  Letra = "U"
  Case "�","�"
  Letra = "C"
  Case "�"
  Letra = "N"
 End Select
 texto = texto & Letra
next
TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

[b]strSearch = Trim(Request.QueryString("search"))     <<<-------------------------- AQUI[/b]

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim

strSearch = Trim(Request.QueryString("search"))
response.write(strSearch)
response.end()

 

só para ver o que esta sendo passado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

FGC    0

FGC
Postado

xanburzum'

 

 

Ficou assim :

 

strURL = Request.ServerVariables("URL")
strSearch = Trim(Request.QueryString("search"))
response.write(strSearch)
response.end()

 

Agora não mostra nada a pagina em branco..

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

aparentemente não esta sendo passado nada do form para strSearch

Compartilhar este post

Link para o post
Compartilhar em outros sites

FGC    0

FGC
Postado

xanburzum,

 

Consegiu resolver na verdade ele estava passando o nme e o id para a consulta , agora outra duvida ao realizar a busca se eu tiver exemplo: SÃO PAULO e SÃO FRANCISCO no banco ele traz os 2 nomes no resultado da busca , como fazer pra ao seleciona na Combo somente buscar o São Paulo ??

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

use o operador like do SLQ 

='%"&var&"%'

 

Pesquisando Dados

 

Para efetuar a busca nos registro da BD,onde através de um form com input type text onde o user entra com pesquisa que será submetida para o pesquisa_action.asp,fazendo a SQL, nesta aplicação darei um request da varmsgeof ,que irá retornar no caso de erro no action fazendo um if e mostrando um window.open.Usamos o operador LIKE ,que é usado em uma cláusula WHERE para procurar um determinado padrão em uma coluna.

 

Sintaxe SQL LIKE

 

SELECT column_name(s)

FROM table_name

WHERE column_name LIKE pattern

 

exemplo:

 

SQL=”SELECT * FROM login WHERE login LIKE ‘%”&VARPESQUISA&”%’ ORDER BY login”

Compartilhar este post

Link para o post
Compartilhar em outros sites

FGC    0

FGC
Postado

xanburzum

 

Mas para usar essa minha mesma estrutura eu consigo adptar ou terei q criar uma nova consulta ?

 

obgdo

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