هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكرر
مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا
كود :
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
(29-12-21, 02:49 AM)سعود كتب : [ -> ]إقتباس :هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكرر
مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا
نعم يمكن ذلك .. وذلك بكود استعلام باجراء مستقل ترسل له الرقم قبل اسناده ليتحقق منه ثم يعيد النتيجة وبناءا عليه يتم التحديد هل مكرر ام لا.
اعرف اخي سعود أنه يمكن ولكن أقصد هل يمكن أو يتكرم أحد الأساتذة بالتعديل على الكود؛ لأنني حاولت مرات عديدة وفشلت.
هذا مثالٌ مقطوعُ من المشروع أريد فيه التعديل على كود استخراج الطلبة العشرة الأوائل حسب الصف والشعبة
لمجموع درجات الفصلين وذلك بناءُ على القيمة (3) للحقل (Semester) في الجدول (TBL_Final2)
والحفظ في الجدول (TBL_first1)
والمطلوب: التعديل على الكود بحيث يتم معرفة الترتيب المكرر ليُصبح هكذا: الأول . الأول مكرر - الثاني . الثاني مكرر .... وهكذا
علماً [ان المثال قد تكرر التريب الأول لطالب في الصف الول والمفروض يكون الأول . الأول مكرر ولكنه اخذ الترتيب الثاني وهذا خطاأ كبير
فأرجو التعديل حسب المثال المرفق
[
attachment=27445]
(29-12-21, 08:31 PM)سعود كتب : [ -> ]لم يعمل لدي المشروع اتوقع السبب ان نظام التشغيل عندي 64 بت ويندوز 11.
يفترض ان تصمم مثال بسيط لتعرف الفكرة افضل من رفع مشروع ضخم مثل هذا.
على كل حال الاخوة الفضلاء لن يقصروا بتقديم المساعدة بحل الاشكال.
أتأسف لعدم تمكني من تقديم المساعدة بهذا الخصوص.
جزاك الله كل خير أخي سعود ما قصرت, والمثال عبارة عن فورمين وقاعدة بيانات وتقرير فقط وليس ضخم
السلام عليكم
السبب عدم عمل البرنامج عندك يطلب تسجيل بعض ملفات الـ OCX
وهذا بسبب أن برنامج VB6.0 لم يتم تثبيته بشكل كامل
وهذه المشكلة موجودة منذ اصدار ويندوز 10
وتحتاج لاجراءات تعملها أثناء تثبيت التطبيق كي يتم تثبيت الاصدار كامل
منها إلغاء اختيار تثبيت ADO ..
والغاء اختيار فيجول استديو انلايزر..
وذلك حتى يتم تثبيت النسخة بشكل كامل ..
(30-12-21, 03:21 PM)ahmedabdelaliem كتب : [ -> ]السلام عليكم
تفضل اخي
سقاك الله كوثراً من حوض المصطفى صلى الله عليه وسلم.
والكود الجميل قام بحل الإشكال الحاصل لدى إلا خاصية الطباعة, وحيث أن المثال المرفق كان يقوم بحفظ الطلبة العشرة الأوائل في الجدول (TBL_first1)
وذلك بعد إختيار اسم الصف والشعبة وصفة القيد.
ولكن مثالك الرائع أوحى إلىَّ فكرة إلغاء جدول الحفظ والاكتفاء بعرض بيانات الطلبة الأوائل في جدول (MSHFlexGrid) ومنه يتم طباعة هذه البيانات.
وأعتقد أن هذا أفضل من الحفظ في الجدول ؛ ولأن الفليكس قريد أفضل في عرض مجموعة بيانات كاسم الطالب والصف والشعبة والترتيب.
فياليت تكرمت أستاذي الكريم بتغيير الليست بوكس إلى آداة الفليكس بوكس
بحيث كلما اخترت صفا دراسيا عرض الأوائل في الفليكس قريد بدون الحفظ في الجدول
الله يكرمك على الكلمات الطيبه
ان شاء الله لما اجلس على الكمبيوتر اعملك طلبك
بالتوفيق
السلام عليكم
تم التعديل اخي حسب طلبك عرض البيانات في الجريد وايضا طباعتها
بالتوفيق
(31-12-21, 07:04 PM)ahmedabdelaliem كتب : [ -> ]السلام عليكم
تم التعديل اخي حسب طلبك عرض البيانات في الجريد وايضا طباعتها
بالتوفيق
والله يعجز اللسان عن الشكر والتقدير.
وتقف اليدان عن التدوين والتحرير
ولكن خلجات القلب هى من تعبر
ودقات القلب هى من تفسر كل ما اكنه من حب ممزوج بالمودة الطيبة
فلك مني كل احترام
ولك مني كل دعوة صادقة بأن يرزقك النظر إلى وجهه الكريم
حياك الله أخي الحبيب وأستاذي القدير أحمد عبد العليم.