(19-08-15, 10:42 PM)الطالب كتب : سلام

هذا ابسط مثال على اساس لديك متغير 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

موفقين

(19-08-15, 11:14 PM)khodor1985 كتب : إليك هذا المثال أخي العزيز

PHP كود :

Private conn As OleDbConnection = New OleDbConnection(connStr)
conn.Open()
Dim str As String = "SELECT * FROM Heading"
Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(str, conn)
Dim ds1 As DataSet = New DataSet("Heading")
da1.Fill(ds1, "Heading")
Dim ds2 As DataSet = New DataSet("SubHead")
str = "SELECT * FROM SubHeading"
Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(str, conn)
da2.Fill(ds2, "SubHeading")
Dim ds3 As DataSet = New DataSet("Link")
str = "SELECT * FROM Link"
Dim da3 As OleDbDataAdapter = New OleDbDataAdapter(str, conn)
da3.Fill(ds3, "Link")
ds1.Merge(ds2)
ds1.Merge(ds3)
dataGrid1.DataSource = ds1.DefaultViewManager
conn.Close() 


أتمنى لك التوفيق

(19-08-15, 11:32 PM)khodor1985 كتب : نعم صحيح فقد اجتزءت من الكود
ولكن ما تفكر به صحيح

(19-08-15, 11:54 PM)khodor1985 كتب : نعم صحيح ما في مشكلة أخي العزيز

---

ملاحظة أخي العزيز
المنطق البرمجي يقول أن كل DataAdapter يغذي DataTable واحد فقط
فإذا تعددت الجداول فلا بد من إنشاء DataAdapter لكل DataTable

ما هي وظيفة DataAdapter ؟
إستقبال البيانات من قاعدة البيانات وتغذية  DataTable أو  DataSet أو التأثير على قاعدة البيانات من خلال SqlCommand، فلا يمكن للـ DataAdapter أن يقوم بالتأثير على قاعدة البيانات إلا من خلال أمر وهذا الأمر يتضمن الجملة التنفيذية كـ Insert,Delete,Update.

وعليه، لا بد من إنشاء أكثر من DataAdapter في حالة تعدد DataTable.
أتمنى لك التوفيق