[Resolvido] Fazer pesquisa a partir de varios campos

gabrielsor · Junho 7, 2010

Salve galera, venho aqui mais uma vez pra pedir uma ajuda...

É o seguinte: tenho um bd com uma tabela chama "cadastro", nela existem os seguintes campos:

- ref

- nota

- instrumento

- empresa

- mes

- ano

- marca

- modelo

- patrimonio

- fabricacao

Tenho uma página em ASP que ao ser carregada, pega todos as informações do banco e exibe na tela, porém quero fazer um form nessa mesma página, que me dê a opção de fazer uma filtragem, só que gostaria de por exemplo, escolher o nome da empresa e a data, ou a data e a fabricação, ou até mesmo ref, nota, marca...enfim, gostaria que a pesquisa desse a possibilidade de escolher qual criterio usar, utilizando todos os campos, ou apenas alguns deles...

Meu problema é que não to conseguindo achar uma lógica pra fazer essa pesquisa, anteriormente eu tinha a pesquisa somente pelo mês e pelo ano, funcionava direitinho, porém to querendo dar um up nessa pesquisa.

Se alguém me der uma luz de como fazer isso...

*Ahhh...o form que eu criei para a pesquisa tem todos os campos como texto exceto mês e ano que eu utilizei combobox...

Vlww galeraa...conto com a ajuda de vcs... :D

xanburzum · Junho 7, 2010

é só você ter no formulário um campo para o user entrar com os dados, recupera o valor e faz a pesquisa,consulta SQL com esse campo, existe um exemplo de código que tem varios tipos de critério, faça uma pesquisa no fórum que vai te ajudar

gabrielsor · Junho 7, 2010

é só você ter no formulário um campo para o user entrar com os dados, recupera o valor e faz a pesquisa,consulta SQL com esse campo, existe um exemplo de código que tem varios tipos de critério, faça uma pesquisa no fórum que vai te ajudar

xanburzum,pesquisei aqui no forum e não achei nada, somente pesquisa com um campo...o que ñ ajudou mtu...

meu problema é que não sei como fazer a seleção do tipo de pesquisa, se vai ser somente pela empresa, se vai ser pela empresa E referencia...eu usaria alguns vááááários IFs, tem jeito mais fácil de fazer?

xanburzum · Junho 7, 2010

olha este exemplo que uso para buscar em um form com opção de "E" "OU" ou palavra "EXATA"

<%
'------------- SEARCH
'******************************************************
'******************************************************

On Error Resume Next



PAGE_SIZE = 20  ' exibir número de resultados


strURL = Request.ServerVariables("URL") ' the URL or Query string



'------------- q = introduzir texto


strSearch = Request.QueryString("q") ' introduzir texto

If strSearch = "" Then

 Server.htmlencode(Trim(Request.Form("q")))

End If


strSearch = Replace(strSearch, "'", "''")


'----------- p = RESULTADO PAGING

IF isnumeric(Request.QueryString("p")) = True OR Request.QueryString("p") = "" THEN
		  If Request.QueryString("p") = ""  OR Request.QueryString("p") < 1 Then
					  iPageCurrent = 1
				  Else
					  iPageCurrent = CInt(Request.QueryString("p"))
					End If

ELSE

iPageCurrent = 1


END IF

p = iPageCurrent



'----------------- t = SELECIONANDO TABELA

IF isnumeric(Request.QueryString("t")) = True OR Request.QueryString("t") = "" THEN


				  If Request.QueryString("t") = ""  OR Request.QueryString("t") < 1 Then
					  searchTable = 1 '1
				  Else

					  searchTable =  1 'CInt(Request.QueryString("t"))

					End If

ELSE

searchTable = 2 '1

END IF


'------------------- m = SEARCH METODO

IF isnumeric(Request.QueryString("m")) = True OR Request.QueryString("m") = "" THEN

				  ' Retrieve m
				  If Request.QueryString("m") = ""  OR Request.QueryString("m") < 1 Then
					  strMethod = 2
				  Else
					  strMethod = CInt(Request.QueryString("m"))
					End If

