Discussion :

[lesafir]

je n'arrive pas a executer cette requete :

Dim queryString112 As String = "SELECT Cast(Left(DateEnr,11) as DateTime) AS DateEnr FROM QteReel WHERE Cast(Left(DateEnr,11) as DateTime)=" & yearSelect.SelectedValue & "Group by Cast(Left(DateEnr,11) as DateTime) order by Cast(Left(DateEnr,11) as DateTime) desc"

yearSelect.SelectedValue : je recupere la valeur dans une listebox => ca me renvoi une erreur

[Azephel]

Ce que tu peux faire, c'est :

Code :

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

Dim queryString112 As String = "SELECT CONVERT(VarChar, DateEnr, 103) AS DateEnr FROM QteReel WHERE CONVERT(VarChar, DateEnr, 103)=" & yearSelect.SelectedValue & "Group by CONVERT(VarChar, DateEnr, 103) order by CONVERT(VarChar, DateEnr, 103) desc"

Si tu as mis le Group by pour ne pas avoir les doublons, tu peux faire comme ça :

Code :

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

Dim queryString112 As String = "SELECT DISTINCT CONVERT(VarChar, DateEnr, 103) AS DateEnr FROM QteReel WHERE CONVERT(VarChar, DateEnr, 103)=" & yearSelect.SelectedValue & " ORDER BY CONVERT(VarChar, DateEnr, 103) DESC"

Sinon ta ListBox te renvoie bien la valeur qu'il te faut ?

[lesafir]

test = Format(CDate(yearSelect.SelectedValue),"yyyy/MM/dd"))

comment convertir une date en format yyyy/MM/dd ??

[Azephel]

Le bout de code que tu as donné le fait bien normalement.
Maintenant, à voir si la valeur YearSelect.SelectedValue renvoit bien quelque chose qui correspond à une date.

Par contre si tes dates doivent être au format yyyy/MM/dd, ta requête SQL ressemblerait + à ça :

Code :

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

Dim queryString112 As String = "SELECT DISTINCT CONVERT(VarChar, DateEnr, 111) AS DateEnr FROM QteReel WHERE CONVERT(VarChar, DateEnr, 111)=" & yearSelect.SelectedValue & " ORDER BY CONVERT(VarChar, DateEnr, 111) DESC"

Le 111 dans la fonction CONVERT retournera une date de ce format :
yy/MM/dd, donc vaudrait mieux faire

Code :

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

test = Format(CDate(yearSelect.SelectedValue),"yy/MM/dd"))