Sto cercando di eseguire una query in base ad un campo data, access, ma sto riscontrando grossi problemi; utilizzando il seguente
codice:
<%
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 :
codice:
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?