ELSE

strMethod = 2


END IF



'---------------FORM
%>

				  <form method="get" action="<%= strURL %>">
					<p>
					<input type="radio" name="m" value="1" <% IF strMethod = 1 THEN response.write "checked=""checked""" END IF%> />
						E
						<input type="radio" name="m" value="2" <% IF strMethod = 2 OR strMethod = "" THEN response.write "checked=""checked""" END IF%> />
						OU
						<input type="radio" name="m" value="3" <% IF strMethod = 3 THEN response.write "checked=""checked""" END IF%> />
				   	Exato</p>

					<p><input type="text" class="input3" name="q" value="<%= Trim(strSearch) %>" /></p>

					<p><input type="submit" value="Procura" />
					<br /><br /></p>

				  </form>
				  <%



If strSearch <> "" Then


		Session("strSearch") = strSearch

		IF isnumeric(Request.QueryString("t")) = True OR Request.QueryString("t") = "" THEN

						  ' Retrieve t

						  If Request.QueryString("t") = ""  OR Request.QueryString("t") < 1 Then
							searchTable = 1 '1
						  Else

							searchTable = 1 'CInt(Request.QueryString("t"))

						  End If

		ELSE

		searchTable = 1' 1

		END IF




		' TABLES

		Select Case searchTable

			Case CInt("1")

					dbTable = "tMessages"
					'strDBPath = Server.MapPath("/blogg/blog.mdb")


			Case CInt("2")

					'dbTable = "events"
					'strDBPath = Server.MapPath("")

			Case Else

					dbTable = "tMessages"
					'strDBPath = Server.MapPath("")


		End Select



'------------------ SQL


'SPLIT STRING INTO Arrays 
'FOR E AND or CLÁUSULA SQL


IF searchTable = "1" THEN
IF strMethod < 3 THEN


			If strMethod = 1 Then
			strSplit = Replace(strSearch," "," and ")
			Else
			strSplit = Replace(strSearch," "," or ")
			End If


			colTerms = split(strSplit," and ",-1,1)

			iUpperTerms = UBound(colTerms)

			strWhereClause = ""



			'FIELD CLÁUSULA 

			nr = 0
			Do while nr <= 5

			nr = nr + 1

			searchField = CInt(nr)

			Select Case searchField

				Case CInt("1")

					strTableInClause = "fDate"

				Case CInt("2")

					strTableInClause = "fHeadline"

				Case CInt("3")

					strTableInClause = "fMessage"

				Case CInt("4")

					strTableInClause = "fAuthor"

				Case CInt("5")

					strTableInClause = "fnota"
				
				'Case Else


			End Select


				  For iLoop = LBound(colTerms) to iUpperTerms
					orTerms = split(colTerms(iLoop)," or ",-1,1)
					iUpperOrTerms = UBound(orTerms)
					strWhereClause = strWhereClause & ""

						for iOrLoop = LBound(orTerms) to iUpperOrTerms
								strWhereClause = strWhereClause & strTableInClause & " LIKE '%" & Trim(orTerms(iOrLoop)) & "%' "

							if iOrLoop < iUpperOrTerms then
								strWhereClause = strWhereClause & " OR "
							end if
						next

						strWhereClause = strWhereClause & ""

						if iLoop < iUpperTerms then
								strWhereClause = strWhereClause & " AND "
						end If

				  Next

				  if nr <= 4 then
				  strWhereClause = strWhereClause & " OR "
				  end if

		Loop


ELSE

' METODO 3 FRASE EXATA

strWhereClause = "fDate LIKE '%" & strSearch & "%' OR fHeadline LIKE '%" & strSearch & "%' OR fMessage LIKE '%" & strSearch & "%' OR fAuthor LIKE '%" & strSearch & "%'  OR fnota LIKE '%" & strSearch & "%'"

END IF


