[الطالب]

سلام

هذا ابسط مثال على اساس لديك متغير ID فيه رقم السجل ومتطابق في كل جدول وهنا افترضت ان الجداول مترابطه

كود :

Dim connectionString As String = "Provider=.......الى اخره"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using con As New OleDbConnection(connectionString)
        con.Open()

        Dim tran As OleDbTransaction
        tran = con.BeginTransaction

        Using cmd As New OleDbCommand(Nothing, con)

            cmd.Transaction = tran


            cmd.CommandText = "UPDATE [table1] SET ([col1]=?, [col2]=? WHERE [id]=? "
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@col1", txt_Name.Text.Trim)
            cmd.Parameters.AddWithValue("@col2", txt_phone.Text.Trim)
            cmd.Parameters.AddWithValue("@id", ID)
            Dim update1 As Integer = cmd.ExecuteNonQuery()

            cmd.CommandText = "UPDATE [table2] SET ([col1]=?, [col2]=? WHERE [id]=? "
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@col1", txt_Name.Text.Trim)
            cmd.Parameters.AddWithValue("@col2", txt_phone.Text.Trim)
            cmd.Parameters.AddWithValue("@id", ID)
            Dim update2 As Integer = cmd.ExecuteNonQuery()

            cmd.CommandText = "UPDATE [table3] SET ([col1]=?, [col2]=? WHERE [id]=? "
            cmd.Parameters.Clear()
            cmd.Parameters.AddWithValue("@col1", txt_Name.Text.Trim)
            cmd.Parameters.AddWithValue("@col2", txt_phone.Text.Trim)
            cmd.Parameters.AddWithValue("@id", ID)
            Dim update3 As Integer = cmd.ExecuteNonQuery()


            If (update1 > 0) And (update2 > 0) And (update3 > 0) Then
                tran.Commit()
                MsgBox("تمت الاضافة")
            Else
                tran.Rollback()
                MsgBox("فشلت الاضافة")
            End If

        End Using

        con.Close()
    End Using
End Sub

موفقين