منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[ تمّ الحل ] : الترتيب حسب المجموع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [ تمّ الحل ] : الترتيب حسب المجموع (/showthread.php?tid=18454)

الصفحات: 1 2


RE: الترتيب حسب المجموع - sendbad100 - 17-12-16

اولا :- قم باستبدال السطر التالي 
كود :
RS.Open "Select * From USERS Order By [المجموع] ASC", DB, adOpenStatic, adLockPessimistic
 بالاتي 
كود :
RS.Open "Select * From USERS Order By [المجموع] DESC ", DB, adOpenStatic, adLockPessimistic

ثانياً :-  عدل الحقل   المجموع  الى رقمي  نوع  مزدوج   في قاعدة البيانات 
وانشاء الله    تمام


RE: الترتيب حسب المجموع - amgad525 - 17-12-16

كود :
SQL: SELECT * FROM table ORDER BY colTotal DESC


Dim myOrder As Integer
Dim myTotal As Integer


myOrder = 1
myTotal = Rows(0) Field(colTotal)

               
Rows(0) Field(colOrder)  = 1


For i = 1 To Rows.Count - 1

   If Rows(i) Field(colTotal) <> myTotal Then myOrder = myOrder + 1

   myTotal = Rows(i) Field(colTotal)

   Rows(i) Field(colOrder) = myOrder

Next



RE: الترتيب حسب المجموع - عمور2016 - 17-12-16

معليش عزوز تم تعديل شي بسيط انظر مره اخر حمل تم تعديل الملف السابق


RE: الترتيب حسب المجموع - عبد العزيز البسكري - 17-12-16

السّلام عليكم و رحمة الله و بركاته
إلهي لا يحرمنا منك أخي الحبيب الغالي SENDBAD100
لا أعرف كيف أشكرك .. ربنا يبارك فيك و في أعمالك و يرزقك من حيث لا تحتسب
قمّة التميّز و الابداع .. و بصراحة ما جاء منك الآن أعتبره تحفة علميّة .. تبارك الله باسم الله ما شاء الله عليك
بهذا الوقت المتأخر من الليل ليس لي سوى الدعاء لك لله أن يرزقك خير الدنيا و آخرتها يارب
هذا هو المطلوب بتمامه و كماله و الكمال لله
الشّكر و الدعاء الطيّب موصول لأخي عمور2016 على مساهماته الحسنة واجتهاده
تحية مني للأخ AMGAD525 على المساهمة الفعالة
خالص محبّتي في الله لكم جميعا



RE: الترتيب حسب المجموع - sendbad100 - 17-12-16

وعليكم السلام ورحمة الله وبركاته


الحمد لله رب العالمين


تستاهل كل خير اخي الغالي وجميع الاخوة الكرام



RE: [ تمّ الحل ] : الترتيب حسب المجموع - عبد العزيز البسكري - 17-12-16