[Resolvido] Selecionar Todos em droplist

[G23 0]

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

[xanburzum 169]

kla erro gerado !?!?

para isso verifiwue sua string SQL

[G23 0]

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%>

[G23 0]

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!

[xanburzum 169]

beleza...