3 replies to this topic

[webteske]

Aew..

não to conseguindo fazer uma Po**a de uma busca avançada...
tenho q pegar em qlqr campo e qlqr tabela..e trazer o resultado... exato.
alguem tem ideia?

[Luis Otávio]

como está ficando o que vc ja começou? fica mais facil te ajudar, do que fazer do zero...

[webteske]

a ideia inicial era a seguinte

<% 
	Palavra1 = Request.Form("Palavra1")
	Palavra2 = Request.Form("Palavra2")
	Palavra3 = Request.Form("Palavra3")
%>

com o select assim

"SELECT * FROM " & Palavra1 & " WHERE " & Palavra2 & " LIKE" & Palavra3 & ""

mas vi q nao vai da rock, pq como irei mostrar o resultado disso

[Luis Otávio]

bem, vamos por partes né... o cara vai ter que selecionar a tabela que ele vai procurar... tipo vc tem as tabelas

veiculos
clientes
empresas

o cara vai ter que selecionar uma das tres para procurar... num tem como procurar sem dizer a tabela...


depois vc pode montar algo assim..

<%
Tabela = Request.Form("Tabela")

for each ValoresCampos in Request.Form
If Request.form(ValoresCampos) = "" Then
Else
Valores = "'"& Replace(Request.form(ValoresCampos),Chr(39),"") &"',"&Valores
End if
next

If Valores = "" then
Response.Redirect request.ServerVariables("HTTP_REFERER")
End if


' Colocando todos os valores em uma variável.
Valores = left(Valores, len(Valores) -1)


' ==================================
'## Pegamos os nomes dos campos.
' ==================================
for each NomesCampos in request.form
If Request.form(NomesCampos) = "" OR NomesCampos = "Tabela" then
Else
Campos = NomesCampos&","&Campos
End IF

next

'## Colocando todos os valores em uma variável.
Campos = left(Campos, len(Campos) -1)



' ==================================
'## Montamos a SQL De busca.
' =================================
NomesCampo = Split(Campos,",")

StrBusca = ""
For i = 0 To Ubound(NomesCampo)

StrBusca = StrBusca & NomesCampo(i) & " Like '%"& Replace(Request.Form(NomesCampo(i)),Chr(39),"") & "%' and "

Next

If Right(Trim(StrStrBusca),"3") = "and" Then StrBusca = Left(Trim(StrBusca),Len(StrBusca) - 5)

'Aqui está montada a SQL da busca
SQL ="SELECT * FROM "& Tabela &" WHERE "&StrUpdate
%>

Eu faria assim...