Pesquisar Todos

[MAPSantos 0]

Oi Comunidade,Tou com o seguinte problema, tenho 3 combo boxes com vários valores em que depois é feita a pesquisa á BD Access em que os valores sao iguais aos escolhidos nas combo boxes. No entanto quero que quando n é seleccionado um valor em alguma das combo boxes ele retorne TODOS os dados desse valor.A seguir coloco o código para ajuda <%strInputEstadoCl = Request.Form("estado_cl")strInputArea = Request.Form("area")strInputRespcabo = Request.Form("resp_cabo")%> <form name="form1" method="post" action="clespcontrol.asp?mode=report"> <table width="97%" border="0" align="center"> <tr> <td width="37%" class="style6">Estado Cliente: </td> <td width="30%" class="style6">Area:</td> <td width="30%" class="style6">Responsável Cabo: </td> </tr> <tr> <td> <span class="style4"> <select name="estado_cl" size="1" id="estado_cl"> <option value="*" selected>Faça a sua escolha</option> <option value="Aberto">Aberto</option> <option value="Pendente - Resp.Cabo">Pendente - Resp. Cabo</option> <option value="Pendente - Resp. Cl">Pendente - Resp. Cl</option> <option value="Em feedback">Em feedback</option> <option value="Fechado">Fechado</option> </select> </span> </td> <td><span class="style4"> <select name="area" size="1" id="area"> <option value="*">Faça a sua escolha</option> <option value="DCC/Adm">DCC/Adm</option> <option value="DCC">DCC</option> <option value="DCC/Activações">DCC/Activações</option> <option value="DCC/IG">DCC/IG</option> <option value="DNI">DNI</option> </select> </span></td> <td><span class="style4"> <select name="resp_cabo" size="1" id="resp_cabo"> <option value="*">Faça a sua escolha</option> <option value="R">R</option> <option value="G">G</option> <option value="B">B</option> </select> </span></td> </tr> <tr> <td> </td> <td> </td> <td><span style="padding-right:20px"> <br> <input type="submit" name="Submit" value="Efectuar Pesquisa"> </span></td> </tr> </table> </form> <p> <%If Request.querystring("mode") = "report" thenSet rsCheckUser = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM ESPECIAIS WHERE estado_cl = '" & strInputEstadoCl & "' AND area = '" & strInputArea & "' AND resp_cabo = '" & strInputRespcabo & "' ORDER BY id"rsCheckUser.Open strSQL, adoCon2%>Eu pretendo que quando é selecionado "faça a sua escolha" na combo boxe ele nesse campo retorne todos.Alguem pode ajudar?

[ASP!Vb 0]

coloca na sua combo

 

<option value=0>TODOS<option>

NO SQL

 

if request.form("idopcao") > 0 thenWHERE estado_cl = '" & strInputEstadoCl & "'end if

esse mesmo raciocinio serve para as demais situacões.

Desculpa a pressa http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[MAPSantos 0]

Desculpa, expliquei mal .. quando disse todos .. não era string (todos) mas todos os campos (all | * ) :SA questão é que tenho 3 combo boxes, se nas 3 combo boxes o valor for "faça a sua escolha" eu preciso que ele retorne todos os registos da BD, mas por exemplo se na 2ª combo boxe ele seleccione um valor "DCC/Adm" eu preciso que ele faça pesquisa na BD em de todos os valores da 1ª da 3ª em que o 2ª valor é DCC/Adm :S

[ASP!Vb 0]

pois é, deu de entender direitinho. ta certo vamos la:

 

