[Resolvido] Select da Busca

[cintiadel 0]

Fiz o seguinte select para exibir o resultado da busca:

 

myselLoc = "select * from Local where 0=0"
if request("ddlNomeLoc") <> "" then 
   myselLoc = myselLoc & "and idLoc=" & request("ddlNomeLocal")
end if 
if request("ddlTipo") <> "" then 
   myselLoc = myselLoc & "and tipoLoc='" & request("ddlTipo") & "'"
end if 
if request("ddlCategoria") <> "" then 
   myselLoc = myselLoc & " and catLoc='" & request("ddlCategoria") & "'"
end if 
if request("ddlEstado") <> "" then
   myselLoc = myselLoc & " and estLoc='" & request("ddlEstado")& "'"
end if 
if request("txtCidade") <> "" then
   myselLoc = myselLoc & " and cidLoc like '%" & request("txtCidade") & "%'"
end if
if request("txtBairro") <> "" then
   myselLoc = myselLoc & " and bairLoc like '%" & request("txtBairro") & "%'"
end if

Mas quando busco por nome ele está exibindo todos os registros e não apenas o que eu seleciono.

E tem mais uma coisa quando faço a Busca pela Busca Avançada ele tem me exibido o resultado mas pele Busca Rápida não, já verifiquei o código e está idêntico e redireciona para a mesma página, não sei o que pode estar errado.Será que alguém pode me ajudar.

[Mário Monteiro 179]

escreve na tela o resultado da string de consulta e poste aqui

[Morpheus#2005 1]

Posta o codigo todo....da sua pagina de busca....

 

É preciso fazer um Request.Form....buscando as variaveis para que funcione...Ok

[Mário Monteiro 179]

codigo todo geralmente nao é bom

[cintiadel 0]

Posta o codigo todo....da sua pagina de busca....

 

É preciso fazer um Request.Form....buscando as variaveis para que funcione...Ok

 

<!--#include file="Conexao.inc" -->

<% 
rsLoc.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

myselLoc = "select * from Local where 0=0"

if request("ddlNomeLoc") <> "" then 
   myselLoc = myselLoc & "and idLoc=" & request("ddlNomeLocal")
end if 

if request("ddlTipo") <> "" then 
   myselLoc = myselLoc & "and tipoLoc='" & request("ddlTipo") & "'"
end if 

if request("ddlCategoria") <> "" then 
   myselLoc = myselLoc & " and catLoc='" & request("ddlCategoria") & "'"
end if 

if request("ddlEstado") <> "" then
   myselLoc = myselLoc & " and estLoc='" & request("ddlEstado")& "'"
end if 

if request("txtCidade") <> "" then
   myselLoc = myselLoc & " and cidLoc like '%" & request("txtCidade") & "%'"
end if

if request("txtBairro") <> "" then
   myselLoc = myselLoc & " and bairLoc like '%" & request("txtBairro") & "%'"
end if

if request("ckExterna") <> "" then
   myselLoc = myselLoc & " and bairLoc like '%" & request("txtBairro") & "%'"
end if

rsLoc.Open myselLoc,con,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 
'que zero, se é maior que o número total de páginas, etc.
IF rsLoc.EOF then 
   Response.Write "Nenhum Registro Encontrado"
   Response.End 'paramos o programa
ELSE
   'Definindo em qual pagina o visitante está
   IF Request.QueryString("pagina")="" then 
	  intpagina=1 
   ELSE
	  IF cint(Request.QueryString("pagina"))<1 then
		 intpagina=1 
	  ELSE
		 IF cint(Request.QueryString("pagina"))> rsLoc.PageCount then 
			intpagina=RS.PageCount 
		 ELSE
			intpagina=Request.QueryString("pagina")
		 END IF
	  END IF
   END IF
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 
rsLoc.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo 
While intrec < rsLoc.PageSize and not rsLoc.EOF %><BR>

<table width="394" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
	<td width="175">Local:</td>
	<td width="205"><%response.write rsLoc("nomeLoc") & "<BR>"%></td>
  </tr>
  <tr>
	<td>Telefone:</td>
	<td><%response.write rsLoc("dddLoc") & " - " & rsLoc("telLoc") & "<BR>"%></td>
  </tr>
  <tr>
	<td>Endereço:</td>
	<td><%response.write rsLoc("endLoc") & " , " & rsLoc("numLoc") & " , " & rsLoc("compLoc") & "<BR>"%></td>
  </tr>
  <tr>
	<td>Bairro:</td>
	<td><%response.write rsLoc("bairLoc") & "<BR>"%></td>
   </tr>
</table>

<%   rsLoc.MoveNext

   ' Acrescenta +1 ao contador
   intrec=intrec+1 
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF rsLoc.EOF then 
	  response.write " " 
   END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 
IF intpagina > 1 then 
%> 
   <a href="BuscaRes.asp?pagina=<%=intpagina-1%>">Anterior</a> 
<% 
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,rsLoc.PageCount) <> 0 then 
%> 
   <a href="BuscaRes.asp?pagina=<%=intpagina + 1%>">Próxima</a> 
