Ir para conteúdo

POWERED BY:

Arquivado

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

BOMBA

Como fazer uma Consulta ?

Recommended Posts

Olá amigos , boa noite !!!!!

 

Bom estou tendo uma dúvida chata em como fazer um consulta ( pesquisa ) por parte , ou seja , a consulta de eu faço eu uso uma combo com os campos ( protocolo , número , data ... ) e uma edit pro usuário digitar oq ele quer consultar a respeito da combo. Minha dúvida está ae , para o usuario consultar certo , ele tem q digitar tudo certinho pra achar a consulta, ex: coloco lá protocolo e se eu não digitar o número todo do protocolo ele não acha, ou seja, terei que colocar 0815.123.69.2007 , porem queria apenas colocar : 0815 , dae me dar o resultado com todos os protocolos q comecem com este numero . Tem como isso ????

 

Meu código é este :

 

<% Dim esc,txt, aspas,conexao, sql, dbnavi, corf	 	  esc   = request.Form("txt_escolha")	txt   = request.Form("txt_texto")		aspas = chr(34)  ' Abrindo conexão ---Vset conexao = Server.CreateObject("ADODB.Connection")conexao.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\dados\processo.mdb") & ";UID=admin;PWD=;"	if esc = "titulo" then			sql = "SELECT * FROM processo WHERE "&esc&" like '%"&txt&"%'"		else			'txt   = "'"&txt&"'"			sql = "SELECT * FROM processo  WHERE "&esc&" = '"&txt&"'"		end if'response.Write(sql)set dbnavi = conexao.execute(sql)If dbnavi.Eof Thenresponse.Write("<font color='black'>Sua Consulta <b>( "&esc&"="&txt&" )</b> não obteve resultado(s). Tente novamente </font>"&"<br>"&"<a href='sispro_consulta_enc2.asp'>Voltar</a>")Else%><table width="90%" border="1" align="center" bgcolor="#CCCCCC">  <tr>	<th><strong><font color="#FFFFFF">Número</font></strong></th>	<th><b><font color="#FFFFFF">Título</font></b></th>	<th><b><font color="#FFFFFF">Protocolo</font></b></th>	<th><b><font color="#FFFFFF">Origem</font></b></th>	<th><b><font color="#FFFFFF">Assunto</font></b></th>	<th><b><font color="#FFFFFF">Entrada</font></b></th>	<th><b><font color="#FFFFFF">Empregado</font></b></th>	<th><b><font color="#FFFFFF">Status</font></b></th>	<th><b><font color="#FFFFFF">Prazo</font></b></th>  </tr><b>  <% dbnavi.movefirst	Do while not dbnavi.eof 	if corf="0066CC" then		   corf="FFB56A"   		else 		   corf="0066CC"   	 end if %>  <tr bgcolor="#<%=corf%>">	<td><b style="cursor:hand; text-decoration:underline ">	  <%response.Write("<span OnClick="&aspas&"java script:window.open('sispro_consulta_pop_enc.asp?txt_num=")%>	  <% = dbnavi("numero")%>	  <%response.Write("','SISPRO','scrollbars=yes,width=640,height=480')"&aspas&">")%>	  <% = dbnavi("numero") %>	  <%response.Write("</a>")%>	</b></td>	<td><% = dbnavi("titulo") %></td>	<td><% = dbnavi("protocolo") %></td>	<td><% = dbnavi("origem") %></td>	<td><% = dbnavi("assunto") %></td>	<td><% = (dbnavi("entrada")) %></td>	<td><% = dbnavi("empregado") %></td>	<td><% = dbnavi("status") %></td>	<td><b><b>	  <% dim dtprazo 	dtprazo = (dbnavi("prazo"))	if isnull(dtprazo) then		response.Write("S/ Prazo")		else 		response.Write((dtprazo))		end if	%>	</b></b></td>  </tr>  <% dbnavi.movenextloopresponse.Write("</table>")dbnavi.closeconexao.close End If%></b></table></font></body></html>

 

Queria saber como ficaria isso no código , VALEU AE GALERA , ABRAÇÃO !!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

é so usar o operador like na query que ta no else sql = "SELECT * FROM processo WHERE "&esc&" = '"&txt&"'"...mas se ele ta no else tem alguma intenção ne???bom saindo da programçao asp...pra procurar so o começo do protocolo basta usar sql = "SELECT * FROM processo WHERE "&esc&" like '"&txt&"%'"Espero ter ajudado!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vlw ae ICAP ajudou bastante , só mais uma perguntinha , agora c eu quiser fazer uma busca por parte ex.: protocolo : 0185.123/2007 , dae o usuário vai lá e só quer buscar os protocolos 2007 ou então só os protocolos 123, como posso fazer isso?? Agora é sério só mais uma perguntinha :) , como faço para que o I.E qnd der um erro no página ele me indica qual o erro e qual a linha o erro c encontra?? Não consigo ver o tipo de erro, com isso demoro um tempão pra poder identificar o erro certo , ou seja, leio linha por linha , e vou tentando modificiar oq poderia estar errado , entende??? Ou seja, só sei q está com erro qnd a página não aparece !!!!!Vlw ae kra , Abração !!!!Fui!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara .. Pra achar os Erros, vá em ... Ferramentas/Opcoes/ Avacadas / Navegacaoe desmarca a opcas Mostar msg de Erro http AmigáveisAgora pra pegar so o 2007você pode usar assim ... x = "0185.123/2007"y = RIGHT(x,4)RIGHT ... ele pega da direita para esquerda , 4 caracteres ... entao ... o conteudio de y seria 2007entendeu ?

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.