Ciao Peste, prova così:

"SELECT * FROM calendario WHERE datanr > "& cdbl(date()) & "ORDER BY datanr"

in pratica trasforma il campo data in numero a doppia precisione e confrontando i numeri funziona...

Ciao, Fabio

fcopellino@libero.it

una variante alla domanda: e se invece della data corrente io volessi fare un confronto con una data di cui dispongo giorno, mese e anno in tre variabili distinte?
grazie
ciao
stefano (ma non quello di prima )

<b>albis ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote><hr height=1 noshade id=quote>
potresti fare ad esempio così

"select * from calendario
where day(datanr ) &gt; " & varGiorno & " and month(datanr ) &gt; " & varMese & " and year(datanr ) &gt; " & varAnno

in questo modo non avrai problemi con i differenti formati di data

FORZA LA MAGICA ROMA

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>

Non sono convinto che funzioni... Mettendo in AND le tre parti della data elimini dalla ricerca anche dei record validi.
Esempio:
data di confronto 15/10/2001
Facendo la query per trovare tutte le date maggiori di questa confrontando singolarmente Giorno/Mese/Anno ti perdi i giorni da 1 a 14 e i mesi da 1 a 9 degli anni superiori al 2001:
01/11/2002 ad esempio è una data che, nonostante sia maggiore della data di riferimento, non soddisfa la query.

Prova con questa query:

<code>
Dim DataConfronto
SELECT * FROM Calendario WHERE datanr&gt;" & "#" & DataConfronto & "#"
</code>

Cia Cia
hyppos

www.teatrolabaracca.com

<code>
|--------------------------------------|
|in giro torte sol ciclos et rotor igni|
|--------------------------------------|
</code>

ha ragione hyppos mi ero sbagliato
però nel modo che dice lui si problemi per le eventuali differenze di formattazione delle date
ad esempio la data è inserita nel formato italiano
(gg/mm/aaaa)
mentre il db si aspetta la data nel formato inglese
(mm/gg/aaaa)

quando eseguo quary preferisco sempre utilizzare i parametri per evitare problemi (è comunque l'approccio più corretto )
quindi la stringa diventa
"SELECT * FROM Calendario WHERE datanr&gt;?"

e quando passi il parametro
lo fai passando una variabile di tipo data
costruita con una funzione di questo tipo
es:
presupponendo che la data sia inserita nel formato italiano
function RestData(strData )
Dim lngDay
Dim lngMonth
Dim strYear

Dim dtData As Date

strYear = Right(strData, 4)
lngMonth = CLng(Mid(strData, 4, 2))
lngDay = CLng(Left(strData, 2))

dtData = CDate("1/1/" & strYear)
dtData = DateAdd("m", (lngMonth - 1), dtData)
dtData = DateAdd("d", (lngDay - 1), dtData)
RestData = dtData
End Sub

costruendo la data con il dateadd si è sicuri che venga restituita nel formato del server

che può essere comunque diverso da quello del db
ma essendo passata come parametro di tipo data
viene passato un ogetto di tipo data che prescinde da eventuali differenze di formattazione

l'utilizzo di parametri è sempre l'approccio più corretto e sicuro


FORZA LA MAGICA ROMA