strWhereClause2 = "WHERE (" & strWhereClause & ") AND (online = CBool(-1))"

' ORDER BY
strOrderClause = "ORDER BY fdate DESC"



	IF strMethod = 3 THEN

		strSQL = "SELECT * FROM "& dbTable &" "& strWhereClause2 &" "& strOrderClause &";"

	ELSE

		strSQL = "SELECT * FROM "& dbTable &" "& strWhereClause2 &" "& strOrderClause &";"

	END IF


END IF

Response.write strSQL

'---------- END SQL




'--------- CONNECTION OPEN & EXE SQL


	Set myRecSet = Server.CreateObject("ADODB.Recordset")
	myRecSet.PageSize  = PAGE_SIZE
	myRecSet.CacheSize = PAGE_SIZE

	' constantes
	adOpenStatic = 3
	adLockReadOnly = 1
	adCmdText = &H0001


	myRecSet.Open strSQL, sConn, adOpenStatic, adLockReadOnly, adCmdText


	iRecordCount = myRecSet.RecordCount
	iPageCount   = myRecSet.PageCount



			   ' COUNTER

				strCountRecord = iRecordCount

				If iPageCurrent = 1 Then

						  strCount = strCountRecord - iRecordCount + 1

				Else

						strCount = iPageCurrent * PAGE_SIZE - PAGE_SIZE + 1

						'strCountRecord -  + * iPageCurrent

				End If



	If iRecordCount = 0 Then


		%>			<p>Desculpa, sua busca não retornou resultados.<br />
					Sua Busca por - <b><%=strSearch%></b> - não retornou documentos.</p>

				  <%
	Else

		myRecSet.AbsolutePage = iPageCurrent

		If iRecordCount <= PAGE_SIZE then
		toRecord = iRecordCount
		else
		toRecord = strCount + PAGE_SIZE - 1
		End if
		If toRecord => iRecordCount then
				toRecord=  iRecordCount
		End if

		%>

						<p>Mostrando  resultado <%=strCount%> - <%=toRecord%> de <%=iRecordCount %>. Paginas <%= iPageCurrent %> / <%= iPageCount %>. </p>
						<br /><p>
						<%

		If iPageCurrent > 1 Then
			%>
						<a href="<%= strURL %>?m=<%= Server.URLEncode(strMethod) %>&t=<%= Server.URLEncode(searchTable) %>&q=<%= Server.URLEncode(strSearch) %>&p=<%= iPageCurrent - 1 %>" title="Previous">
						‹‹</a>
						<%
		End If


		For I = 1 To iPageCount
			If I = iPageCurrent Then

			%>

						<%= I %>
						<%
			Else
				%>
						<a href="<%= strURL %>?m=<%= Server.URLEncode(strMethod) %>&t=<%= Server.URLEncode(searchTable) %>&q=<%= Server.URLEncode(strSearch) %>&p=<%= I %>" title="<%= I %>"><%= I %></a>
						<%
			End If
		Next 'I

		If iPageCurrent < iPageCount Then
			%>
						<a href="<%= strURL %>?m=<%= Server.URLEncode(strMethod) %>&t=<%= Server.URLEncode(searchTable) %>&q=<%= Server.URLEncode(strSearch) %>&p=<%= iPageCurrent + 1 %>" title="Next"> ››</a>
						<%
		End If
		%></p>

		<%

