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 |
Partager