<% 
END IF
%>
<body>

<a href="#" onClick="history.go(-1);"><b>VOLTAR</b></a></b>

escreve na tela o resultado da string de consulta e poste aqui

é isso aqui q você precisa?

BuscaRes.asp?ddlNomeLocal=a&ddlTipo=&txtBairro=&ddlCategoria=&ddlFumante=&ddlEstac=&ddlDias=&txtTicket=&txtCartao=&btnBuscar.x=22&btnBuscar.y=3

[Mário Monteiro 179]

nao

 

deum

 

response.write(myselLoc)

response.end

 

antes de executar o RS

 

e poste aqui o que aparecer

[cintiadel 0]

nao

 

deum

 

response.write(myselLoc)

response.end

 

antes de executar o RS

 

e poste aqui o que aparecer

select * from Local where 0=0and tipoLoc='Bar' and catLoc='Doceria'

Ele nao ta pegando o nome

[Mário Monteiro 179]

esse é o ponto que queria chegar

 

o nome do campo é mesmo ddlNomeLoc?

[cintiadel 0]

esse é o ponto que queria chegar

 

o nome do campo é mesmo ddlNomeLoc?

no form é ddlNomeLocal e no banco é nomeLoc

[Mário Monteiro 179]

mas veja se esta realmente vindo vazio o campo

[cintiadel 0]

mas veja se esta realmente vindo vazio o campo

select * from Local where 0=0and nomeLoc=a

agora ele esta pegando o valor certo

 

mas ta dando esse erro

Microsoft OLE DB Provider for SQL Server erro '80040e14'

 

Invalid column name 'a'.

 

/asp/BuscaRes.asp, line 58

[Mário Monteiro 179]

tem qeu colocar entre aspas

[cintiadel 0]

tem qeu colocar entre aspas

 

mas ja esta

myselLoc = "select * from Local where 0=0"

 

if request("ddlNomeLocal") <> "" then

myselLoc = myselLoc & "and nomeLoc=" & request("ddlNomeLocal")

end if

[Mário Monteiro 179]

aqui

 

myselLoc = myselLoc & "and nomeLoc=" & request("ddlNomeLocal")

 

tem qeu ter aspas no valor

 

myselLoc = myselLoc & "and nomeLoc='" & request("ddlNomeLocal") & "'"

[cintiadel 0]

aqui

 

myselLoc = myselLoc & "and nomeLoc=" & request("ddlNomeLocal")

 

tem qeu ter aspas no valor

 

myselLoc = myselLoc & "and nomeLoc='" & request("ddlNomeLocal") & "'"

eu refiz e acabou funcionando muito obrigada

[Mário Monteiro 179]

Parabnes pela solução