[محمد اسماعيل]

اريد تحديث بيانات جدولين مرتبطين مع بعض علاقة راس براس حيث الجدول الاول الاساسي tb1  والثاني tb2

استخدمت الكود التالي بعد استعادة خلايا الداتا جريد الي التيكست لتحديث البيانات ولكن لم يحدث شيء ولم يحدث البيانات

كود :

con.Open()
       Dim Sav As New OleDb.OleDbCommand
       Sav.Connection = con
       Sav.CommandType = CommandType.Text
       Sav.CommandText = "UPDATE tb1,tb2 SET tb1.clien_mail = '" & _
       TextBox2.Text & "' , tb1.model_mail = '" & _
        TextBox3.Text & "' , tb2.probl_acce = '" & _
       TextBox4.Text & "' , tb2.main_acce= '" & _
       TextBox5.Text & "' ,tb2.typ_acce = '" & _
      TextBox6.Text & "' where tb1.ID_mail = tb2.ID_acce '" & _
        Label2.Text & "'"
       Sav.ExecuteNonQuery()
       Dim DataAdapter As New OleDbDataAdapter("SELECT tb1.ID_mail ,tb1.clien_mail, tb1.model_mail, tb2.probl_acce,tb2.main_acce,tb2.typ_acce  FROM tb1, tb2 where tb1.ID_mail = tb2.ID_acce", con)
       DataSet1.Clear()
       DataAdapter.Fill(DataSet1, "tb1,tb2")
       DataGridView1.Refresh()
       count()
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       MsgBox("تم الاضافه والحفظ بنجاح")