تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن تحديث بيانات من استعلام لجدول
#1
Wink 
الاساتذة الكرام
تدور في ذهني فكرة مفادها تحديث بيانات جدول عن طريق استعلام الجدول نفسه.
وللتوضيح أكثر أقول:
مثلا: عندي جدول اسمه TB1 اخزن فيه رقم الطالب واسمه والصف والشعبة و ....... والدرجات.
وعن طريق الاستعلام أقوم باحتساب المجموع الكلي والمعدل والتقدير والنتيجة النهائية.
وما أريده بالضبط هو: بوتن عند الضغط عليه يقوم بتحديث البيانات وهى: المجموع الكلي والمعدل والتقدير والنتيجة النهائية لكل طالب من استعلام الجدول للجدول نفسه
وذلك كلما تم تسجيل درجات مادة واحدة أو عدة مواد.
فهل يمكن تحقيق هذه الفكرة أم لا ؟!
لو لم تتضح الفكرة ارفق مثالا يوضح هذه الفكرة .....
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

الافضل أن ترفق المشروع وتحدد عليه ما تريد
لأن فكرتك تختلف من شخص لآخر بحسب طريقة تنفيذها
فأشخاص يريدونها معدل للمادة الواحدة(فلكل مادة مجموعة تقييمات) والبعض يريدها معدل لكل المواد(فلا يكتب سوى معدل نهائي للمادة).
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: مصمم هاوي , أشرف كريم 2
#3
(30-10-21, 05:15 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

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

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

تم حذف المرفق
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: أشرف كريم 2
#4
ممكن ترسل اسم الجدول اسماء الحقول المطلوب جمعها واعادة تحديثها لان اللغه العربية غير متوفره عندي

بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: مصمم هاوي , مصمم هاوي
#5
(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

تم حذف المرفق
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

اخي راجع نفس الفورم  
تم انشاء  زرار جديد باسم 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"DBadOpenStaticadLockOptimistic
rsSaveTotl
.Open "select total from tbl1 where id=1"DBadOpenStaticadLockOptimistic
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 

بالتوفيق


الملفات المرفقة
.rar   نحديث الجدول بناء على الاستعلام.rar (الحجم : 992.29 ك ب / التحميلات : 17)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: مصمم هاوي , مصمم هاوي
#7
(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"DBadOpenStaticadLockOptimistic
rsSaveTotl
.Open "select total from tbl1 where id=1"DBadOpenStaticadLockOptimistic
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
لأنهما مخفيان

شاكراً لكم مجدداً تعاونكم البناء ونصائحكم القيمة
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#8
اخي اظهر الجداول واعمل فقط الفورم المراد التعديل في وغير اسم زر التحديث الى اي اسم انجليزي انا الكمبيوتر عندي مفيش عربي فيه

بالتوفيق
محاسب / أحمد عبد العليم

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

بالتوفيق

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

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

الملف بعد التعديل
 
.rar   نحديث الجدول بناء على الاستعلام.rar (الحجم : 23.72 ك ب / التحميلات : 6)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم 

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

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

بالتوفيق


الملفات المرفقة
.rar   نحديث الجدول بناء على الاستعلام.rar (الحجم : 47.19 ك ب / التحميلات : 16)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: مصمم هاوي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 195 09-01-24, 01:05 AM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء اسم البرنامج من النافدة هذه وضعة في textbox ؟ Microformt 1 161 02-01-24, 10:06 PM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء هذه الدالة وضعها تحت زر الامر ؟ Microformt 1 169 31-12-23, 11:52 PM
آخر رد: Taha Okla
Question [vb6.0] كيف اكتب استعلام إضافة بأسماء الحقول المجودة في الصورة ما عدى البريد الا لتكروني ؟ Microformt 0 224 24-11-23, 09:19 PM
آخر رد: Microformt
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 386 19-11-23, 10:49 PM
آخر رد: Microformt
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 220 21-10-23, 07:34 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم