منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
هل يمكن تحديث بيانات من استعلام لجدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : هل يمكن تحديث بيانات من استعلام لجدول (/showthread.php?tid=39823)

الصفحات: 1 2

هل يمكن تحديث بيانات من استعلام لجدول - مصمم هاوي - 30-10-21

الاساتذة الكرام
تدور في ذهني فكرة مفادها تحديث بيانات جدول عن طريق استعلام الجدول نفسه.
وللتوضيح أكثر أقول:
مثلا: عندي جدول اسمه TB1 اخزن فيه رقم الطالب واسمه والصف والشعبة و ....... والدرجات.
وعن طريق الاستعلام أقوم باحتساب المجموع الكلي والمعدل والتقدير والنتيجة النهائية.
وما أريده بالضبط هو: بوتن عند الضغط عليه يقوم بتحديث البيانات وهى: المجموع الكلي والمعدل والتقدير والنتيجة النهائية لكل طالب من استعلام الجدول للجدول نفسه
وذلك كلما تم تسجيل درجات مادة واحدة أو عدة مواد.
فهل يمكن تحقيق هذه الفكرة أم لا ؟!
لو لم تتضح الفكرة ارفق مثالا يوضح هذه الفكرة .....

RE: هل يمكن تحديث بيانات من استعلام لجدول - Taha Okla - 30-10-21

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

الافضل أن ترفق المشروع وتحدد عليه ما تريد
لأن فكرتك تختلف من شخص لآخر بحسب طريقة تنفيذها
فأشخاص يريدونها معدل للمادة الواحدة(فلكل مادة مجموعة تقييمات) والبعض يريدها معدل لكل المواد(فلا يكتب سوى معدل نهائي للمادة).

RE: هل يمكن تحديث بيانات من استعلام لجدول - مصمم هاوي - 30-10-21