'----------------RESULTADO LOOP


		Do While Not myRecSet.EOF And myRecSet.AbsolutePage = iPageCurrent


					intNumMatches = 0
					allregText = ""
					regWriteOut = ""

					If strSearch = " " then
						strSearch = ""
					End if

					Set objRegExp = New RegExp
					objRegExp.Global = True
					objRegExp.IgnoreCase = True


					If dbTable = "tMessages" then
					allregText = myRecSet.Fields("fDate").Value & " " & myRecSet.Fields("fHeadline").Value & " " & myRecSet.Fields("fMessage").Value & " " & myRecSet.Fields("fAuthor").Value
					End If


					allregText = Replace(allregText, "<", "", 1, -1, 1)
					allregText = Replace(allregText, ">", "", 1, -1, 1)
					allregText = UTFtoISO(allregText)

					If strMethod = 3 then

					'Definir o padrão de pesquisa para
					objRegExp.Pattern = strSearch

					'Procurar o arquivo para a frase
			 		Set objMatches = objRegExp.Execute(allregText)

					'Obter o número de vezes que a frase é compensada				intNumMatches = objMatches.Count

					End if

					If strMethod < 3 then

					sarySearchWord = Split(strSearch, " ")
					For intSearchLoopCounter = 0 to UBound(sarySearchWord)

					'Definir o padrão de pesquisa para
					objRegExp.Pattern = "" & sarySearchWord(intSearchLoopCounter) & ""

					'Procurar o arquivo para a frase
					Set objMatches = objRegExp.Execute(allregText)

					intNumMatches = intNumMatches + objMatches.Count

					Next
					End if



			 		If intNumMatches => 1 Then

					If intNumMatches > 1 then
					regWriteOut = "" & intNumMatches & " hits."
					Else
					regWriteOut = "" & intNumMatches & " hit."
					End If

			 		End If

					Set objRegExp = Nothing



			%>


					<% IF dbTable = "tMessages" THEN %>
					<p><br /><br />
					<%=strCount%>. <a href="default.asp?id=<%= myRecSet.Fields("id").Value %>" title="<%=myRecSet.Fields("fHeadline").Value%>"><%= myRecSet.Fields("fHeadline").Value %></a>
					<br /><%= RemoveHTML(Left(myRecSet.Fields("fMessage").Value,instrrev(Left(myRecSet.Fields("fMessage").Value,280),"")))%>
					<br />
					Postado: <%= year(myRecSet.Fields("fdate").Value)  & "-" & right("00" & cstr(month(myRecSet.Fields("fdate").Value)),2) & "-" & right("00" & cstr(day(myRecSet.Fields("fdate").Value)),2) & ". " & regWriteOut%>
					</p>
					<% END IF%>


		   <%


						strCount = strCount + 1
			myRecSet.MoveNext
		Loop


'----------------RESULTADO LOOP END
		%>
						<br /><br /><p>
						<%

		If iPageCurrent > 1 Then
			%>
						<a href="<%= strURL %>?m=<%= Server.URLEncode(strMethod) %>&t=<%= Server.URLEncode(searchTable) %>&q=<%= Server.URLEncode(Session("strSearch")) %>&p=<%= iPageCurrent - 1 %>" title="Previous">‹‹</a>
						<%
		End If


		For I = 1 To iPageCount
			If I = iPageCurrent Then
				%>

						<%= I %>
						<%
			Else
				%>
						<a href="<%= strURL %>?m=<%= Server.URLEncode(strMethod) %>&t=<%= Server.URLEncode(searchTable) %>&q=<%= Server.URLEncode(Session("strSearch")) %>&p=<%= I %>" title="<%= I %>"><%= I %></a>
						<%
			End If
		Next 'I

		If iPageCurrent < iPageCount Then
			%>
						<a href="<%= strURL %>?m=<%= Server.URLEncode(strMethod) %>&t=<%= Server.URLEncode(searchTable) %>&q=<%= Server.URLEncode(Session("strSearch")) %>&p=<%= iPageCurrent + 1 %>" title="Next">››</a>
						<%
		End If
		%>

					<%

		End If

%></p>
<%

		' CLOSE 

		myRecSet.Close
		Set myRecSet = Nothing
		End If



'---------------- SEARCH END


'******************************************************
'******************************************************
%>

gabrielsor · Junho 8, 2010

Tópico mais que resolvido...\o/

Vlww pelo código, ajudou muuuuito!!!

Inté a próxima...=D

Entrar

Arquivado

[Resolvido] Fazer pesquisa a partir de varios campos

Recommended Posts

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrielsor 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante