Ir para conteúdo

POWERED BY:

Arquivado

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

valdir calixto

Buscas com filtragem

Recommended Posts

Estou fazendo uma busca, no qual na minha tabela eu tenho um campo chamado observacao este campo pode receber diversos valores ex: MANTIDO, PROCON, JUIZADO, ACORDO, 1º PARCELA.

 

Na minha busca eu quero q ele apresente para mim os clientes com vencimento xxxx, mas que não aparecem aquelas que tem a observacao "PROCON, JUIZADO". No código abaixo ele vem com todos os clientes ou seja não faz uma filtragem.

 

 

<% Option Explicit %><head><title></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#F8BF6B" link="#000000" vlink="#000000" alink="#000000"><form name="form" method="post" action="buscavencimento.asp"><table width="387" border="0" align="center" cellpadding="0" cellspacing="0"><tr> <td width="148"><font color="#000099"><strong>Digite o Vencimento</strong></font></td><td width="239"><input type="text" name="nome" size="25"></td></tr><tr> <td> </td><td> </td></tr><tr> <td colspan="2"> <div align="center"><input type="submit" name="btBuscar" value="Buscar"></div></td></tr></table></form><hr size="1"><table width="720" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333"><tr><td width="50"><%Dim strSQL, oConn, rs, varBuscavarBusca = Request.Form("nome")If varBusca <> "" Then'monta a sqlstrSQL = "SELECT * FROM search WHERE Vencimento LIKE '%" & varBusca & "%' ORDER BY Ncto"'abre a oConnCall abre_oConn'executa a instrução SQLSet rs = oConn.Execute(strSQL)If rs.EOF And rs.BOF ThenResponse.Write "<script>alert('Nenhum cliente encontrado.');</script>"Response.EndElseResponse.Write ("<b>CTO</b></td><td width=700><b>Razão Social</b></td><td width=120><b>Vencimento</b></td><td width=100><b>Valor</b></td><td width=200><b>Observação<b></td><br><br>")While Not rs.EOF%></tr><tr><td><% Response.Write ("<a href='alterar2novo.asp?id_cliente="& rs("ID") & "'"">" & rs("Ncto") & "</a></td><td width=700> " & rs("Razaosocial") & "</td><td width=120>" & rs("Vencimento") & "</td><td>" & rs("Valor") & "</td><td align=center width=200> " & rs("Observacao") & "</td>")rs.MoveNextWendEnd Ifrs.CloseCall fecha_oConnSet rs = NothingEnd If%></tr></table><p><input type="button" name="Submit" value="Imprimir" Onclick="window.print('taglibs.txt')"></p></body></html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

ñ é melhor assim ñ cara?

 

strSQL = "SELECT * FROM search WHERE Vencimento = '" & varBusca & "' ORDER BY Ncto"

Mais se for data ñ é o ideal fazer isso ñ cara!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.