Campo data access

[Prof_Mauri]

Sto cercando di eseguire una query in base ad un campo data, access, ma sto riscontrando grossi problemi; utilizzando il seguente

<%
id = trim(request.form("Data"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
id = replace(id,"'","''")
set objRs = objConn.Execute("SELECT Trattamenti.IDTrattamento, Trattamenti.Data, Trattamenti.OraInizio, [Tipologie Trattamenti].[Descrizione Trattamento], Clienti.[Cognome e Nome] AS Cliente, Dipendenti.[Cognome e Nome] AS Dipendente FROM [Tipologie Trattamenti] RIGHT JOIN (Dipendenti RIGHT JOIN (Clienti RIGHT JOIN Trattamenti ON Clienti.IDCliente = Trattamenti.IDCliente) ON Dipendenti.IDImpiegato = Trattamenti.IDImpiegato) ON [Tipologie Trattamenti].[IDTipo Trattamento] = Trattamenti.[IDTipo Trattamento] WHERE Trattamenti.Data='"&id&"'")

ricevo il seguente errore :

Microsoft JET Database Engine error '80040e07' 
Data type mismatch in criteria expression. 
/riservato/report_appuntamenti_per_data2.asp, line 41

Qualcuno saprebbe dirmi come posso risolvere questo problema?

[Roby_72]

Stampa la query e vediamo cosa contiene "id".
Il campo data cosa contiene?

Roby

[Prof_Mauri]

Ok, grazie

SELECT Trattamenti.IDTrattamento, Trattamenti.Data, Trattamenti.OraInizio, [Tipologie Trattamenti].[Descrizione Trattamento], Clienti.[Cognome e Nome] AS Cliente, Dipendenti.[Cognome e Nome] AS Dipendente FROM [Tipologie Trattamenti] RIGHT JOIN (Dipendenti RIGHT JOIN (Clienti RIGHT JOIN Trattamenti ON Clienti.IDCliente = Trattamenti.IDCliente) ON Dipendenti.IDImpiegato = Trattamenti.IDImpiegato) ON [Tipologie Trattamenti].[IDTipo Trattamento] = Trattamenti.[IDTipo Trattamento] WHERE Trattamenti.Data='11/04/2009'

[Roby_72]

Se il campo data è di tipo data/ora e non testo ci vuole # al posto di '

Roby

[Santino83_02]

invece degli apici il valore della data la devi racchiudere tra cancelletti #

[Prof_Mauri]

Ma dove devo metterlo # ?
Nel seguente

<%
id = trim(request.form("Data"))
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
id = replace(id,"'","''")
set objRs = objConn.Execute("SELECT Trattamenti.IDTrattamento, Trattamenti.Data, Trattamenti.OraInizio, [Tipologie Trattamenti].[Descrizione Trattamento], Clienti.[Cognome e Nome] AS Cliente, Dipendenti.[Cognome e Nome] AS Dipendente FROM [Tipologie Trattamenti] RIGHT JOIN (Dipendenti RIGHT JOIN (Clienti RIGHT JOIN Trattamenti ON Clienti.IDCliente = Trattamenti.IDCliente) ON Dipendenti.IDImpiegato = Trattamenti.IDImpiegato) ON [Tipologie Trattamenti].[IDTipo Trattamento] = Trattamenti.[IDTipo Trattamento] WHERE Trattamenti.Data='"&id&"'")

[Roby_72]

Alla fine, al posto degli apici.

Roby

[Prof_Mauri]

veramente ci avevo già provato ma, sebbene non mi dia errore, non ottengo nessun record.
Se stampo la query ottengo il seguente

SELECT Trattamenti.IDTrattamento, Trattamenti.Data, Trattamenti.OraInizio, [Tipologie Trattamenti].[Descrizione Trattamento], Clienti.[Cognome e Nome] AS Cliente, Dipendenti.[Cognome e Nome] AS Dipendente FROM [Tipologie Trattamenti] RIGHT JOIN (Dipendenti RIGHT JOIN (Clienti RIGHT JOIN Trattamenti ON Clienti.IDCliente = Trattamenti.IDCliente) ON Dipendenti.IDImpiegato = Trattamenti.IDImpiegato) ON [Tipologie Trattamenti].[IDTipo Trattamento] = Trattamenti.[IDTipo Trattamento] WHERE Trattamenti.Data=#11/04/2009#

?

[Roby_72]

Il db ragiona all'inglese mm/dd/yyyy quindi è probabile tu debba invertire il mese con il giorno.

Roby

[Prof_Mauri]

no, neanche così mi da nulla!

Ristampo la query e ottengo :

SELECT Trattamenti.IDTrattamento, Trattamenti.Data, Trattamenti.OraInizio, [Tipologie Trattamenti].[Descrizione Trattamento], Clienti.[Cognome e Nome] AS Cliente, Dipendenti.[Cognome e Nome] AS Dipendente FROM [Tipologie Trattamenti] RIGHT JOIN (Dipendenti RIGHT JOIN (Clienti RIGHT JOIN Trattamenti ON Clienti.IDCliente = Trattamenti.IDCliente) ON Dipendenti.IDImpiegato = Trattamenti.IDImpiegato) ON [Tipologie Trattamenti].[IDTipo Trattamento] = Trattamenti.[IDTipo Trattamento] WHERE Trattamenti.Data=#04/11/2009#

E giuro che ci sono records in quella data.

?