[تركي قرمزلي]

السلام عليكم و رحمة الله و بركاته

كود :

Public Class Form1
    Dim Conn As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=c:\windows\MyBDD.mdb;jet oledb:database password='1234'")
    Dim dataAdapter1 As New OleDb.OleDbDataAdapter("select * from vehicule", Conn)
    Dim MyTable As New DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dataAdapter1.Fill(MyTable)
        DataGridView1.DataSource = MyTable
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmdb As New OleDb.OleDbCommandBuilder(dataAdapter1)
        dataAdapter1.Update(MyTable)
    End Sub
End Class

السلام عليكم و رحمة الله و بركاته