Busca Avançada - Sem filtragem de dados

[Yasmim]

Prezados,

Apesar de revirar a net inteira atrás de uma solução para o meu caso não consegui nada. Estou começando com programação asp e tenho que fazer uma busca avançada para o meu cliente. Essa busca será atraves de uma tabela chamanda produtos e nela tem os seguintes campos que serão pesquisados: Especificação, Segmento, Categoria, Nome e Uso.

O form tem os cinco campos em separado.

Meu código é o que colocarei abaixo. Nele consigo puxar cada filtro(campo) em separado, se eu busco apenas por segmento, vem somente os produtos daquele segmento, até aí ok. Mas se eu peço um determinado segmento e um determinado uso, a pesquisa continua filtrando apenas por um deles e o outro campo vem todos (inclusive os produtos que não são dele). O que estou fazendo de errado no meu codigo?

Segue código:

<%

especifica = Ucase (Request.form("especifica"))

Segmento = Ucase (Request.form("Segmento"))

Uso = Ucase (Request.form("Uso"))

Nome = Ucase (Request.form("Nome"))

Categoria = Ucase (Request.form("Categoria"))

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("dados.mdb")

sqlstmt = "SELECT * FROM Produtos WHERE especifica = '"& especifica & "' OR Segmento = '"& Segmento & "' AND Segmento = '"& Segmento & "' OR Uso = '"& Uso & "' AND Nome = '"& Nome & "' OR Categoria = '"& Categoria & "' "

%>

Como disse, não conheço ainda muito coisa de asp, cheguei à este codigo atraves de alguns posts na net e codigos prontos.

Agradeço desde já o auxilio de todos.

[bareta]

usa IF

sql="select * from tabela where campo="&campo

if nome<>"" then
    sql=sql&" and nome='"&nome&"'"
end if

e assim por diante colocando as condicionais na sql

...

conn.execute(sql)

[Yasmim]

Olá Bareta,

Muito obrigada pelo seu auxilio, desculpe a demora em responder, mas quando li a sua sugestão passei a estudar mais sobre o if, revirei mais uma vez a net, li algumas apostilas e cheguei a montar um esqueminha, mas continua dando erro:

Agora é:

Erro de sintaxe (operador faltando) na expressão de consulta 'Nome = Selecione o Produto AND Uso = Selecione a utilização AND Segmento = Automotivo'.

Segue abaixo o meu código, sei que pode ser algo bem simples de se resolver, mas ainda não entendo muito bem de asp.

<%

Set Conn = Server.CreateObject("ADODB.Connection")

DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtest=dsntest & "DBQ=" & Server.MapPath("dados.mdb")

Conn.Open DSNtest

nome = request.form("nome")

segmento = request.form("segmento")

uso = request.form("uso")

sql = "SELECT * FROM Produtos"

If Nome <> "" and Segmento <> "" then

sql = "SELECT * FROM Produtos WHERE Nome = "& nome &" AND Segmento = "& segmento &""

End If

If Uso <> "" and Segmento <> "" then

sql = "SELECT * FROM Produtos WHERE uso = "& uso &" AND Segmento = "& segmento &""

End If

If nome <> "" and Uso <> "" and Segmento <> "" then

sql = "SELECT * FROM Produtos WHERE Nome = "& nome &" AND Uso = "& Uso &" AND Segmento = "& segmento &""

End If

set rs = conn.execute(sql) Obs.Ele menciona esta linha como erro

%>

Já estou ficando desesperada, pois não consigo entender o que está acontecendo. Pode me ajudar novamente?

muito obrigada.

[Darkdemo]

Faltam apostofres na sua instrucao SQL...

sql = "SELECT * FROM Produtos WHERE Nome = '"& nome &"' AND Segmento = '"& segmento &"'"

Isso indica que você esta buscando Strings....

Att;

[Yasmim]

Valeu Dark,

Fiz o que você falou e até que está pesquisando, mas continua sem filtragem, só busca uma coisa de cada vez.

Estou apanhando feio destes if's.

Muito obrigada a todos!!!!!!!!!!!!

[Darkdemo]

Faça assim:

<%

Set Conn = Server.CreateObject("ADODB.Connection")

DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtest=dsntest & "DBQ=" & Server.MapPath("dados.mdb")

Conn.Open DSNtest

nome = request.form("nome")

segmento = request.form("segmento")

uso = request.form("uso")

sql = "SELECT * FROM Produtos WHERE 1=1"

If Nome <> "" then

sql = " AND nome = '" & Nome & "'"

End If

If Uso <> "" then

sql = " AND uso= '" & Uso & "'"

End If

If Segmento <> "" then

sql = " AND Segmento= '" & Segmento & "'"

End If

set rs = conn.execute(sql) Obs.Ele menciona esta linha como erro

%>

Att;

[bareta]

so da um debug pra ver o q falta

response.write sql
response.end()

'set rs = conn.execute(sql)

ai ve o que sai na tela e fica melhor de corrigir

[Yasmim]

Olá Meninos,

Desculpe a demora em responder.

Olha, coloquei o response.write sql conforme a orientação e na tela aparece o seguinte:

sql = "SELECT * FROM Produtos WHERE 1=1"

Não tendo esse response .write, ele continua trazendo todas a s informações ao invés de filtrar, conforme as confições.

Tem alguma outra forma de se fazer essa busca sem ser com if's?

Obrigada!!!

[bareta]

se apareceu o 1=1 ali... veja se seu formulario ta passando os valores de nome e dos outros campos

[JCMPJ]

...

If Nome <> "" then

sql = sql & " AND nome = '" & Nome & "'"

End If

...