wayne2017
Messages postés57Date d'inscriptionjeudi 23 février 2017StatutMembreDernière intervention10 mai 2017
-
Modifié par BunoCS le 20/03/2017 à 14:21
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024
-
20 mars 2017 à 17:16
Bonjour, a tous
pourriez- vous m'aide a a connecte ce code a ma base de données ACCESS, car j'y arrive pas. s'il vous merci
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 nom,prenom,heure_debut,heure_fin from Employers, 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 DateTimePickerDate_de_demarrage_Projet(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()
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI