sql

Bonjour

Je compare un objet date à une date dans la bdd.

Tout va bien tant que c'est le même mois, mais des que l'on passe au mois suivant, le programme ne reconnait plus deux dates identiques.

Si quelqu'un a une idée je le remerci d'avance.

Voila mon code :

Dim d As Date Dim i As Integer i = -1 While i < 8 d = Date + i Data1.RecordSource = "Select audit.date_audit from audit where audit.date_audit = #" & Format(d, "dd - mm - yyyy ") & "# " 'and etat_audit <> 2 and audit.date_audit= rel_2.date_audit and audit.sujet_audit = rel_2.sujet_audit and rel_2.symbole_pers = personnes_a_contacter.symbole_pers ;" Data1.Refresh If Data1.Recordset.RecordCount <> 0 Then Data1.Recordset.MoveLast Call MsgBox("jour " & Format(d, "dd - mm - yyyy ") & " : " & Data1.Recordset.RecordCount) Else Call MsgBox("jour " & Format(d, "dd - mm - yyyy ") & " : 0") End If i = i + 1 Wend

J'avais oublié d'enlever le commentaire :
le voila ne plus lisible

Dim d As Date Dim i As Integer i = -1 While i < 8 d = Date + i Data1.RecordSource = "Select audit.date_audit from audit where audit.date_audit = #" & Format(d, "dd - mm - yyyy ") & "# Data1.Refresh If Data1.Recordset.RecordCount <> 0 Then Data1.Recordset.MoveLast Call MsgBox("jour " & Format(d, "dd - mm - yyyy ") & " : " & Data1.Recordset.RecordCount) Else Call MsgBox("jour " & Format(d, "dd - mm - yyyy ") & " : 0") End If i = i + 1 Wend

alors je te proposerai 2 soluce

soit :

Data1.RecordSource = "Select audit.date_audit from audit where format(audit.date_audit,'dd - mm - yyyy -') = #" & Format(d, "dd - mm - yyyy ") & "#"


ou alors
Data1.RecordSource = "Select audit.date_audit from audit where month(audit.date_audit) = " & month(d) & " AND day(audit.date_audit) = " & day(d) & " AND year(audit.date_audit)= " & year(d)


voila
++
juva


Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia..net
port : 6667
chan : #programmation

Merci

La deuxième proposition marche, mais pas la première ( il ne trouve rien) .

C'est malheureusement la première qui m'arrangerait le plus, car je doi aussi faire des comparaison d'inferiorité et de supériorité, et avec la deuxième solution ca complique tout.

Pourrai tu me dire pourquoi elle ne marche pas ? ( je n'ai trouvé nul par l'instruction format pour une requette )

P.S.: ma bdd est une bdd access, c'est peu etre du à ca

Data1.RecordSource = "Select audit.date_audit from audit where format(audit.date_audit,'dd - mm - yyyy ') = #" & Format(d, "dd - mm - yyyy ") & "#"

javais mis un tiret de tro ds le 1er format...c peut etre ca !!

le format es spécifik a access je crois...

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia..net
port : 6667
chan : #programmation

non j'avais viré le tiret.

merci qd mm ( je mé débrouille autrement, c'est plus gourmand, mais bon, tant pi )

@+

sinon essai de viré les # #, et de mettre des ' ' car peut etre ke format() retourne une chaine


otrement je sais pas

++
juva


Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia..net
port : 6667
chan : #programmation