Discussion :

[dahu29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@++

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu dis

[dahu29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ThierryAIM]

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

[jmfmarques]

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 !

[SilkyRoad]

bonjour à tous

sans garantie , tu peux tester en modifiant le format Date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bonne journée
michel

[ouskel'n'or]

Oui, ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

... à tout hasard aussi...

A+

[ThierryAIM]

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 !!!

[dahu29]

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

[dahu29]

OUAIS g réussi enfin

vla le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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") & "'"