Bonsoir,
je souhaiterais comparer la date et l'heure actuel avec la date et l'heure de chaque enregistrement qui apparaissent dans mon datagridview :
ainsi actuellement j'ai ceci dans mon datagridview :
Pierre DUPONT | 01/03/2014 14:22:00
et donc je souhaiterais rafraichir mon datagridview toutes les minutes pour afficher ceci :
Pierre DUPONT | 01/03/2014 14:22:00 | 4 jours 12 heures 23 minutes
pour ce faire j'ai mis dans un 'sub' la requête de mon tableau :
Mais je n'ai aucune idée de la façon dont je pourrais réalisé ceci, et mon amis google ne ma pas vraiment aidé sur ce coup, alors si quelqu'un a déjà rencontré le même problème !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Public Shared Sub rafaraichi_moi() Dim da As MySqlDataAdapter Dim dst As New DataSet Dim Hostconn As New MySqlConnection Hostconn.ConnectionString = "server=localhost;user id=root; password=;database=trans18" Try Hostconn.Open() da = New MySqlDataAdapter("SELECT * FROM telephone ORDER BY statut", Hostconn) da.Fill(dst, "telephone") Form1.DataGridView1.DataSource = dst.Tables("telephone") Form1.DataGridView1.Columns("id_tel").Visible = False Form1.DataGridView1.Columns("identite").Width = 320 Form1.DataGridView1.Columns("telephone").Visible = False Form1.DataGridView1.Columns("statut").Visible = False Form1.DataGridView1.Columns("modifie").Width = 250 'ici je souhaiterais rajouter la colonne qui me comparerais la date actuel à l'enregistrement !!! Form1.DataGridView1.AllowUserToAddRows = False Form1.DataGridView1.RowHeadersVisible = False Form1.DataGridView1.ColumnHeadersVisible = False 'enleve l'entéte de chaque colonne du tableau Form1.DataGridView1.AllowUserToResizeColumns = False 'empeche de redimenssionner la largeur des colonnes Form1.DataGridView1.AllowUserToResizeRows = False 'on autorise pas à modifier la hauteur de ligne Form1.DataGridView1.ReadOnly = True Form1.DataGridView1.ClearSelection() Catch ex As MySqlException MessageBox.Show("erreur de connexion a la base : " & ex.Message) End Try Hostconn.Close() End Sub
d'avance merci
Partager