Tipo non corrispondente - query mysql

[fraude]

Ciao a tutti.

Questo codice funziona in access, mentre con mysql restituisce:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente

sulla riga segnata in rosso, dove sbaglio:?

strSQL = "select DueDate, Count(*) as Total, MAX(LastModified) as Latest from message where Month(DueDate)= " _
	    &Month(dtSelected) &" and Year(DueDate) = " &Year(dtSelected) _
	    &" group by DueDate order by DueDate DESC"

 set objREC = cn.Execute(strSQL)	    
	    	    

	    Redim aMessageDate(0)

	    arrIndex = 0 
	    
	    Do While NOT objREC.EOF 	       
	       arrIndex = arrIndex + 1 
	       Redim Preserve aMessageDate(arrIndex)
	      objREC.MoveNext
	    Loop



For J= 0 to UBOUND(aMessageDate)-1 
        
        DatePlus7 = CDate(dateadd("d", -7,NOW))
        DatePlus14 = CDate(dateadd("d", -14,NOW))
        
           If CDate(aMessageStatus(J)) >= DatePlus7 then 
              strDateIMG = ""
           end if 
        
              if aMessages(J) >= 25 then    
                 strDateIMG = "Warning"
               else
                 strDateIMG = ""
              end if

Next

[santino83_11_04]

prova a fare cint(amessage(j)) oppure fatti stampare il contenuto di aMessage e vedi che c'è dentro

[fraude]

OK adesso va bene con:

        if cint(aMessages(J)) >= 25 then 
          strDateIMG = "Warning"
        else
          strDateIMG = ""
        end if

Però non riesco a valorizzare aMessagedate(J) in questa parte... :master:
mi dà sempre 0.00.00

	If CDate(aMessagedate(J)) = CDate(NEWDATE) then 
	strIMG = "<A HREF=altrapag.asp?id=" &id &"&date="&formatDBDate(aMessagedate(J),"mysql") _
	&"'>[img]./img/" &aMessages(J) &strDateIMG &".gif[/img]</A>"                
	exit For
	else strIMG = ""
	End if

[santino83_11_04]

nel codice che hai postato non vedo valorizzazioni dell'array, inquanto qui

Do While NOT objREC.EOF 	       
	       arrIndex = arrIndex + 1 
	       Redim Preserve aMessageDate(arrIndex)
	      objREC.MoveNext
	    Loop

stai semplicemente dimensionando l'array senza metterci nulla dentro...magari l'errore è dopo

[fraude]

Originariamente inviato da santino83_11_04
nel codice che hai postato non vedo valorizzazioni dell'array, inquanto qui

Do While NOT objREC.EOF 	       
	       arrIndex = arrIndex + 1 
	       Redim Preserve aMessageDate(arrIndex)
	      objREC.MoveNext
	    Loop

stai semplicemente dimensionando l'array senza metterci nulla dentro...magari l'errore è dopo

Scusa è saltato un pezzo nel copia/incolla:

	    Do While NOT objREC.EOF 
	       aMessages(arrIndex)    = objREC("Total")
	       aMessageStatus(arrIndex) = objREC("Latest")
	       
	       arrIndex = arrIndex + 1 
	       Redim Preserve aMessages(arrIndex)
	       Redim Preserve aMessageDate(arrIndex)
	       Redim Preserve aMessageStatus(arrIndex)
	      objREC.MoveNext
	    Loop

[viki1967]

Fai debug, procedi provando il codice gradualmente e ti accorgerai dell'errore, non è un problema di db.