<%strInputEstadoCl = Request.Form("estado_cl")strInputArea = Request.Form("area")strInputRespcabo = Request.Form("resp_cabo")%><form name="form1" method="post" action="clespcontrol.asp?mode=report"><table width="97%" border="0" align="center"><tr><td width="37%" class="style6">Estado Cliente: </td><td width="30%" class="style6">Area:</td><td width="30%" class="style6">Responsável Cabo: </td></tr><tr><td><span class="style4"><select name="estado_cl" size="1" id="estado_cl"><option value=0 selected>Faça a sua escolha</option><option value="Aberto">Aberto</option><option value="Pendente - Resp.Cabo">Pendente - Resp. Cabo</option><option value="Pendente - Resp. Cl">Pendente - Resp. Cl</option><option value="Em feedback">Em feedback</option><option value="Fechado">Fechado</option></select></span></td><td><span class="style4"><select name="area" size="1" id="area"><option value=0>Faça a sua escolha</option><option value="DCC/Adm">DCC/Adm</option><option value="DCC">DCC</option><option value="DCC/Activações">DCC/Activações</option><option value="DCC/IG">DCC/IG</option><option value="DNI">DNI</option></select></span></td><td><span class="style4"><select name="resp_cabo" size="1" id="resp_cabo"><option value=0>Faça a sua escolha</option><option value="R">R</option><option value="G">G</option><option value="B">B</option></select></span></td></tr><tr><td> </td><td> </td><td><span style="padding-right:20px"> <br><input type="submit" name="Submit" value="Efectuar Pesquisa"></span></td></tr></table></form><p><%If Request.querystring("mode") = "report" thenSet rsCheckUser = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM ESPECIAIS "strSQL = strSQL & " WHERE "if strInputEstadoCl > 0 thenstrSQL = strSQL & " estado_cl = '" & strInputEstadoCl & "' AND "end ifif strInputArea > 0 thenstrSQL = strSQL & " area = '" & strInputArea & "' AND "end ifif strInputRespcabo > 0 thenstrSQL = strSQL & " resp_cabo = '" & strInputRespcabo & "'"end ifstrSQL = strSQL & "  ORDER BY id "rsCheckUser.Open strSQL, adoCon2%>

da de melhorar, viu?! B)

[MAPSantos 0]

valeu ... o esquema parece ser mesmo esse .. mas ta' dando um erro quando n selecciono nenhum valor ou seja todas as combos são = 0Syntax error in WHERE clause. /clespcontrol.asp, line 352 line 352 = rsCheckUser.Open strSQL, adoCon2Se seleccionar um valor ele da' erro tambemType mismatch: '[string: "Aberto"]' na linha if strInputEstadoCl > 0 then

[ASP!Vb 0]

tenta assim:

Set rsCheckUser = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM ESPECIAIS "		if strInputEstadoCl > 0 or strInputArea > 0 or strInputRespcabo > 0 thenstrSQL = strSQL & " WHERE "if strInputEstadoCl > 0 thenstrSQL = strSQL & " estado_cl = '" & strInputEstadoCl & "' AND "end ifif strInputArea > 0 thenstrSQL = strSQL & " area = '" & strInputArea & "' AND "end ifif strInputRespcabo > 0 thenstrSQL = strSQL & " resp_cabo = '" & strInputRespcabo & "'"end if		end ifstrSQL = strSQL & "  ORDER BY id "

se não der certo fala aê :rolleyes:

[MAPSantos 0]

ta funcionando quando n se seleciona qq valor nas combos, mas quando seleciono em qq box um valor da' erro nesta linhaif strInputEstadoCl > 0 or strInputArea > 0 or strInputRespcabo > 0 thenType mismatch: '[string: "Aberto"]'

[explore 3]

Tenta colocar o Valor 0 como Stringif strInputEstadoCl > "0" or strInputArea > "0" or strInputRespcabo > "0" then.......

[MAPSantos 0]

assim ja' ta' funcionando... agora tenho um erro de sintaxe porque no código tou comstrSQL = strSQL & " estado_cliente = '" & strInputEstadoCliente & "' AND " neste caso se os outros campos foram iguais a "0" ele fica com Syntax error (missing operator) in query expression 'estado_cl = 'OK' AND'. ou seja quando é > "0" ele escreve o AND mas se nas combos seguintes for = "0" ele fica com o AND e a função fica incompleta !!

[explore 3]

Naum entendi muito bem

[MAPSantos 0]

Ele funciona quando n selecciono nenhum campo nas combo .... porque assim o valor é = 0mas quando seleciono um valor ele dá erroSyntax error (missing operator) in query expression 'estado_cl = 'Pendente - Resp. Tvcabo' AND'.porque tenho a sintaxe a acabar com "AND" mas n há mais nenhuma seleccao nas outras combo box... logo o valor é 0 ... entao ele n completa !!percebeu?:S