Esecuzione della query

[Nemesis19]

Salve qualcuno sa interpretarmi questo errore???

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

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

/Access/rsopen.inc, line 1


tengo presente che in rsopen.inc c'è questa stringa di codice:

<% objRs.open SQL, objConn, 3, 3 %>

a cosa sarà dovuto l'errore?

se può servire posto qui anche il codice di connessione:

<%
Dim objConn, objRs, SQL
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/tappezzeria.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
%>

grazie

[kalosjo]

Vuol dire che si aspetta un dato di un certo tipo e invece è di un altro tipo...

SQL dove lo setti....

[Nemesis19]

SQL="SELECT * FROM Categorie, Sottocategorie, Immagini WHERE Categorie.IDCategoria='"& Categoria &"' AND Categorie.IDCategoria=Sottocategorie.IDCategoria AND Sottocategorie.IDSottocategoria=Immagini.IDSottocategoria;"

eccolo qui. la query l'ho provata a eseguire in access nel programma e funziona. cmq ecco la struttura dello script.

.Apertura connessione
.SQL
.Esecuzione recordset con rsopen.inc
.eventuali cicli e funzioni
.chiusura recordset
.chiusura connessione

Ho pure ottimizzato il codice e le query ma mi dice sempre la stessa roba

[kalosjo]

invece di farlo con gli include, prova a scriverlo di seguito e vedi cosa succede....

[Nemesis19]

mi da lo stesso errore ma adesso nell pagina view_cat visto che l'ho messo lì.

ti posto qui di seguito tutto il contenuto di view_cat, perche se l'errore c'è non so proprio dove trovarlo.

<% 
Dim objConn, objRs, SQL
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/tappezzeria.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
%>
<% 
Dim Categoria
Categoria = Request.Querystring("cat")

' controllo categoria
If Categoria = "" then
	Categoria = 1
End if

 %>

<%
  ' Apertura ed esecuzione della query
SQL="SELECT * FROM Categorie, Sottocategorie, Immagini WHERE Categorie.IDCategoria='"& Categoria &"' AND Categorie.IDCategoria=Sottocategorie.IDCategoria AND Sottocategorie.IDSottocategoria=Immagini.IDSottocategoria;"
  ' Fine
%>
<% objRs.open SQL, objConn, 3, 3 %>


<%= objRs("Categorie.Descrizione_CAT").Value %>





<% 
Dim SQL2, objRs2, contatore
contatore=0
Set objRs2 = Server.CreateObject("ADODB.Recordset")
do while not objRs.eof %>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
	<tr><td><%= objRs("Sottocategorie.Sottocategoria") %></td></tr>
	<tr>
		<td>
			<table border=0 cellpadding=0 cellspacing=0 width="100%">
			<tr>
<%
  ' Apertura ed esecuzione della query
SQL2="SELECT * FROM Sottocategorie, Immagini WHERE Sottocategorie.IDSottocategoria=Immagini.IDSottocategoria AND Sottocategorie.IDSottocategoria='"& objRs("Sottocategorie.Sottocategoria") &"';"
  ' Fine
%>
<% objRs2.open SQL2, objConn, 3, 3 
do while objRs2.eof
if ((contatore mod 4) = 0) then
response.write "</tr><tr>"
 %>
<td width=110 align=center>[img]/GetThumbnailImage.aspx?FileName=<%= objRs2("Immagini.Percorso") %>&ScaleFactor=10[/img]</td>
<% else %>
<td width=110 align=center>[img]/GetThumbnailImage.aspx?FileName=<%= objRs2("Immagini.Percorso") %>&ScaleFactor=10[/img]</td>
<% end if %>
<% contatore=contatore+1 %>
<% 
objRs2.moveNext
loop
objRs2.Close
set objRs2 = nothing
 %>
			</tr>
			</table>
		</td>
	</tr>

</table>	
<% 
objRs.moveNext
loop
 %>

<%
Set objRs=nothing
objConn.Close
set objConn=nothing
 %>

grazie ancora

[optime]

fa' un po' di debug, facendoti stampare il contenuto della query sql *prima* di eseguirla

[Nemesis19]

ma infatti mi funziona, è tutto ok

[optime]

Originariamente inviato da Nemesis19
ma infatti mi funziona, è tutto ok

[kalosjo]

nel codice tutto intero dove ti dà l'errore e che errore ti dà...?

[Nemesis19]

mi da l'errore che ho scritto in cima, a questa riga:

<% objRs.open SQL, objConn, 3, 3 %>