Salut à tous,
J'ai un problème avec une requête delete qui ne peut pas être exécute. Je pense que ca vient de la condition qui est une date mais je ne vois pas comment résoudre ce problème étant donné que j'ai essayé de changer le format de ma date mais ca ne fonctionne toujours pas.
Voilà mon code :
Function AddseptJours(dDate)
AddseptJours = DateAdd("d", 7, dDate)
End Function
'ceci sert à se connecter à la base de donnée
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.open Application("ConnAccesClient_ConnectionString")
Recordset1.close
Recordset1.setSQLText("select date_heure from matable")
Recordset1.open
Recordset1.moveFirst
do while not Recordset1.EOF
vdate = Recordset1.fields.getValue("date_heure")
dateaug = AddseptJours(vdate)
datedujour= now()
if dateaug < datedujour then
sql = "DELETE FROM matable WHERE date_heure='"&vdate&"'"
Response.Write sql
Response.write "<br>"
DBConn.Execute sql
end if
Recordset1.moveNext
loop
et voila l'erreur que j'ai lorsque j'essaie d'ouvrir ma page
Type d'erreur :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Pilote ODBC Microsoft Access] Type de données incompatible dans l'expression du critère.
Et il indique cette ligne DBConn.Execute sql
Si vous avez une solution merci d'avance.