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
|
Dim str As String = "Data Source=HP-PC;Initial Catalog=base;Integrated Security=True"
Dim debut As Date
Dim fin As Date
Dim nbHeure As Double
Dim nbMin As Double
connec = New SqlConnection(str)
connec.Open()
cmd.Connection = connec
' cmd = New SqlComma nd("select Nom_groupe from Groupe", connec)
cmd = New SqlCommand("select Pointage.Id_emp,emp.nom_emp,emp.prenom_emp,heure_debut,heure_fin from emp,pointage where emp.id_emp=Pointage.id_emp and pointage.date_debut='" & DateEdit1.DateTime.Date & "' and pointage.date_fin='" & DateEdit1.DateTime.Date & "'", connec)
lecteur = cmd.ExecuteReader
Try
While lecteur.Read()
debut = lecteur(3)
fin = lecteur(4)
nbHeure = DateDiff(DateInterval.Hour, debut, fin)
nbMin = (DateDiff(DateInterval.Minute, debut, fin) Mod 60)
' DataGridView1.Rows.Add((lecteur(0)), (lecteur(1)), (lecteur(2)), nbHeure & "H" & ":" & nbMin & "min")
Dim item As New ListViewItem(lecteur(0).ToString, 1)
item.SubItems.Add(lecteur(1))
item.SubItems.Add(lecteur(2))
item.SubItems.Add(nbHeure & "H" & ":" & nbMin & "min")
ListView1.Items.AddRange(New ListViewItem() {item})
End While
Catch ex As Exception
End Try
lecteur.Close() |
Partager