vba formaté le champs date d'une colonne de bdRésolu

Question

Bonjour

Je travail sous vba avec excel et une bd MySQL

J'ai un probl&#232;me de requ&#234;te je souhaiterai int&#233;roger un champs Jour_select de la table vente au format datetime avec une variable au format date.
Donc il faut modifier le format de Jour_select pour qu'il devienne un format date comparable.

J'ai donc obtenu ce type de requ&#234;te:

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") & "'"

Avec ce r&#233;sultat lorsque je fait afficher le contenu de la requ&#234;te une fois ex&#233;cut&#233;:
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&#233; cette date 30-12-1899, ne serai-ce pas la date donn&#233; d'origine &#224; tous les type date ?

Lorsque je met vente.Jour_select &#224; la place de Jour_select pour voir s'il prend bien la table, j'ai une erreur comme quoi il n'y a pas d'objet  dans la requ&#234;te

si quelqu'un pouvait m'aider 

++

dahu29 · Accepted Answer

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

Renfield · Answer

30-12-1899 c'est simplement CDate ( 0 ) mis en forme

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

ajoute un Option Explicit tout en haut de ton code, tu trouvera ton erreur...

le Jour_select qui est formatt&#233; ici, n'est pas un champ de ta table, mais bien une variable (non d&#233;clar&#233;e, donc &#224; 0)
de ta fonction.

Renfield
Admin CodeS-SourceS - MVP Visual Basic

dahu29 · Answer

Lorsque je met l'option explicit, j'ai une erreur de variable non d&#233;finis alors quelle est d&#233;clar&#233;, meme si je ne l'utilise pas directement :
Dim date_test As Date
dates_test = Format$(Cells(4, 1).Value, "yyyy-mm-dd hh:mm:ss")
erreur sur date_test

sinon vous ne sauriez pas comment on pourrait faire pour formater le champs de la base au format voulu

Vba formaté le champs date d'une colonne de bd

4 réponses

Discussions similaires