[VBA-E] Comparaison date / datetime

Bonjour,

Je travail en vba sous excel sur une bd mysql.

J'ai un problème avec mes dates, dans ma base j'ai un champs qui est au format datetime, et je souhaiterai effectuer une requete en vba sur ce champ avec seulement une date mais pas d'heure.

En sql j'ai obtenu le code suivant qui marche parfaitement:

Code:

---

1 2 3 4

SQL = "select SUM(quantite) as 'prix_total_vente' from vente where date_format(jour_select, '%d-%m-%Y')='11-03-2006'"

---

Mais par contre en vb ca ne marche pas du tout et j'ai pas réussi à trouver sur le net

Avant j'avais utilisé une formule qui marchait quand le champs de la base était au format date:

Code:

---

jour_select='" + Format$(date_test, "dd/mm/yyyy") + "'"

---

@++

En sql, je ne sais pas mais en VBA, tu dois utiliser Cdate(Ledonnée)

Code:

---

LaDate = Format(cdate(Ladonnée),"dd/mm/yyyy")

---

Tu dis

Bonjour après avoir trituré tout ca, j'ai obtenu ceci

Code:

---

1 2 3 4 5

SQL = " select SUM(quantite) as 'prix_total_vente' from vente where " & Format$(Cells(4, 1).Value, "dd-mm-yyyy") & " = '" & Format(CDate(Jour_select), "dd-mm-yyyy") & "'"

---

Maintenant lorsque j'exécute je n'ai plus d'erreur de compilation, mais ca ne marche tjs pas. Lorsque je fait afficher la requête j'obtiens ceci :

Code:

---

1 2 3

select SUM(quantite) as 'prix_total_vente' from vente where 11-03-2006 = '30-12-1899'

---

Mais je ne sais pas ou c'est qu'il a trouvé cette date 30-12-1899, car dans ma base je n'ai inséré que 11-03-2006 comme champs pour tester ma requête :cry:

Lorsque je met vente.Jour_select pour voir s'il prend bien la colonne de la table, j'ai une erreur comme quoi il n'y a pas d'objet :cry:

Jour_select est vide ou =0 >> 30-12-1899

Citation:

---

Mais je ne sais pas ou c'est qu'il a trouvé cette date 30-12-1899

---

1900 est l'année de référence d'Excel.
30-12-1899 devrait normalement être la date de 2 jours avant le 01/01/1900 ! (donc -2) ... Comprends pas !

bonjour à tous

sans garantie , tu peux tester en modifiant le format Date

Code:

---

Format(CDate(Jour_select), "mm-dd-yyyy")

---

bonne journée
michel

Oui, ou

Code:

---

Format(CDate(Jour_select), "yyyy-mm-dd")

---

... à tout hasard aussi...

A+

Citation:

---

Envoyé par MSDN

expression de date
Toute expression pouvant être interprétée comme une date. Ceci comprend toute combinaison de littéraux de date, de nombres ou de chaînes ressemblant à des dates, et de dates retournées par des fonctions. Une expression de date est limitée aux nombres ou chaînes, sous toute forme de combinaison, qui représentent une date comprise entre le 1er janvier 100 et le 31 décembre 9999.
Les dates sont enregistrées comme partie d'un nombre réel. Les valeurs à gauche de la virgule représentent la date, tandis que les valeurs à droite représentent le temps. Les valeurs négatives correspondent aux dates antérieures au 30 décembre 1899.

---

j'en reviens dons a ce que je disais plus haut
ce n'est pas un pb de format, c'est le paramètre Jour_select qui est =0 !!!

Je viens de tester les différentes modification du format et rien ne fonctionne.

Le problème viendrais du fait que poura lui jour_select est une variable et ne le reconnais pas comme étant élément de table vente

OUAIS g réussi enfin :D :D :D

vla le code

Code:

---

1 2 3 4 5

SQL = "SELECT SUM( quantite ) AS 'prix_total_vente' FROM vente WHERE date_format( jour_selec, '%d-%m-%Y' ) = '" & Format$(date_test, "dd-mm-yyyy") & "'"

---