Diferença entre Datas

[mauriciocr 0]

Olá galera ,

 

Eu estou com um um problema .

 

Eu estou fazendo um gerenciador de EVENTOS

 

Gostaria de mostrar somente os EVENTOS com a data > = HOJE

 

o banco é ACCESS

 

Fiz este código

<table width="100%" border="0" cellspacing="0" cellpadding="0"><%	Sql = "Select * From tabEventos Where CDate(Evento_Data) >= CDate('"&Date&"') Order By Evento_Data"				Set RSAgenda = Server.CreateObject("AdoDb.RecordSet")				RSAgenda.Open Sql,Conn,1,2				If Not RSAgenda.Eof Then					While Not RSAgenda.Eof				%>				<tr>				  <td height="28" style="background: url(../img/fundo_resultados.gif) repeat-y top left;"><table width="100%" border="0" cellspacing="0" cellpadding="0">					<tr>					  <td width="2%"> </td>					  <td width="96%" class="texto"> <a href="index.asp?ir=agenda.asp&Evento_Id=<%=RSAgenda("Evento_Id")%>" class="texto"><%=CDate(RSAgenda("Evento_Data"))%> <br /> <%=RSAgenda("Evento_Nome")%></a></td>					  <td width="2%"> </td>					</tr>				  </table>

Bom , o que acontece ,

 

Neste código IRÁ mostrar somente os EVENTOS que ocorrerá em MAIO .

Os de abril não aparece .

 

 

Eu preciso que mostre todos os EVENTOS de HJ e os futuros.

 

 

abraço

[Salgado 4]

A princípio está correta sua SQL, já testou?

[birobirosk8 0]

acces da varios problemas com data, moh zinki zira!!!tenta assim:Sql = "Select * From tabEventos Where CDate(Evento_Data) >= CDate('"&day(Date)&"/"&month(date())&"/"&year(date())"') Order By Evento_Data"ou:Sql = "Select * From tabEventos Where CDate(Evento_Data) >= CDate('"&month(Date)&"/"&day(date())&"/"&year(date())"') Order By Evento_Data"

[mauriciocr 0]

acces da varios problemas com data, moh zinki zira!!!tenta assim:Sql = "Select * From tabEventos Where CDate(Evento_Data) >= CDate('"&day(Date)&"/"&month(date())&"/"&year(date())"') Order By Evento_Data"ou:Sql = "Select * From tabEventos Where CDate(Evento_Data) >= CDate('"&month(Date)&"/"&day(date())&"/"&year(date())"') Order By Evento_Data"

Deu este erro usando estes sql :Microsoft VBScript compilation error '800a0401' Expected end of statement

[birobirosk8 0]

tenta: sql = "select * from tabEventos where evento_data >= #" &day(date())& "/" &month(date())& "/" &year(date())& "# "ousql = "select * from tabEventos where evento_data >= #" &month(date())& "/" &day(date())& "/" &year(date())& "# "se nao der certo da um response.write da variavel SQL e posta aki pra gente ver oq ta acontecendo

[Mário Monteiro 179]

este seu campo é um campo de data mesmo ou um campo texto?

[mauriciocr 0]

este seu campo é um campo de data mesmo ou um campo texto?

É um campo DATA/HORA do Access

[mauriciocr 0]

tenta: sql = "select * from tabEventos where evento_data >= #" &day(date())& "/" &month(date())& "/" &year(date())& "# "ousql = "select * from tabEventos where evento_data >= #" &month(date())& "/" &day(date())& "/" &year(date())& "# "se nao der certo da um response.write da variavel SQL e posta aki pra gente ver oq ta acontecendo

PERFEITTOOO !!sql = "select * from tabEventos where evento_data >= #" &month(date())& "/" &day(date())& "/" &year(date())& "# "RESOLVEU MEU PROBLEMA .Muito o brigado , valew mesmo , agradecidoAbraçoo

[Mário Monteiro 179]

so explicandoo access trabalha com consultas sempre no formato de data mm/dd/aaaaagora para funcionar deste jeito precisava que o campo realmente estivesse no formato correto

[Fernando_Bittencourt 0]

o uso do objeto Command do ADO resolve isso tudo...