estrarre file x data

[Okocha]

Devo visualizzare i dati di un db che abbiano la data di oggi.

' Stringa di interrogazione sulla tabella
Dim Giorno
Giorno = RIGHT("00" & Day(Date()), 2)
sql = "SELECT * FROM Archivio WHERE Data='Giorno'"


Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
%>
<div align="center">
<table border="0" width="250" cellspacing="1">

<tr>
    <td width="5%" height="20" align="left">
	<%=rs(3)%></td>
    
      <%
  rs.movenext
  loop
  
  rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
   %>
   </table>

mi risponde questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/giorno.asp, line 24

la linea 24 è = rs.Open sql, conn ,3,3

come correggere l'errore?

[optime]

cosa intendi per "data di oggi"? da quello che hai scritto pare che tu voglia estrarre tutti i record con data corrispondente al "giorno" odierno (Data=30)...

[barney09]

il campo del database che formato ha?
Testo o Data?

[rotteninside]

se esegui la query scritta in questo modo non funzionerà mai...

sql = "SELECT * FROM Archivio WHERE Data='Giorno'"

Devi concatenare al posto di Giorno la tua variabile,

sql = "SELECT * FROM Archivio WHERE Data='"& Giorno &"'"

[Okocha]

si optime, devo mostrare tutti i record che hanno come data, quella odierna.

il campo data e' "data ora"

rotten, avevo già provato ma non andava.



Ora ho cambiato il campo Data in "testo" e ho messo la query suggerita da rotten. La pagina non restituisce errori ma non visualizza nulla.

La data è scritta in questo modo 30/09/2009

[barney09]

Giorno = RIGHT("00" & Day(Date()), 2)

Se vuoi estrarre tutti quelli di oggi devi semplimente scrivere

Giorno = Date()

[optime]

fa' fare il lavoro sporco al motore

sql="SELECT * FROM Archivio WHERE Data=Date()"

[Okocha]

<%
'apertura connesione
set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/Archivio.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

' Stringa di interrogazione sulla tabella

sql = "SELECT * FROM Archivio WHERE Data=Date()"


Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
%>
<div align="center">
<table border="0" width="250" cellspacing="1">

<tr>
    <td width="5%" height="20" align="left">
	<%=rs(3)%></td>
    
      <%
  rs.movenext
  loop
  
  rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
   %>
   </table>

ma non si vede nulla.

il formato della data nel db è 01/10/2009 8.35.15
sia che sia "testo" o "data e ora" non da risultati.
nel db c'è la data di oggi.

[optime]

funziona solo col formato DataOra

[barney09]

prova a fare una query senza il where e vedi cosa ti pubblica.