عملت برنامج لادخال الدرجات واحتاج الي الكود الذي يمكني من اظهار المجموع لهذه الدرجات
البرنامج يستخدم datacontrol
واكسس
سؤال عن كود لاستخراج المجموع
هو الطلب صعب ولا ايه ؟؟؟؟؟؟؟؟؟؟
بفرض ان حقل اسم الطالب : Name - وحقل درجات الطالب لمادة معينة : Degree
الاستعلام التالي يقوم بعرض مجموع درجات الطالب Ahmed لكل المواد :
"Select Sum(Degree) As Total_Degrees From Table Where Name = 'Ahmed'"
* ملاحظة : الإستعلام السابق يجب ان يكون حقل الدرجات من نوع "رقم" , إذا كان نوع الحقل ليس رقم يوضع الحقل بداخل دالة Val
وتكون الصيغة كالآتي :
"Select Sum(Val(Degree)) As Total_Degrees From Table Where Name = 'Ahmed'"
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
مشكور اخي على ردك ولكن اين اضع هذا الكود هل في حدث الload للفورم ام في text?_chang
هذا الكود يا اخي يسمى استعلام بإستخدام جمل الـ SQL وهي لغة الاستعلامات البنوية للتعامل مع قواعد البيانات , والكود السابق يستخدم كالتالي
Data1.RecordSource = "Select Sum(Degree) As Total_Degrees From Table Where Name = 'Ahmed"
Data1.Refresh
ولمعرفة ما تستطيع عمله بهذه الجمل حمل الدرس بالمرفقات
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 11 نوفمبر 2009 في 23:48
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
الشكر لله اولا ثم اليك اخي الكريم ولكن سؤالي بخصوص هذا الكود اين تتم كتابته
بمعنى ادق تحت اي حدث من احداث المشروع
الشكر لله وحده يا اخي
بالمرفقات مثال بسيط جدا بالفيجوال والاكسس يعرض درجات الطلاب ويعرض مجموع درجات الطالب الذي تختاره
المثال فقط لتوضيح فكرة الكود السابق وكيف يمكنك استخدامه
لكن تحت اي حدث تضعه فهذا يرجع اليك والغرض الذي تريده من الكود ومتى يظهر مجموع الدرجات
فأنا مثلا في المثال جعلت البرنامج يظهر مجموع الدرجات بإختيار اسم الطالب ثم الضغط علي زر "عرض مجموع الدرجات" , فلذك وضعط الكود تحت حدث الـ Click الخاص بالـ Command Button ,,,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
مشكور اخوي على الرد
ولكن هذا المثال لماده واحده واسم متكرر
المثال يتلخص في الاتي:
كل طالب يدرس 3 مواد(sub1+sub2+su3)
اريد ان يظهر المجموع تلقائي لهذه المواد الثلاثه دون تدخل من المستخدم
جربت الكود في المثال السابق ولم يؤدي الغرض المطلوب
اخي اعطيني المثال مع توضيع المطلوب وبإذن الله احقق لك ما تريده علي المثال
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
كل ما كنت تريده هو عرض حقل إضافى في الجريد يعرض مجموع ثلاث حقول اخرى لنفس السجل
تم تنفيذ المطلوب على Form5 لتوضيح الفكرة
والكود المسؤال عن ذلك هو الكود الاتي في الفورم
SQ1 = "select name as الاسم,sub1 as المادة_الاولى,sub2 as المادة_الثانية,sub3 as المادة_الثالثة,sub1+sub2+sub3 as المجموع from student"
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اخي الفاضل انا عارف اني تقلت عليك بس انا عايز المجموع يتخزن في قاعده البيانات كده المجموع مش متخزن في قاعده البيانات
اخي اذا كنت تريد إضافة المجموع في حقل المجموع بقاعدة البيانات فكان يجب عليك عمل هذا مع كود إدخال الدرجات وهذا سهل , حيث عند ادخال درجات الطالب كود الحفظ يقوم بحفظ الدرجات وجمعهم ووضعهم في حقل المجموع .
ومع ذلك عملتلك كود يجمع كل حقول الدرجات لكل طالب ويضعها في حقل المجموع
هذا الكود يعمل على جميع الطلاب بقاعدة البيانات حتى ولو كانوا آلاف الطلاب فسيقوم بجمع درجاتهم وحفظ المجموع في حقل الـ Total في اقل من ثانية بإذن الله
- تجد الكود في Form5 مع ملاحظة اني استخدمت المكتبة Microsoft DAO 3.51 Object Library
فإذا اردت استخدام الكود في برنامج آخر فيجب إضافة هذه المكتبة ليعمل الكود
وبالتوفيق ,,,
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 13 نوفمبر 2009 في 16:09
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
مشكوووووووووووووووور جدا اخي الكريم على تعديلك على البرنامج وفعلا قمت بعمل المطلوب بحيث ان الدرجات تجمع تلقائيا وتخزن تلقائيا في قاعده البيانات عن طريق الفورم 2 في حدث load للفروم
وهذا هو الكود
الشرح والايضاح لاي شخص يريد الكود
Dim db2 As Database
Set db2 = OpenDatabase(App.Path & "\school.mdb")
حيث school هو اسم قاعده البيانات والمسارالخاص بها
On Error Resume Next
db2.Execute "Update student set total = sub1+sub2+sub3"
حيث db2.execute هو لتنفيد امر على قاعده البيانات
total هو اسم الحقل المراد اظهار فيه المجموع
sub1+sub2+sub3 اسماء الحقول المراد جمعها
Data1.Refresh
وقد ادى المطلوب في البرنامج
تم تعديل هذه المشاركة بواسطة najahaja في 13 نوفمبر 2009 في 19:31
najahaja كتب:المثال في المرفقات
----------------------------------------------------------------------------------------------------
استاذي العزيز
السلام عليكم ورحمة وبركاته
احب ان اقد لكم جزيل الشكر والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام والتقدير