Addition de champ par date
cs_yakus
Messages postés
22
Date d'inscription
mardi 9 septembre 2003
Statut
Membre
Dernière intervention
6 février 2006
-
6 févr. 2006 à 16:17
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 6 févr. 2006 à 21:38
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 6 févr. 2006 à 21:38
A voir également:
- Addition de champ par date
- Vb.net format date - Forum Visual Basic
- Sql insert date ✓ - Forum SQL
- Vba date to string - Forum Visual Basic
- Sql comparaison date - Forum SQL
- Sql max date ✓ - Forum SQL
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
6 févr. 2006 à 21:38
6 févr. 2006 à 21:38
Bonsoir,
Cette demande est "relativement superficielle".
Il faudrait mettre un petit bout de code et préciser là où ça coince.
Déjà, attention, un recordset date en access n'est pas en jj/mm/aaaa hh:mn:ss
Sous access, la date visuelle dans un recordset, il faut la convertir.
Après, pour calcul de date, fso + DatePart, DateAdd, DateDiff....
Cet exemple, ci-dessous, est en vbs, mais il existe (option: recherche) dans ce forum
en sauce VB6 (utilisation partielle de Fso).
ex:
If DatePart("w", Date) <> 2 Then
Dat = DateAdd("d", -1, Now)
Else
Dat = DateAdd("d", -3, Now)
End If
Saisie = InputBox(vbCrLf&vbCrLf&"Date de début du contrôle"_
&vbCrLf&vbCrLf&vbCrLf&"Vous pouvez modifier cette date (jj/mm/aaaa)",_
"Contrôle Météo XXXXXXX", Left(Dat, 10))
'Conversion de la date saisie (jj/mm/aaaa) au format date SQL (mm/jj/aaaa)
SQL_saisie = "#" & Mid(Saisie , 4, 2) & "/" & Mid(Saisie , 1, 2) & "/" & Mid(Saisie , 7, 4) & "#"
MaTable = "JOB"
MaRequete = "SELECT JOBID,RON,AMJ,DATE_FIN FROM " & MaTable
MaRequete = MaRequete & " WHERE AMJ > " & SQL_saisie & " ORDER BY AMJ"
Cette demande est "relativement superficielle".
Il faudrait mettre un petit bout de code et préciser là où ça coince.
Déjà, attention, un recordset date en access n'est pas en jj/mm/aaaa hh:mn:ss
Sous access, la date visuelle dans un recordset, il faut la convertir.
Après, pour calcul de date, fso + DatePart, DateAdd, DateDiff....
Cet exemple, ci-dessous, est en vbs, mais il existe (option: recherche) dans ce forum
en sauce VB6 (utilisation partielle de Fso).
ex:
If DatePart("w", Date) <> 2 Then
Dat = DateAdd("d", -1, Now)
Else
Dat = DateAdd("d", -3, Now)
End If
Saisie = InputBox(vbCrLf&vbCrLf&"Date de début du contrôle"_
&vbCrLf&vbCrLf&vbCrLf&"Vous pouvez modifier cette date (jj/mm/aaaa)",_
"Contrôle Météo XXXXXXX", Left(Dat, 10))
'Conversion de la date saisie (jj/mm/aaaa) au format date SQL (mm/jj/aaaa)
SQL_saisie = "#" & Mid(Saisie , 4, 2) & "/" & Mid(Saisie , 1, 2) & "/" & Mid(Saisie , 7, 4) & "#"
MaTable = "JOB"
MaRequete = "SELECT JOBID,RON,AMJ,DATE_FIN FROM " & MaTable
MaRequete = MaRequete & " WHERE AMJ > " & SQL_saisie & " ORDER BY AMJ"