[Resolvido] Problemas Com datas

[Web Design Valdeci 0]

Bom Dia Pessoal,

 

Estou fazendo um sistema de busca por data, so que a consulta que faço so exibe quando seleciono como exemplo: 01/09/2008 até 30/09/2008 no banco existem dados de diversas datas como 02/09/2008 etc várias datas, mas quando mando exibir dentre datas específicas como 15/09/2008 até 30/09/2008 ele não exibe, sendo que no banco existem datas entres estas duas que citei acima. Alguem poderia me ajudar?

 

Fiz a seguinte consulta:

 

tsc = request.querystring("tsc")
If tsc = "seleciona" then
session.LCID = 1046
if rs.Fields.Item("status").Value = "completo" then
data1 = FormataData(request.form("data1"))
data2 = FormataData(request.form("data2"))
Set cs_cliente = Server.CreateObject("ADODB.Recordset")
cs_cliente.ActiveConnection = strcon
cs_cliente.Source = "SELECT * FROM informacoes where (informacoes.data BETWEEN #"&data1&"# AND #"&data2&"#) ORDER BY data asc"
cs_cliente.CursorType = 0
cs_cliente.CursorLocation = 3
cs_cliente.LockType = 1
cs_cliente.Open()
else
sql_atendente =  Request.form("atendente")
data1 = FormataData(request.form("data1"))
data2 = FormataData(request.form("data2"))
Set cs_cliente = Server.CreateObject("ADODB.Recordset")
cs_cliente.ActiveConnection = strcon
cs_cliente.Source = "SELECT * FROM informacoes where (informacoes.IdUsuario = "&sql_atendente&" and informacoes.data BETWEEN #"&data1&"# AND #"&data2&"#) ORDER BY data asc"
cs_cliente.CursorType = 0
cs_cliente.CursorLocation = 3
cs_cliente.LockType = 1
cs_cliente.Open()
end if
end if

[DSerma 19]

Ql o formato da data no BD ?

[Web Design Valdeci 0]

o bd é Access...

[Jow Xavier 0]

As duas data devem estar no memso formato para serem compardas ... Dá uma pesquisada nos scripts prontos do site q lá tem uma solução bacana do Ted'k para formatar as datas ..... Abraçossss

[Web Design Valdeci 0]

Mas já estou utilizando um script que formata a data, segue abaixo:

 

Function FormataData(Data)
   If Data <> "" Then FormataData =  Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)
End Function

A consulta está assim:

 

Function FormataData(Data)
   If Data <> "" Then FormataData =  Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)
End Function

tsc = request.querystring("tsc")
If tsc = "seleciona" then
session.LCID = 1046
if rs.Fields.Item("status").Value = "completo" then
data1 = FormataData(request.form("data1"))
data2 = FormataData(request.form("data2"))
Set cs_cliente = Server.CreateObject("ADODB.Recordset")
cs_cliente.ActiveConnection = strcon
cs_cliente.Source = "SELECT * FROM informacoes where (informacoes.data BETWEEN #"&data1&"# AND #"&data2&"# and) ORDER BY data asc"
cs_cliente.CursorType = 0
cs_cliente.CursorLocation = 3
cs_cliente.LockType = 1
cs_cliente.Open()
else
sql_atendente =  Request.form("atendente")
data1 = FormataData(request.form("data1"))
data2 = FormataData(request.form("data2"))
Set cs_cliente = Server.CreateObject("ADODB.Recordset")
cs_cliente.ActiveConnection = strcon
cs_cliente.Source = "SELECT * FROM informacoes where (informacoes.IdUsuario = "&sql_atendente&" and informacoes.data BETWEEN #"&data1&"# AND #"&data2&"#) ORDER BY data asc"
cs_cliente.CursorType = 0
cs_cliente.CursorLocation = 3
cs_cliente.LockType = 1
cs_cliente.Open()
end if
end if

Resolvi, o que estava errado era no banco de dados que estava como texto e não como data... hehehe vacilo né. Deixo o codigo ai em cima para quem precisar. vlw