كيفية تحديث قاعدة بيانات

السلام عليكم ورحمة الله

الطريقة بشكل عام هي عمل اتصال بالجدولين من القاعدتين ثم المقارنة بين التحديثات كمايلي :

Do While Not rsNew.EOF
rsOld.Find "id=" & rsNew!id, , , adBookmarkFirst
Dim iLoop As Integer
If rsOld.EOF Then

' يمكن  وضع كود لمقارنة بقية الحقول مثل الاسم وغيرها والتعديل بدل الاضافة
rsOld.AddNew
For iLoop = 0 To rsOld.Fields.Count - 1
rsOld(iLoop) = rsNew(iLoop)
Next

rsOld.Update

End If


rsNew.MoveNext
Loop

الف شكر اخي الكريم على حسن الاجابة الرائعة ولكن ممكن ترفق مثال بسيط حول هذه الطريقة المميزة

تفضل اخي  الكريم  مثال بسيط

compdb.rar

============================

على كل حال اخي الف شكر الك ولكن ممكن من فضلك المضمون او الكود للمثال السابق وليس الشكل فقط

مع العلم هل بامكاننا ان لا نتقيد ان تكون القاعدة الجديدة او الجدول الجديد في مسار البرنامج عند الاستيراد

اي عند الضغط على زر تحديث من البرنامج تظهر لنا عن طريق commondialog نافذة الحوار لاستيراد

الجدول المحدث من اي مكان في الحاسب اي فقط اريد عند الاستيراد ان ينزل البيانات الجديدة ويحذف القديمة

دون النظر الى عناوين الصفوف او التقيد بان يكون اسم الجدول الجديد مثل القديم اي اخي اريد تنزيل البيانات

مهما كانت من اي جدول في اي قاعدة بيانات يعني اخي في مثالك يوجد في مسار البرنامج قاعدتين db1-db2

لو فرضنا db1هي القاعدة القديمة التي تحتوي جدول t1 يحوي صفين id,name الان هل يمكن استيراد القاعدةdb2 مهما تكن

مكانها في الحاسب ومهما يكن اسم الجدول ومهما يكن اسماء عناوين الصفوف اي فقط اريد استيراد البيانات فقط من اي جدول

عذرا جدا جدا جدا على الاطالة ولكن بقصد التوضيح من اجل المساعدة