Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Amigos
Como posso fazer para selecionar TODOS num drop list?
Vejam meu código:
If R8 = "TODOS" then
set objconn=server.createobject("adodb.connection")
conexao_ligacoes = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_trein.mdb") & ""
objconn.Open conexao_ligacoes
Set rstCliente = objConn.Execute("SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado is not null and id_clarify is not null order by data, hora")
Else
set objconn=server.createobject("adodb.connection")
conexao_ligacoes = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_trein.mdb") & ""
objconn.Open conexao_ligacoes
Set rstCliente = objConn.Execute("SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado = '" & R8 & "' and id_clarify is not null order by data, hora")
End If
>
kla erro gerado !?!?
para isso verifiwue sua string SQL
Eu coloquei o tratamento na página para dado nõa encontrado: <%if rstCliente.EOF or rstCliente.BOF then%>
>
kla erro gerado !?!?
para isso verifiwue sua string SQL
Xan,
Obrigado pelo apoio de sempre.
O problema estava no Select pois uso dois para executar a ação:
Assim ficou o código:
If R8 = "TODOS" then
set objconn=server.createobject("adodb.connection")
conexao_ligacoes = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_trein.mdb") & ""
objconn.Open conexao_ligacoes
Set rstCliente = objConn.Execute("SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado is not null and id_clarify is not null order by data, hora")
Else
set objconn=server.createobject("adodb.connection")
conexao_ligacoes = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_trein.mdb") & ""
objconn.Open conexao_ligacoes
Set rstCliente = objConn.Execute("SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado = '" & R8 & "' and id_clarify is not null order by data, hora")
End If
%>
<%
If R8 = "TODOS" then
Set rstCliente= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado is not null and id_clarify is not null order by data, hora"
Else
Set rstCliente= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM prod_bo_online WHERE data between #"&dtInicio&"# AND #"&dtFim&"# and gestor = '" & R6 & "' and organizacao = '" & R7 & "' and status_chamado = '" & R8 & "' and id_clarify is not null order by data, hora"
End If
rstCliente.Open SQL, conexao_ligacoes, 3
O segundo Select executa uma paginação (código disponibilizado no Forum por Ted K)
Obrigado!
beleza...
kla erro gerado !?!?
para isso verifiwue sua string SQL