منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عندي مشكلة في تعديل بيانات بين جدولين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي جدولين واريد تعديل بيانات بناء علي  كود موظف المشترك بين جدولين مانبي عملية اضافة اريد مجرد مايلقي كود موظف يعدل بيانات الي نا مجدد ارجو ساعدني جزاك الله الف خير
كود :
  rs5.Open "SELECT * FROM [Table8] ", db, adOpenDynamic, adLockOptimistic  'DB, adOpenStatic, adLockOptimistic
  rs6.Open "SELECT * FROM [Table9] where  n1= '" & rs5![n1] & "' and  n4 ='" & rs5![n9] & "'  ", db, adOpenDynamic, adLockOptimistic
  If rs5.RecordCount > 0 Then rs5.MoveFirst
  If rs6.RecordCount > 0 Then rs6.MoveLast
  Do Until rs5.RecordCount
      rs6![n2] = rs5![n3]
      rs6.Update
      rs5.MoveNext
  Loop
إذا كنت ناوي تعدل كل أسماء الموظفين الموجودين في الجدول8  ضمن الجدول التاسع في حال وجودهم

أكتب كامل كود الاستعلام والتعديل لـ Rs6  ضمن الحلقة الدورانية لـ Rs5
بيصير الكود يشوف السجل الأول من الجدول الثامن ، ثم يبحث عنه في الجدول التاسع، ثم يعدله ، ثم يحفظ، ثم ينتقل للسجل التالي في الجدول الثامن ... حتى النهاية ...
يمكنك استخدام الكود التالي 
كود :
db.Execute "UPDATE Table9 INNER JOIN Table8 ON Table9.n1 = Table8.n1 AND Table9.n9 = Table8.n4 SET Table9.n2 = Table8.n3"