(30-10-21, 05:15 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

الافضل أن ترفق المشروع وتحدد عليه ما تريد
لأن فكرتك تختلف من شخص لآخر بحسب طريقة تنفيذها
فأشخاص يريدونها معدل للمادة الواحدة(فلكل مادة مجموعة تقييمات) والبعض يريدها معدل لكل المواد(فلا يكتب سوى معدل نهائي للمادة).

بارك الله فيك على سرعة الرد.
وهذا مثالٌ مقتطع من المشروع أريد تحديث بيانات الجدول TBL_FinaL2 من خلال استعلام  الجدول نفسه Q_Exim1
ملاحظة: نجحت الطريقة عند تغيير جدول آخر ولكنني أريد التحديث في نفس جدول الاستعلام

تم حذف المرفق

RE: هل يمكن تحديث بيانات من استعلام لجدول - ahmedabdelaliem - 31-10-21

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

بالتوفيق

RE: هل يمكن تحديث بيانات من استعلام لجدول - مصمم هاوي - 31-10-21

(31-10-21, 11:21 AM)ahmedabdelaliem كتب : ممكن ترسل اسم الجدول اسماء الحقول المطلوب جمعها واعادة تحديثها لان اللغه العربية غير متوفره عندي

بالتوفيق

مشكور استاذ ahmedabdelaliem على ردك القيم
اسم الفورم Form_Semester2 (رصد درجات نهاية الفصل الأول لمرحلة النقل + رصد درجات نهاية الفصل الثاني لمرحلة النقل)
اسم الجدول المراد تحديث بياناته TBL_Final2
اسم الاستعلام  Q_Final2
اسماء الحقول المراد جمعها هى: TR1 . TR2 . TR3 . TR4 . TR5 . TR6 . TR7 . TR8 . TR9 . TR10 . TR11 . TR12
واسم الحقل المراد وضع المجموع الكلي هو: total
واسم حقل المعدل هو: FINAL
واسم حقل التقديـــر هو: takdeer
وأخيراً اسم حقل النتيجة النهائية للطالب هو: result

تم حذف المرفق

RE: هل يمكن تحديث بيانات من استعلام لجدول - ahmedabdelaliem - 01-11-21

السلام عليكم

اخي راجع نفس الفورم  
تم انشاء  زرار جديد باسم UpDate Total

راجع الكود وسوف تفهم 

ملحوظه تم انشاء جدول داخل قاعدة البيانات لان لا يوجد بها جداول

هذا هو نص الكود 

PHP كود :
Private Sub cmdUpdateTotal_Click()
Dim rsTotl As New ADODB.Recordset
Dim rsSaveTotl As New ADODB.Recordset
rsTotl.Open "select (TR1+TR2+TR3) as Tot from tbl1 where id=1", DB, adOpenStatic, adLockOptimistic
rsSaveTotl.Open "select total from tbl1 where id=1", DB, adOpenStatic, adLockOptimistic
If rsSaveTotl.RecordCount > 0 Then
rsSaveTotl.Fields(0).Value = rsTotl.Fields(0).Value
rsSaveTotl.Update
rsSaveTotl.Requery
MsgBox ("Data Saved"), vbInformation, "Data Saved"
End If
End Sub 

بالتوفيق

RE: هل يمكن تحديث بيانات من استعلام لجدول - مصمم هاوي - 01-11-21

(01-11-21, 11:02 AM)ahmedabdelaliem كتب : السلام عليكم

اخي راجع نفس الفورم  
تم انشاء  زرار جديد باسم UpDate Total

راجع الكود وسوف تفهم 

ملحوظه تم انشاء جدول داخل قاعدة البيانات لان لا يوجد بها جداول

هذا هو نص الكود 

PHP كود :
Private Sub cmdUpdateTotal_Click()
Dim rsTotl As New ADODB.Recordset
Dim rsSaveTotl As New ADODB.Recordset
rsTotl.Open "select (TR1+TR2+TR3) as Tot from tbl1 where id=1", DB, adOpenStatic, adLockOptimistic
rsSaveTotl.Open "select total from tbl1 where id=1", DB, adOpenStatic, adLockOptimistic
If rsSaveTotl.RecordCount > 0 Then
rsSaveTotl.Fields(0).Value = rsTotl.Fields(0).Value
rsSaveTotl.Update
rsSaveTotl.Requery
MsgBox ("Data Saved"), vbInformation, "Data Saved"
End If
End Sub 

بالتوفيق

بارك الله فيك أستاذ أحمد عبد الحليم ولكن ليس هذا هو المطلوب
فالمطلوب هو تحديث بيانات الجدول TBL_Final2  حسب الاستعلام Q_Final2
ونلاحظ أن المجموع الكلي والمعدل والتقدير والنتيجة تم احتسابها في الاستعلام Q_Final2  حسب التوضبح التالي:
واسم الحقل المراد وضع المجموع الكلي هو: total
واسم حقل المعدل هو: FINAL
واسم حقل التقديـــر هو: takdeer
وأخيراً اسم حقل النتيجة النهائية للطالب هو: result

هذا هو المطلوب وليس كما تفضلت مشكوراً بجمع الدرجات، فهذا الأمر قد تكفل بها الاستعلام وإنما المطلوب فقط هو:
تحديث المجموع الكلي : total
وتحدبث  المعدل هو: FINAL
وتحديث التقديـــر هو: takdeer
وتحديث  النتيجة النهائية للطالب هو: result

تنبيه: ربما لإيظهران عندك الجدول  tbl_final2 والاستعلام Q_final2
لأنهما مخفيان

شاكراً لكم مجدداً تعاونكم البناء ونصائحكم القيمة

RE: هل يمكن تحديث بيانات من استعلام لجدول - ahmedabdelaliem - 02-11-21

اخي اظهر الجداول واعمل فقط الفورم المراد التعديل في وغير اسم زر التحديث الى اي اسم انجليزي انا الكمبيوتر عندي مفيش عربي فيه

بالتوفيق

RE: هل يمكن تحديث بيانات من استعلام لجدول - مصمم هاوي - 02-11-21

(02-11-21, 10:41 AM)ahmedabdelaliem كتب : اخي اظهر الجداول واعمل فقط الفورم المراد التعديل في وغير اسم زر التحديث الى اي اسم انجليزي انا الكمبيوتر عندي مفيش عربي فيه

بالتوفيق

حباً وكرامة أستاذ أحمد
تم إظهار الجدول والاستعلام و إنشاء فورم واحد فقط كما طلبت حيث زر Update هو الزر الخاص بنحديث بيانات الجدول tbl_final2  من خلال الاستلام Q_final2
وكما أسلفتُ سابقاً فإن المطلوب تحديث بيانات  التالي:
تحديث المجموع الكلي : total
وتحدبث  المعدل هو: FINAL
وتحديث التقديـــر هو: takdeer
وتحديث  النتيجة النهائية للطالب هو: result

تنبيه: الكود السابق في زر Update  يقوم بنسخ بيانات الاستعلام Q_final2 في جدول tbl_final8  - (وهو شغالٌ تمام وإن كان فيه مشكلة في تنسيق المعدل)
ولكن أريد تحديث البيانات في الجدول  tbl_final2

الملف بعد التعديل
 [attachment=27118]

RE: هل يمكن تحديث بيانات من استعلام لجدول - ahmedabdelaliem - 04-11-21

السلام عليكم 

تفضل اخي هذا الكود مهم للكثير من المبرمجين 

لا تنسى الدعاء لنا في ظهر الغيب

بالتوفيق