Inquiridor
Formato de Data

Pergunta
-
Bom dia pessoal estou com um problema à vários dias.
Tenho uma aplicação em asp que grava num banco access, só que ele sempre está gravando no formato americano.....como faço para ele gravar no formato brasileiro.
Uma outra dúvida é que quando vou pesquisar por data exemplo:
01/05/2006 à 31/05/2006 ele me mostra informações de 05/01/2006 à 31/05/2006.
Como faço para resolver isso, meus sistemas aqui da empresa estão entrando em colapso por causa disso.
Agradeço,
Rodrigo
msn: rrbonci@hotmail.com
Todas as Respostas
-
Beleza cara!
O servidor que hospeda o arquivo access, está em português ou inglês?
Se estiver em inglês, acredito que isto seja normal, porque prevalecerá se eu não me engano a cultura do sistema operacional...
Para sua query de pesquisa utilize a instrução abaixo:
select
* from suatabela
where convert(char(10), suadata, 103) between data1 and data2 ...
(ela fará um convert no formato da data para dd/mm/yyyy ou vc pode utilizar o códio 101, mas para isso deverá passar os parâmetros mm/dd/yyyy dos filtros...
Ajudei vc ou não?
Um abraço.
Jr
-
-
O meu maior problema em pesquisa, é que as vezes ela me traz o resultado da forma que eu consultei e outras vezes me mostra de forma invertida.
exemplo: 01/05/2006 à 31/05/2006 as vezes ele me mostra de 05/01/2006 à 31/05/2006.
Vou postar meu código abaixo:
A data eu mostro em vermelho.
Por favor se alguém puder me ajudar.
Rodrigo
<html>
<head>
<title>Resultado da Pesquisa</title>
<LINK REL=stylesheet HREF="\heva.css" TYPE="text/css">
<!--#include file="..\..\connect.asp"-->
<style>
p{font-weight:bold;font-size:14pt}
td{text-align:center}
</style>
</head>
<body><h3 align=center>Sistema de Transportes - Estatísticas<br><br>
<%
vestat = Request.Form("campo")
if Request.Form ("data_i") = "" OR Request.Form ("data_f") = "" then 'condicao 1
SELECT CASE Request.Form("opcao")CASE "Condutor"
if Request.Form("campo") = 9 then 'condicao 1 - condutor
set bd = Conexao.Execute (" SELECT a.analista,COUNT(t.transid) AS total FROM transportes t, analista a WHERE ( (t.condutorid <> 9) AND (t.condutorid = a.analistaid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) GROUP BY a.analista ORDER BY COUNT(t.transid) DESC, a.analista ")
%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td><b style="color:black"><%=bd("analista")%></b></td>
<td><b style="color:black"><%=bd("total")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table><% else 'condicao 1 - condutor
set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,t.areaid,a.analista FROM transportes t, analista a WHERE ( (t.condutorid = a.analistaid) AND (t.condutorid = "&vestat&")AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ORDER BY t.transid DESC")
set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE (condutorid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ")if bd.eof then 'condicao 2 - condutor%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script><% else 'condicao 2 - condutor%>
Condutor: <b style="color:firebrick"><%=bd("analista")%></b></h3>
<h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
<table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor=green>
<td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
<td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
<td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
<td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
<td><b style="color:black"> <%=bd("destino")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table>
<% end if 'condicao 2 - condutorend if 'condicao 1 - condutor
CASE "Setor"if Request.Form("campo") = 1 then 'condicao 1 - Setor
set bd = Conexao.Execute (" SELECT a.area,COUNT(t.transid) AS total FROM transportes t, area a WHERE ( (t.areaid = a.areaid) ) GROUP BY a.area ORDER BY COUNT(t.transid) DESC, a.area ")%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td style="text-align=left"><b style="color:black"><%=bd("area")%></b></td>
<td><b style="color:black"><%=bd("total")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table><% else 'condicao 1 - Setor
set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,a.area FROM transportes t, area a WHERE ( (t.areaid = a.areaid) AND (t.areaid = "&vestat&") ) ORDER BY t.transid DESC ")
set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE areaid = "&vestat&" ")if bd.eof then 'condicao 2 - setor%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script><% else 'condicao 2 - setor%>
Setor: <b style="color:firebrick"><%=bd("area")%></b></h3>
<h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
<table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor=green>
<td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
<td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
<td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
<td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
<td><b style="color:black"> <%=bd("destino")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table>
<% end if 'condicao 2 - setorend if 'condicao 1 - setor
CASE "Solicitante"
if Request.Form("campo") = 1 then 'condicao 1 - Solicitante
set bd = Conexao.Execute (" SELECT u.usuario,COUNT(t.transid) AS total FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) ) GROUP BY usuario ORDER BY COUNT(t.transid) DESC, u.usuario ")%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td style="text-align=left"><b style="color:black"><%=bd("usuario")%></b></td>
<td><b style="color:black"><%=bd("total")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table><% else 'condicao 1 - Solicitante
set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,u.usuario FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) AND (t.solicid = "&vestat&") ) ORDER BY t.transid DESC ")
set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE solicid = "&vestat&" ")if bd.eof then 'condicao 2 - solicitante%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script><% else 'condicao 2 - solicitante%>
Solicitante: <b style="color:firebrick"><%=bd("usuario")%></b></h3>
<h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
<table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor=green>
<td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
<td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
<td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
<td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
<td><b style="color:black"> <%=bd("destino")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table>
<% end if 'condicao 2 - solicitanteend if 'condicao 1 - solicitante
END SELECT
else 'condicao 1
if isdate(Request.Form("data_i")) AND isdate(Request.Form("data_f")) thenFunction CampoData(data)
CampoData = " " & year(data) & "/" & month(data) & "/" & day(data) & " "
End Functionvdt_i = CampoData(Request.form("data_i"))
vdt_f = CampoData(Request.form("data_f"))Session.LCID = 1046
SELECT CASE Request.Form("opcao")
CASE "Condutor" 'condicao 1 - condutor - B
if Request.Form("campo") = 9 then 'condicao 1 - condutor - B
set bd = Conexao.Execute (" SELECT a.analista,COUNT(t.transid) AS total FROM transportes t, analista a,situacao s WHERE ( (t.condutorid <> 9) AND (t.condutorid = a.analistaid) AND (s.situacaoid = 4) AND (t.situacaoid = s.situacaoid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) GROUP BY a.analista ORDER BY COUNT(t.transid) DESC, a.analista ")
%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td><b style="color:black"><%=bd("analista")%></b></td><td><b style="color:black"><%=bd("total")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table><% else 'condicao 1 - condutor
set bd = Conexao.Execute(" SELECT t.transid,dt_saida,t.hr_saida,t.dt_cadastro,t.destino,a.analista FROM transportes t, analista a,situacao s WHERE ( (t.condutorid = a.analistaid) AND (t.condutorid = "&vestat&") AND (s.situacaoid = 4) AND (t.situacaoid = s.situacaoid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) ORDER BY t.transid DESC ")
set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE ( (condutorid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) ")set bd1 = conexao.execute (" SELECT a.analista,ar.Area,Count(t.condutorid) AS total FROM area ar, analista a, transportes t WHERE ((t.condutorid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) AND (a.analistaid = t.condutorid) AND (ar.areaid = t.areaid) ) GROUP BY a.analista, ar.Area ORDER BY ar.Area,a.analista ")
if bd.eof then 'condicao 2 - condutor%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script>
<% else 'condicao 2 - condutor%>
Condutor: <b style="color:firebrick"><%=bd("analista")%></b></h3>
<h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
<h4 align=center><b style="color:firebrick"><%=Request.Form("data_i")%> à <%=Request.Form("data_f")%></b></h5><table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor=green>
<td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
<td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
<td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
<td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
<td><b style="color:black"> <%=bd("destino")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table>
<br><br><h3 align=center><font color=firebrick>QUANTIDADE DE SAÍDAS POR CENTRO DE CUSTO</font><br>
<table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor="dark brown">
<td width="40%" height="40" align="center"><b style=color:"white"><big>SETOR</big></b></td>
<td width="25%" height="30" align="center"><b style=color:"white"><big>CONDUTOR</big></b></td>
<td width="20%" align="center"><b style=color:"white"><big>QUANTIDADE</big></b></td>
</tr>
<%
while not bd1.eof
%>
<tr>
<td height="30" align="center"><b style="color:black"><%=bd1("area")%></a></b></td>
<td height="30" align="center"><b style="color:black"><%=bd1("analista")%></a></b></td>
<td><b style="color:black"> <%=bd1("total")%></b></td>
</tr>
<%
bd1.movenext
wend
%>
<% end if 'condicao 2 - condutorend if 'condicao 1 - condutor
CASE "Setor"if Request.Form("campo") = 1 then 'condicao 1 - Setor
set bd = Conexao.Execute (" SELECT a.area,COUNT(t.transid) AS total FROM transportes t, area a WHERE ( (t.areaid = a.areaid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) GROUP BY a.area ORDER BY COUNT(t.transid) DESC, a.area ")%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td style="text-align=left"><b style="color:black"><%=bd("area")%></b></td>
<td><b style="color:black"><%=bd("total")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table><% else 'condicao 1 - Setor
set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,a.area FROM transportes t, area a WHERE ( (t.areaid = a.areaid) AND (t.areaid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ORDER BY t.transid DESC ")
set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE ((areaid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ")if bd.eof then 'condicao 2 - setor%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script><% else 'condicao 2 - setor%>
Setor: <b style="color:firebrick"><%=bd("area")%></b></h3>
<h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
<table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor=green>
<td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
<td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
<td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
<td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
<td><b style="color:black"> <%=bd("destino")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table>
<% end if 'condicao 2 - setorend if 'condicao 1 - setor
CASE "Solicitante"
if Request.Form("campo") = 1 then 'condicao 1 - Solicitante
set bd = Conexao.Execute (" SELECT u.usuario,COUNT(t.transid) AS total FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) GROUP BY usuario ORDER BY COUNT(t.transid) DESC, u.usuario ")%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td style="text-align=left"><b style="color:black"><%=bd("usuario")%></b></td>
<td><b style="color:black"><%=bd("total")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table><%else 'condicao 1 - Solicitante
set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,u.usuario FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) AND (t.solicid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ORDER BY t.transid DESC ")
set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE ( (solicid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ")if bd.eof then 'condicao 2 - solicitante%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script><%else 'condicao 2 - solicitante%>
Solicitante: <b style="color:firebrick"><%=bd("usuario")%></b></h3>
<h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
<table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
<tr bgcolor=green>
<td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
<td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
<td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
</tr>
<%
while not bd.eof
%>
<tr>
<td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
<td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
<td><b style="color:black"> <%=bd("destino")%></b></td>
</tr>
<%
bd.movenext
wend
%>
</table>
<% end if 'condicao 2 - solicitanteend if 'condicao 1 - solicitante
CASE "Kilometragem"if Request.Form("campo") = 1 then 'condicao 1 - Kilometragem
set total = Conexao.Execute (" SELECT a.area,SUM(t.km_f - t.km_i) AS kf FROM transportes t, area a WHERE ((dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) AND (a.areaid = t.areaid) GROUP BY a.area")%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white">Setor</b></td>
<td><b style=color:"white">Total</b></td>
</tr><table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
<%
do while not total.eof
%><tr>
<td width="40%" height="40" align="center"><b style=color:"black"><%=total("area")%></td>
<td width="30%" height="40" align="center"><b style=color:"firebrick"><%=(total("kf"))%></td>
</tr>
<%
total.movenext
loop
%>
</table>
<% else 'condicao 1 - Kilometragemset total = Conexao.Execute (" SELECT a.area,SUM(t.km_f - t.km_i) AS kf FROM transportes t, area a WHERE ((t.areaid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) AND (a.areaid = t.areaid) GROUP BY a.area")
'set totalf = Conexao.Execute (" SELECT a.area,SUM(t.km_f - t.km_i) AS kf FROM transportes t, area a WHERE ((t.areaid = "&vestat&")) AND (a.areaid = t.areaid) GROUP BY a.area")if total.eof then 'condicao 2 - Kilometragem%>
<script language="javascript">
{
alert("Não foi localizada nenhuma Requisição");
window.location.href=history.back()"
}
</script><%else 'condicao 2 - Kilometragem%>
<b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
<table border=0 bordercolor=green width="60%" cellpadding=6 align=center>
<tr bgcolor=green>
<td><b style=color:"white">Setor</b></td>
<td><b style=color:"white">Total</b></td>
</tr>
<%
do while not total.eof
%>
<tr>
<td width="40%" height="40" align="center"><b style=color:"black"><%=total("area")%></td>
<td width="30%" height="40" align="center"><b style=color:"firebrick"><%=(total("kf"))%></td>
</tr>
<%
total.movenext
loop
%>
</table>
<% end if 'condicao 2 - Kilometragemend if 'condicao 1 - Kilometragem
END SELECT
else
%>
<script language="javascript">
{
alert("A data digitada não é válida");
window.location.href=history.back()"
}
</script><%
End ifConexao.close
set bd_count = nothing
set bd = nothing
set bd1 = nothing
set area = nothing
End if%>
<br><br>
</body>
</html>