[vbnet]

.....

منقول

كود :

Public Class Form1

    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=db1.mdb;")
    Dim dt As New DataTable
    Dim sql As String = " SELECT * FROM [table1] "

    ' عند فتح النموذج يتم استيراد البيانات من قاعدة البيانات إلى الداتاجريدفيو
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Using da As New OleDb.OleDbDataAdapter(sql, con)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End Using
    End Sub

    '  عند غلق النموذج يتم تصديـر البيانات من الداتاجريدفيو إلى قاعدة البيانات
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        Using da As New OleDb.OleDbDataAdapter(sql, con)
            Using builder As New OleDb.OleDbCommandBuilder(da)
                da.Update(dt)
            End Using
        End Using
    End Sub

End Class