تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على كود استخراج الطلبة العشرة الأوائل
#1
هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكرر
مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا

كود :
SQL = "delete * from TBL_first1"
DB.Execute SQL

Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
SQL = "insert into TBL_first1 Select top 10 Name_Student, Clas, CClas, Category, SETNO1, Semester, total, FINAL, takdeer, result, TAG From TBL_Final2 where  result='ناجح' And Clas='" & Trim(CombClass2.Text) & "' And CClas='" & Trim(CombCClass2.Text) & "' And Semester=3" & " order by total DESC"

DB.Execute SQL

RS.Open "Select * from TBL_first1", DB, adOpenStatic, adLockOptimistic
For I = 1 To RS.RecordCount
If I = 1 Then RS!trteeb = "الأول"
If I = 2 Then RS!trteeb = "الثاني"
If I = 3 Then RS!trteeb = "الثالث"
If I = 4 Then RS!trteeb = "الرابع"
If I = 5 Then RS!trteeb = "الخامس"
If I = 8 Then RS!trteeb = "السادس"
If I = 7 Then RS!trteeb = "السابع"
If I = 8 Then RS!trteeb = "الثامن"
If I = 9 Then RS!trteeb = "التاسع"
If I = 10 Then RS!trteeb = "العاشر"

If I = 1 Then RS!ID = "1"
If I = 2 Then RS!ID = "2"
If I = 3 Then RS!ID = "3"
If I = 4 Then RS!ID = "4"
If I = 5 Then RS!ID = "5"
If I = 6 Then RS!ID = "6"
If I = 7 Then RS!ID = "7"
If I = 8 Then RS!ID = "8"
If I = 9 Then RS!ID = "9"
If I = 10 Then RS!ID = "10"

RS.MoveNext
Next I
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#2
(29-12-21, 02:49 AM)سعود كتب :
إقتباس :هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكرر

مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا
نعم يمكن ذلك .. وذلك بكود استعلام باجراء مستقل ترسل له  الرقم قبل اسناده ليتحقق منه ثم يعيد النتيجة وبناءا عليه يتم التحديد هل مكرر ام لا.

اعرف اخي سعود أنه يمكن ولكن أقصد هل يمكن أو يتكرم أحد الأساتذة بالتعديل على الكود؛ لأنني حاولت مرات عديدة وفشلت.
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#3
هذا مثالٌ مقطوعُ من المشروع أريد فيه التعديل على كود استخراج الطلبة العشرة الأوائل حسب الصف والشعبة
لمجموع درجات الفصلين وذلك بناءُ على القيمة (3) للحقل (Semester) في الجدول (TBL_Final2)
والحفظ في الجدول (TBL_first1)

