Hola, gracias por vuestro tiempo, pero sigue sin funcionarme.
En respuesta a jasistemas: he probado lo que me has dicho sin éxito, pero hay una cosa que no entiendo.
Código:
strFecha = FormatDateTime(Date, 2)
dtFecha = CDate(strFecha)
a = Year(dtFecha)
m = Month(dtFecha)
d = Day(dtFecha)
dtFecha = m & "/" & d & "/" & a
dtFecha = CDate(dtFecha)
Creo que el paso de separar la fecha en distintas variables no hace falta, y además está el tema de que cuando tú unes esas variables, ¿no estás automáticamente convirtiendo la fecha a tipo string?, porque asp trata las variables dependiendo del manejo que le dés, si tú concatenas dos o más variables con "&" la estás convirtiendo a string. Por eso la he convertido después otra vez a tipo fecha.
Pues eso, el recordset sigue saliendo no nulo cuando busco una fecha que no existe, por ejemplo dtFecha = dtFecha - 1
Este es el código completo, a ver si pueden ayudarme:
Código:
strFecha = FormatDateTime(Date, 2)
dtFecha = CDate(strFecha)
a = Year(dtFecha)
m = Month(dtFecha)
d = Day(dtFecha)
dtFecha = m & "/" & d & "/" & a
dtFecha = CDate(dtFecha)
strSql = "UPDATE cliente SET contador = contador + 1, fecha = #" & dtFecha & "#, comentario = 'actualizado' WHERE idweb = " & intIdweb
cnn.Execute strSql, , adCmdText + adExecuteNoRecords
dtFecha = CDate("05/06/2002") 'mes/dia/año
strSql = "SELECT * FROM cliente WHERE fecha = #" & dtFecha & "# AND idweb = " & intIdweb
rs.Open, cnn, adOpenDynamic, adLockReadOnly, adCmdText
If (rs.bof And rs.eof) then
strSql = "UPDATE cliente SET comentario = 'rs nulo' WHERE idweb = " & intIdweb
cnn.Execute strSql, , adCmdText + adExecuteNoRecords
Else
strSql = "UPDATE cliente SET comentario = 'rs no nulo' WHERE idweb = " & intIdweb
cnn.Execute strSql, , adCmdText + adExecuteNoRecords
End If
Es increíble, pues si en las sentencias sql de la condición "If" le digo que actualice también la fecha, veo que antes no existía: cómo la encontró?