Ir para conteúdo

POWERED BY:

Arquivado

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

gudamatto

Access & asp

Por , em ASP Clássico

Recommended Posts

gudamatto    0

gudamatto
Postado

Bom galera naum sei se eh areacerta para posta tipo de duvida desculpem sounovo no forum espero estar me acostumando bomminha seguinte duvida surgiu com um amigo qndele programava uma pagina de consultas e abusca soh encontrava registros se preenchidostodos os campos da busca como faço para liberarfazer com que encontre com apenas as informaçoesselecionadas ... tipo minino uma informação voupostar oh codigo da minha pagina enteira lembrandoasp banco de dados access qlq duvida ou se esquecide fala alguma coiza da toque ..... eh uma busca em catergorias e corele soh encontra se selecionar as duas ...

Pagina menuesq.asp(onde fica as opções para pesquiza)<%<%sql_categ = "SELECT DISTINCT categoria FROM imoveis"sql_tipo = "SELECT DISTINCT tipo FROM imoveis"sql_local = "SELECT DISTINCT bairro FROM imoveis"Set exe_categ = banco.execute(sql_categ)Set exe_tipo = banco.execute(sql_tipo)Set exe_local = banco.execute(sql_local)%><head><title></title></head><body topmargin="0" leftmargin="0"><table width="159" height="185" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" bgcolor="#98BADC" height="185"><table width="168" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#98BADC"><img border="0" src="images/default_r14_c3.gif"></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#AEC9E3"> </td> </tr> <tr> <td bgcolor="#6699CC"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <form action="resultados.asp" method="post"> <tr> <td height="28" align="center" bgcolor="#AEC9E3"> <font color="#FFFFFF">Interessado Em:</font><p><select name="f_local" size="1" class="formindex" id="f_local" style="font-family: Arial; font-size: 11"> <option selected>Informe a Cidade</option> <%WHILE NOT exe_local.eof%> <%Response.Write "<option>"& exe_local("bairro") &"</option>" exe_local.MOVENEXT : WEND%> </select></td> </tr> <tr> <td height="28" align="center" bgcolor="#AEC9E3"><select name="f_categoria" size="1" class="formindex" id="f_categoria" style="font-family: Arial; font-size: 11"> <option selected>Informe a Categoria</option> <%WHILE NOT exe_categ.eof%> <%Response.Write "<option>"& exe_categ("categoria") &"</option>" exe_categ.MOVENEXT : WEND%> </select></td> </tr> <tr> <td height="28" align="center" bgcolor="#AEC9E3"><select name="f_tipo" size="1" class="formindex" id="f_tipo" style="font-family: Arial; font-size: 11"> <option selected>Interessado em </option> <%WHILE NOT exe_tipo.eof%> <%Response.Write "<option>"& exe_tipo("tipo") &"</option>" exe_tipo.MOVENEXT : WEND%> </select></td> </tr> <tr> <td bgcolor="#AEC9E3"><div align="center"> <input type="submit" value="Processar" name="B1" class="ft8" style="font-family: Arial; font-size: 11 px"> </div><div align="center">  </div></td> </tr> </form> </table> </td> </tr> </table></td> </tr> </table> </td> </tr></table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

na página resultados.asp tem que ter o código que realiza a busca, nessa página é que você deve verificar se foram selecionados os campos desejados

localize nessa página o trecho da busca e pote o código para darmos continuidade

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

veja se resolve:

troque

sql = "SELECT * FROM imoveis WHERE categoria = '"& var_categoria &"' AND tipo = '"& var_tipo &"' AND bairro = '"& var_local &"'"exe.Open sql, banco, , , adCmdText
por

sql = "SELECT * FROM imoveis WHERE categoria = '"& var_categoria &"' OR tipo = '"& var_tipo &"' OR bairro = '"& var_local &"'"exe.Open sql, banco, , , adCmdText

Compartilhar este post

Link para o post
Compartilhar em outros sites

gudamatto    0

gudamatto
Postado

hehehe entaum .... mais daedah seguinte erro qnd mando pesquizar :

Script error detected at line 918. Source line: If exe("edificio") = "" then Response.Write "--" Else Response.Write exe("edificio") End If Description: Tipos incompatíveis: 'Response.Write'

naum se se ajuda mais na pagina resultados tah assim :

<td><div align="left"></div> <%=fonte01%> <%If exe("edificio") = "" then Response.Write "--" Else Response.Write exe("edificio") End If%> </td>

Compartilhar este post

Link para o post
Compartilhar em outros sites

gudamatto    0

gudamatto
Postado

tentei algumas substituições comodeixa ele igual aos outros :

<td><div align="left"></div><%=fonte01%><%=exe("edificio")%></div></td>
mais naum adiantou deu outro tipo de erro :

Script error detected at line 927. Source line: Response.Write exe("suite") Description: Tipos incompatíveis: 'Response.Write'

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Ve se fununcia:

sql = "SELECT * FROM imoveis WHERE categoria LIKE '"& var_categoria &"' OR tipo = '"& var_tipo &"' OR bairro = '"& var_local &"'" exe.Open sql, banco, , , adCmdText
FLW!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

gudamatto    0

gudamatto
Postado

hehehehe ae tamu kse lahse deixo oh codigo com os OR & LIKEconforme o ultimo enviado pelo amigo Newusernaum adianta o erro muda agora para :

Script error detected at line 931. Source line: Response.Write exe("suite") Description: Tipos incompatíveis: 'Response.Write'

Porem no banco de dados existem imoveiscadastrados que não tem suite entaum se vou ateh lah e preencho de todos os imoveis o campo suitea busca funcina perfeita como eu quero ...!Lembrando que o campo suite de todos imoveispresciza estar preenchido ....! como faço praque não dê erro qnd naum tiver nada preenchido em suites ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Colca assim:

sql = "SELECT * FROM imoveis WHERE categoria LIKE'"& var_categoria &"' OR tipo LIKE'"& var_tipo &"' OR bairro LIKE'"& var_local &"'"exe.Open sql, banco, , , adCmdTextif exe.eof then		response.write "<center><table width='950' border='0' cellspacing='0' cellpadding='0' bgcolor='#ffffff'><tr><td class='Title2'><img name='logo' src='imagens/logo.jpg' width='250' height='110' border='0' id='logo'> <p class='left2'><a href='javascript:history.back(1)'>voltar</a></p><b>Nenhum cadastro encontrado<br> com estas características.<br>Evite usar palavras com acentos e palavras com muitos caracteres.</b></td></tr></table></center>"	else

'Coloque aqui o resultado da busca com o LOOP

[/code]

Creio que va rodar!

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