والمطلوب: التعديل على الكود بحيث يتم معرفة الترتيب المكرر ليُصبح هكذا: الأول . الأول مكرر - الثاني . الثاني مكرر .... وهكذا
علماً [ان المثال قد تكرر التريب الأول لطالب في الصف الول والمفروض يكون الأول . الأول مكرر ولكنه اخذ الترتيب الثاني وهذا خطاأ كبير

فأرجو التعديل حسب المثال المرفق

.rar   الطلبة العشرة الأوائل.rar (الحجم : 732.25 ك ب / التحميلات : 25)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#4
(29-12-21, 08:31 PM)سعود كتب : لم يعمل لدي المشروع اتوقع السبب ان نظام التشغيل عندي 64 بت  ويندوز 11.
يفترض ان تصمم مثال بسيط لتعرف الفكرة افضل من رفع مشروع ضخم مثل هذا.
على كل حال الاخوة الفضلاء لن يقصروا بتقديم المساعدة بحل الاشكال.
أتأسف لعدم تمكني من تقديم المساعدة بهذا الخصوص.
Huh

جزاك الله كل خير أخي سعود ما قصرت, والمثال عبارة عن فورمين وقاعدة بيانات وتقرير فقط وليس ضخم
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: سعود
#5
السلام عليكم
السبب عدم عمل البرنامج عندك يطلب تسجيل بعض ملفات الـ OCX
وهذا بسبب أن برنامج VB6.0 لم يتم تثبيته بشكل كامل
وهذه المشكلة موجودة منذ اصدار ويندوز 10
وتحتاج لاجراءات تعملها أثناء تثبيت التطبيق كي يتم تثبيت الاصدار كامل
منها إلغاء اختيار تثبيت ADO ..
والغاء اختيار فيجول استديو انلايزر.. 
وذلك حتى يتم تثبيت النسخة بشكل كامل ..


الملفات المرفقة صورة/صور
   
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: سعود , ahmedabdelaliem
#6
Photo 
السلام عليكم

تفضل اخي


الملفات المرفقة صورة/صور
   

.rar   TopTen.rar (الحجم : 1.44 م ب / التحميلات : 33)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: مصمم هاوي , سعود
#7
(30-12-21, 03:21 PM)ahmedabdelaliem كتب : السلام عليكم

تفضل اخي

سقاك الله كوثراً من حوض المصطفى صلى الله عليه وسلم.

والكود الجميل قام بحل الإشكال الحاصل لدى إلا خاصية الطباعة, وحيث أن المثال المرفق كان يقوم بحفظ الطلبة العشرة الأوائل في الجدول (TBL_first1)
وذلك بعد إختيار اسم الصف والشعبة وصفة القيد.
ولكن مثالك الرائع أوحى إلىَّ فكرة إلغاء جدول الحفظ والاكتفاء بعرض بيانات الطلبة الأوائل في جدول (MSHFlexGrid) ومنه يتم طباعة هذه البيانات.
وأعتقد أن هذا أفضل من الحفظ في الجدول ؛ ولأن الفليكس قريد أفضل في عرض مجموعة بيانات  كاسم الطالب والصف والشعبة والترتيب.
فياليت تكرمت أستاذي الكريم بتغيير الليست بوكس إلى آداة الفليكس بوكس
بحيث كلما اخترت صفا دراسيا عرض الأوائل في الفليكس قريد بدون الحفظ في الجدول
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem , ahmedabdelaliem , سعود
#8
الله يكرمك على الكلمات الطيبه
ان شاء الله لما اجلس على الكمبيوتر اعملك طلبك
بالتوفيق
محاسب / أحمد عبد العليم

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

تم التعديل اخي حسب طلبك عرض البيانات في الجريد وايضا طباعتها

بالتوفيق


الملفات المرفقة
.rar   TopTen1.rar (الحجم : 1.44 م ب / التحميلات : 56)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: سعود , سعود , مصمم هاوي
#10
(31-12-21, 07:04 PM)ahmedabdelaliem كتب : السلام عليكم 

تم التعديل اخي حسب طلبك عرض البيانات في الجريد وايضا طباعتها

بالتوفيق

والله يعجز اللسان عن الشكر والتقدير.
وتقف اليدان عن التدوين والتحرير
ولكن خلجات القلب هى من تعبر
ودقات القلب هى من تفسر كل ما اكنه من حب ممزوج بالمودة الطيبة
فلك مني كل احترام
ولك مني كل دعوة صادقة بأن يرزقك النظر إلى وجهه الكريم
حياك الله أخي الحبيب وأستاذي القدير أحمد عبد العليم.
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem , ahmedabdelaliem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 3 1,228 12-10-22, 07:36 PM
آخر رد: مصمم هاوي
  طلب التعديل على كود الجمع مصمم هاوي 2 1,153 10-04-22, 12:02 AM
آخر رد: مصمم هاوي
  التعديل على كود جلب بيانات من جدولين مصمم هاوي 8 1,546 24-11-21, 10:51 PM
آخر رد: مصمم هاوي
  [vb6.0] ارجو التعديل على كود الطباعه ragab_most 3 952 14-11-21, 04:45 AM
آخر رد: ragab_most
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,795 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  طباعة بيانات الطلبة في الفليكس قريد مصمم هاوي 1 1,117 11-04-21, 01:58 AM
آخر رد: مصمم هاوي
  طريقة استخراج إنتهاء الاشتراك لعملاء ahmed250 2 1,328 17-08-20, 11:42 AM
آخر رد: ahmed250
  التعديل على تطبيق متعلق بالدالة Randomize gonm64 5 1,784 23-05-20, 08:25 PM
آخر رد: Ahmed_Mansoor
  الرجاء التعديل علا المثال wolf1120 14 3,847 02-01-20, 12:11 AM
آخر رد: Ahmed_Mansoor
  الرجاء التعديل علا المثال المرفق wolf1120 2 1,477 15-10-19, 08:15 PM
آخر رد: elgokr

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


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