Consulta data ASP - Access

[Dineysil 0]

Boa tarde!

 

Estou com uma dificuldade em uma consulta de data, tenho uma base de dados Access onde salvo

 

Cod_prof - numero

ativo - texto Sim/Não

data_limite - data

 

Caso tenha um registro com data < = a data atual e que esteja ativo = 'Sim' e do professor

 

mostre a mensagem.

 

O código é:

 

<%
   dia = day(date())
   mes = month(date())
   ano = year(date())  
   data = dia & "/" & mes & "/" & ano

   data_limite = Right("0"&Day(Cdate(data)),2) & "/" & Right("0"&Month(Cdate(data)),2) & "/" & Right("0"&Year(Cdate(data)),4)

  rectabela.open "select * from provas WHERE data_limite <= #"&data_limite&"# and ativo = 'Sim' and codprof="& codprof , conconecta
  if not rectabela.eof or not rectabela.bof then 
 %>  

      <span class="style441"> O prazo para lançar as notas expirou, procure a coordenação! </span> 
   
 <% else  %>

Desde já agradeço a ajuda.

 

Claudiney

www.cassystems.com.br

 

 

[@fabiosantosrj 0]

qual o resultado que dá? Não vem nenhum registro?

da um response.write no sql gerado antes de executar o open e veja o que realmente você está enviando para o servidor.

Se o data_limite estiver gravando direito, tente verificar se não é melhor passar YYYY-mm-DD ao invés de dd-mm-yyyy.

[Dineysil 0]

Fabio Santos

Bom dia,

 

Valeu a dica, usei o format YYYY-MM-DD e deu certo.

 

Antes não retornava erro simplesmente não verificava a data.

 

Obrigado, valeu!!!

[xanburzum 169]

apenas complementando... vc pode formatar suas datas assim:

 

session.lcid=1046
function formatadata(data)
dia=day(data)
mes =month(data)
ano=year(data)
formatadata=dia&"/"&mes&"/"&ano
end function

SQL1 = "INSERT INTO NEWSLETTER (NewsletterNome,NewsletterEmail,NewsletterData,NewsletterHora,NewsletterIP,FL

G_EMAIL) VALUES ('"&Nome&"','"&Email&"',#"&formatadata(NewsletterData)&"#,'"&NewsletterHora&"','"&NewsletterIP&"','"&NewsletterFLG&"')"

Formato: aaaa-mm-dd

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: dd-mm-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm-dd-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm/dd/aaaa

<%
Function ConverterDataBanco(ConDataBanco)
    ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
    ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>