1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
If TB_date_deb.Text <> " " Then
Dim str_query As String
Dim str_temp As String
Dim tableau() As String
str_temp = ""
str_query = ""
If LB_choix.SelectedItem.Text = "Action" Then
str_query = "SELECT SUM(AF.Heure), AC.nom_Action "
str_query = str_query + "FROM A_Fait as AF "
str_query = str_query + "INNER JOIN Actions AS AC ON AC.ID_Action = AF.FK_Action "
str_temp = "GROUP BY AC.nom_Action "
End If
If LB_choix.SelectedItem.Text = "Apllication" Then
str_query = "SELECT SUM(AF.Heure), AP.nom_Application "
str_query = str_query + "FROM A_Fait as AF "
str_query = str_query + "INNER JOIN Application AS AP ON AP.ID_Application = AF.FK_Application "
str_temp = "GROUP BY AP.nom_Application"
End If
If LB_choix.SelectedItem.Text = "Zone" Then
str_query = "SELECT SUM(AF.Heure), Z.nom_Zone "
str_query = str_query + "FROM A_Fait as AF "
str_query = str_query + "INNER JOIN Zones AS Z ON AC.ID_Zone = AF.FK_Zone "
str_temp = "GROUP BY Z.nom_Zone"
End If
tableau = Split(LB_vl.SelectedItem.Text, " - ")
If LB_vl.SelectedItem.Text <> "Tous" Then
str_query = str_query + "WHERE (AF.FK_Employe ='" + tableau(0).Trim + "') AND (CONVERT(datetime, AF.date_A_fait, 103) >= CONVERT(datetime, '" + TB_date_deb.Text + "', 103)) AND (CONVERT(datetime, AF.date_A_fait, 103) <= CONVERT(datetime, '" + TB_date_fin.Text + "', 103))"
Else
str_query = str_query + "WHERE (CONVERT(datetime, AF.date_A_fait, 103) >= CONVERT(datetime, '" + TB_date_deb.Text + "', 103)) AND (CONVERT(datetime, AF.date_A_fait, 103) <= CONVERT(datetime, '" + TB_date_fin.Text + "', 103)) "
End If
str_query = str_query + str_temp
px.Text = str_query
End If |
Partager