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
| Private Sub GenereTableau()
Dim cinq As Double = 5
Dim returnValue As TimeSpan
Dim today As System.DateTime
today = System.DateTime.Now
returnValue = TimeSpan.FromDays(cinq)
Dim jourdiff As System.TimeSpan
jourdiff = Now.Subtract(today)
Using ConnexionMdb As New OleDbConnection(unElement.Attribute(XML_URLS_SYNC_MDB).Value)
ConnexionMdb.Open()
Using cmdMdb As New OleDbCommand("SELECT COUNT(Link_id), Max(Jour)" &
"FROM Link b " &
"WHERE Jourdiff<Jour<Now" &
"GROUP BY Link_id", ConnexionMdb)
Using readerMdb As OleDbDataReader = cmdMdb.ExecuteReader()
While readerMdb.Read()
jeteste1.Text = readerMdb.GetValue(0).ToString
End While
End Using
End Using
ConnexionMdb.Close()
End Using
End Sub |
Partager