[Resolvido] List menú

[l_nando 0]

Pessoal, boa noite.

 

Fiz um sisteminha para a empresa onde trabalho, que está rodando belezinha, mas estou querendo fazer uma modificação e não está rolando.

É o seguinte:

 

Tem um list menú onde inicia com a palavra Todos que não vem do bd access e o restante são nomes dos funcionários que vem do bd.

 

Quando eu seleciono um nome de um funcionário, consigo puxar o relatório com informações deste mesmo, mas quando seleciono a palavra todos eu queria que me aparecesse um relatório com informações de todos os funcionários.

 

Não estou conseguindo fazer esta última opção com a palavra todos.

 

Alguém pode me ajudar?

 

Abraços.

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Salgado 4]

Você deverá montar a sua SQL sem passar nenhum parâmetro de campo. Será uma SQL bem básica mesmo.

[l_nando 0]

Mas deste jeito eu só mostrarei uma relação com todos os funcionarios mesmo selecionando somente 1.

O que eu queria é que quando eu seleciono somente 1 funcionario e um intervalo de datas ele me mostre o reletório só com as informações do mesmo, isso já acontece, mas quando eu seleciono a palavra todos não acontece nada.

 

Abraço.

[Vagner Bucioli Scala 0]

Olá! É só usar um IF :

 

<%

Dim Funcionarios

Funcionarios = Request("Funcionarios")

IF Funcionarios = "Todos" Then

SQL = "Select * From Funcionarios"

Else

SQL = "Select * From Funcionarios where Nome="'&Funcionarios&"'"

End IF
%>

[l_nando 0]

Vagner, boa tarde.

 

Eu já havia tentado desta forma, quando seleciono a palavra "Todos", lembrando que a mesma não está vindo do banco a página carrega em branco, o que não deveria, pois existem informações a serem mostradas.

 

Grato.

[Vagner Bucioli Scala 0]

Como está seu html? algo mais ou menos assim?

 

<select name="Funcionarios">

 

<option value="Todos">Todos</option>

 

<option value="Funcionário João">Funcionário João</option>

<option value="José">José</option>

<option value="Maria">Maria</option>

 

</select>

Não era pra estar dando erro! Deve ser alguma coisinha desapercebida no html!

 

Uma dica comente todo seu sql e faz um teste só com o response.write, tipo

 

<%

response.write Funcionarios

%>

Daí veja se ele te retorna a palavra Todos quando selecionado

 

 

qualquer coisa passa o link do seu trabalho pra gente poder te ajudar melhor!

[l_nando 0]

Está assim:

 

<select name="func" class="textopreto">

<option selected>Todos</option>

<%rs.moveFirst

Do while not rs.eof%>

<option value="<%=rs("Funcionario")%>"> <%=rs("Funcionario")%>

<%rs.Movenext

Loop

 

 

Grato.

[Vagner Bucioli Scala 0]

tente assim no HTML:

 

<select name="func" class="textopreto">

<option value="Todos" selected>Todos</option>

<%rs.moveFirst

Do while not rs.eof%>

<option value="<%=rs("Funcionario")%>"> <%=rs("Funcionario")%>

<%rs.Movenext

Loop

 

 

* Depois faz aquilo que te falei no response.write pra ver se a palavra "Todos" está te retornando pra que possa satisfazer seu IF

[l_nando 0]

A palavra "Todos" não aparece, mas quando eu seleciono o nome do funcionário aparece o nome do mesmo.

 

?

[Vagner Bucioli Scala 0]

Pois então! é alguma coisinha no HTML! você acrescentou a palavra Todos no value conforme sugeri? tipo:

 

<select name="func" class="textopreto">

<option value="Todos" selected>Todos</option>

<%rs.moveFirst

Do while not rs.eof%>

<option value="<%=rs("Funcionario")%>"> <%=rs("Funcionario")%>

<%rs.Movenext

Loop

[l_nando 0]

Sim.

 

?

[Vagner Bucioli Scala 0]

E agora no response.write está te retornando Todos? se não estiver tente

 

IF request("func") = "" Then

 

"Select * From Funcionarios"

Else

"Select * From Funcionarios where nome='"&request("func")&"'"

end if

[l_nando 0]

Deste jeito apareceu, mas não me mostrou as informações que solicito, aparece uma mensagem que eu estabeleci quando não tiver nenhuma informação.

Ex:

Nenhuma Informação a ser mostrada!

 

?

[Vagner Bucioli Scala 0]

então voltemos para seu SQL. Posta pra gente ele aqui

[l_nando 0]

Ai vai:

 

Dim bco, sq, rs, VHmotoadm, Vtxtdia1, Vtxtdia2

VHmotoadm = request.Form("Hmotoadm")
Vtxtdia1 = request.Form("txtdia1")
Vtxtdia2 = request.Form("txtdia2")

if request("Hmotoadm") = "" then

sq = "select motorista from Rote where dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'" 

else

sq = "select * from Rote where Motorista = '" &VHmotoadm& "' and dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'" 

'response.Write(sq)
'response.End()

AbreConn
'Executando o SQL
set rs = bco.Execute(sq)



if rs.eof then
response.Redirect("RELATADM0001.ASP?msg=nent")
else

[Mário Monteiro 179]

O erro ta aqui

 

voce passa no valor "todos"

 

<option value="Todos" selected>Todos</option>

e recupera como vazio

 

if request("Hmotoadm") = "" then

Alias os nomes estao diferentes

 

veja direito ai o que voce passa voce tem que recuperar

[l_nando 0]

Mario, eu já havia colocado assim:

 

if request("Hmotoadm") = "Todos" then

e quando chamo a pg, ela vem em branco.E quando escolho um funcionario vem o relatório com info. dele.

 

 

Abraço.

[Mário Monteiro 179]

foi oq eu disse

 

os nomes estao diferentes

 

voce passa o nome "func" e tenta recuperar "Hmotoadm"

 

faça nomes iguais

[l_nando 0]

Desculpa, func era o nome antigo, troquei para Hmotoadm, e estão todos iguais, eu revisei tudo.

E ainda está dando o erro.

 

 

 

 

Grato

[Vagner Bucioli Scala 0]

Olá! Só pra desencargo de consciência ao invés do 1º SQL ficar assim:

 

sq = "select motorista from Rote where dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

Tente:

 

sq = "select * from Rote where dia between '" & Vtxtdia1 & "' and  '" & Vtxtdia2 & "'"

Notei que caso a condição seja satisfeita, ele ache alguma coisa, é redirecionado pra uma outra tela correto?

 

RELATADM0001.ASP?msg=nent

 

o que está acontecendo quando você seleciona Todos? ele vai pra condição logo abaixo do Else, tipo Dados não encontrados, ou redireciona pra referida página só que em branco? você já deu uma checada na RELATADM0001.ASP?msg=nent ??