[سعود]

مثال بسيط جدا احببت ان اخطه بيدي اقصد اشارك به وهو كالتالي:
نضيف عدد 2 شبيكة بيانات وزر امر
في منطقة التصريحات العامة نكتب
رمز برمجي:

كود :

Dim str As String = "provider=microsoft.ace.oledb.12.0; data source=|datadirectory|\db.accdb"
    Dim con As New OleDb.OleDbConnection(str)

    Dim sql1 As String = "select * from tb1"
    Dim sql2 As String = "select * from tb2"


    Dim ds1 As New DataSet
    Dim ds2 As New DataSet

    Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)
    Dim da2 As New OleDb.OleDbDataAdapter(sql2, con)

وعند حدث تحميل النموذج نكتب
رمز برمجي:

كود :

If con.State = ConnectionState.Open Then
            con.Close()
        End If


        ds1.Clear()
        ds2.Clear()

        DataGridView1.DataSource = Nothing
        DataGridView2.DataSource = Nothing

        da1.Fill(ds1, "tb1")
        da2.Fill(ds2, "tb2")



        DataGridView1.DataSource = ds1
        DataGridView1.DataMember = "tb1"


        DataGridView2.DataSource = ds2
        DataGridView2.DataMember = "tb2"

وعند حدث النقر للزر نكتب
رمز برمجي:

كود :

Dim cm As New OleDb.OleDbCommand("insert into tb2 select * from tb1", con)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            cm.ExecuteNonQuery()
            Call Form1_Load(Me, e)

        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
        End Try

انتهى!
هذا الكود مفيد لو حبيت اخذ نسخة من الجدول لجدول آخر عند التعديل او الحذف ولو احببت استرجاع النسخة فقط بدل في اسماء الجداول في جملة التنفيذ cm