condizione a seconda della data

[Rick21]

e quindi come faccio? sarà perchè il server è svizzero?

dovrei trasformare la data coi punti in data con slash?

però il campo data del DB access mi accetta la data coi punti... :master:

[Roby_72]

Sarà una data precisa allora ma non credo che access riesca a fare confronti.

Roby

[Rick21]

non esiste un modo per trasformare la data?

devo usare un array?

[longline]

Allora prova così:

DataOggi = Replace(Date(), ".", "/")
Sql = "SELECT * FROM Feste WHERE DataFesta >= #" & DataOggi & "# ORDER BY DataFesta"

[Rick21]

Così mi esce "false" al posto della data coi puntini...

[longline]

Uff... e così?

DataOggi = CDate(Replace(CStr(Date()), ".", "/"))
Sql = "SELECT * FROM Feste WHERE DataFesta >= #" & DataOggi & "# ORDER BY DataFesta"

[Rick21]

Così mi da di nuovo una data coi punti al posto che con gli slash :master:

PS: grazie per la pazienza...

[longline]

Non fare eseguire la select. Cosa viene visualizzato a schermo?

DataOggi = CDate(Replace(CStr(Date()), ".", "/"))
Sql = "SELECT * FROM Feste WHERE DataFesta >= #" & DataOggi & "# ORDER BY DataFesta"
Response.Write DataOggi
Response.Write "
"
Response.Write Sql

[Berello]

Invece della funzione Date() potresti usare Now.
Ad esempio:

Gg = Day(Now)
If Len(Gg) = 1 Then Gg = "0" & Gg
Mm = Month(Now)
If Len(Mm) = 1 Then Mm = "0" & Mm
Hh = Hour(Now)
If Len(Hh) = 1 Then Hh = "0" & Hh
Mi = Minute(Now)
If Len(Mi) = 1 Then Mi = "0" & Mi

Per poi ottenere la data così:

Data = Gg & "/" & Mm & "/" & Year(Now) & " " & Hh & ":" & Mi

Spero di esserti stato utile

[Rick21]

Grazie, con questo sistema funziona. Ora il problema è che la condizione non funziona, nel senso che mi prende il primo record. Il che mi fa credere che non riesce a fare il confronto fra le date. Qualche idea del perchè?

Gg = Day(Now)
If Len(Gg) = 1 Then Gg = "0" & Gg
Mm = Month(Now)
If Len(Mm) = 1 Then Mm = "0" & Mm
Hh = Hour(Now)
If Len(Hh) = 1 Then Hh = "0" & Hh
Mi = Minute(Now)
If Len(Mi) = 1 Then Mi = "0" & Mi

DataOggi = Gg & "/" & Mm & "/" & Year(Now)
response.write (DataOggi)

set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../database/cms.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from attivita WHERE data >= #" & DataOggi & "# ORDER BY data", conn

attivita=rs("attivita") 
quando=rs("quando") 
dove=rs("dove") 
ora=rs("ora")

Il campo data è del tipo "data"...non so perchè non funziona, come faccio a scoprire l'errore? La data me la da giusta ora, con i slash...e pure le date nel DB sono con slash..