حفظ نفس المعلومات في جدولين

rmzh24 كتب:

اخواني الاعضاء اسعد الله اوقاتكم

عندي كود استخدمة في الحفظ في جدول واحد

كيف يمكن حفظ نفس المعلومات في جدولين وهذا هو الكود علما ان الجدول الثاني tab2

واستخدم اكسس 2003 وVB2008

السلام عليكم

استخدم الكود التالي

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim AddInto As New OleDb.OleDbCommand("insert into Tab1 ([ID],[Name],[Phone],[DateInfo])values ('" & Label1.Text.Trim & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & "')", con)
con.Open()
AddInto.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "Tab1")
DataAdapter1.Update(DataSet1, "Tab1")
con.Close()

Dim AddInto2 As New OleDb.OleDbCommand("insert into Tab2 ([ID],[Name],[Phone],[DateInfo])values ('" & Label1.Text.Trim & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & "')", con)
con.Open()
AddInto2.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "Tab2")
DataAdapter1.Update(DataSet1, "Tab2")
con.Close()
End Sub

ا شكرك اخي العزيز Mady-AGC على هذا الرد

ولكن عند تطبيق الكود على المثال لم تنجح

اليك المثال في المرفقات

8888888.rar