1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Private Sub afficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mycommand As OleDbCommand = ole.CreateCommand()
Dim dt As DataTable
Mycommand.CommandText = "SELECT * FROM Machine"
da = New OleDbDataAdapter(Mycommand)
da.Fill(ds, "Machine")
dt = ds.Tables("Machine")
DataGrid1.DataSource = dt 'Remplisage du datagrid
End Sub
Private Sub miseàjours_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
da.Fill(ds)
da.Update(ds, "Machine") 'mise à jours
End Sub |
Partager