تقييم الموضوع :
  • 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 ك ب / التحميلات : 7)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله 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 ك ب / التحميلات : 3)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#10
السلام عليكم 

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

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

بالتوفيق


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question كيف يمكن فتح ملف exe من خلال برنامجي ؟؟ Microformt 2 195 02-05-22, 12:21 AM
آخر رد: Microformt
  مشكلة في بيانات تقرير اكتيف ريبورت مصمم هاوي 2 359 26-02-22, 07:35 PM
آخر رد: مصمم هاوي
Wink [vb6.0] قراءة بيانات من AUTOMATE bobsa 0 176 08-02-22, 07:16 PM
آخر رد: bobsa
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 2 416 01-01-22, 01:17 AM
آخر رد: hamada salah90
  [vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس hamada salah90 2 361 12-12-21, 11:12 PM
آخر رد: hamada salah90
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 526 05-12-21, 12:04 AM
آخر رد: hamada salah90
  [vb6.0] أريد كود [حذف جميع الأصناف] من الطلبية وعودة رصيدها لجدول رصيد المخازن hamada salah90 3 404 27-11-21, 02:53 AM
آخر رد: ahmedabdelaliem
  التعديل على كود جلب بيانات من جدولين مصمم هاوي 8 595 24-11-21, 10:51 PM
آخر رد: مصمم هاوي
  سؤال بحث بعددة قواعد بيانات دفعة واحدة وإظهار النتيجة؟؟؟ KamelArab 4 640 23-11-21, 05:13 PM
آخر رد: ahmedabdelaliem
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 453 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى

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


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