1 2 3 4 5 6 7 8 9 10 11 12 13 14
| strSQL = "SELECT SUM(MEC) AS Quantite, Theme " & _
"FROM (SELECT COUNT(T_calendrier.Mec) AS MEC, T_themes.Sujet_nom AS Theme " & _
"FROM T_themes RIGHT OUTER JOIN T_stages ON T_themes.Sujet = T_stages.Sujet RIGHT OUTER JOIN T_calendrier ON T_stages.Stage = T_calendrier.Stage " & _
"GROUP BY T_themes.Sujet_nom, T_calendrier.Faite, T_calendrier.Date " & _
"HAVING (T_calendrier.Faite = 1) AND (T_calendrier.Date <= CONVERT(datetime, '" & Format(CDate(Me.dtFinale.Text), "MM/dd/yyyy HH:mm:ss") & "', 102)) AND (T_calendrier.Date >= CONVERT(datetime, '" & Format(CDate(Me.dtInitial.Text), "MM/dd/yyyy HH:mm:ss") & "', 102))) AS T_aux1 " & _
"GROUP BY Theme"
ObjetConnection = New SqlConnection()
ObjetConnection.ConnectionString = DRHConn
ObjetConnection.Open()
ObjetCommand = New SqlCommand(strSQL)
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetDataAdapter.Fill(ObjetDataSet, "T_aux1")
ObjetDataTable = ObjetDataSet.Tables("T_aux1") |
Partager