Bonjour,
J'ai moi aussi besoin régulierement d'envoyer des requêtes vers une base ACCESS ou SQL, voici la petite fonction qui me fait la transposition d'un variant de type date en une chaîne de caractères :
Function AccessFormatDateTime(CurrentDate)
if(FALSE) then
AccessFormatDateTime = "CONVERT(DATETIME, '"& Year(CurrentDate)&"-"
AccessFormatDateTime = AccessFormatDateTime & Month(CurrentDate)&"-"
AccessFormatDateTime = AccessFormatDateTime & Day(CurrentDate)&" "
AccessFormatDateTime = AccessFormatDateTime & Hour(CurrentDate)&":"
AccessFormatDateTime = AccessFormatDateTime &"00:00', 120)"
end if
AccessFormatDateTime = "{ ts '"&Year(CurrentDate)&"-"
AccessFormatDateTime = AccessFormatDateTime & right("0"&Month(CurrentDate),2) &"-"
AccessFormatDateTime = AccessFormatDateTime & right("0"&Day(CurrentDate),2) &" "
AccessFormatDateTime = AccessFormatDateTime & right("0"&Hour(CurrentDate),2) &":"
AccessFormatDateTime = AccessFormatDateTime & right("0"&Minute(CurrentDate),2) &":"
AccessFormatDateTime = AccessFormatDateTime & right("0"&Second(CurrentDate),2) &"'}"
End Function
et un exemple d'utilisation:
dstart=dateadd("d",-60,date())
strSQL = "DELETE FROM historique where date_insertion<="&AccessFormatDateTime(dstart)
May be it could help ....