منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

اولا :- قم باستبدال السطر التالي

كود :

RS.Open "Select * From USERS Order By [المجموع] ASC", DB, adOpenStatic, adLockPessimistic

بالاتي

كود :

RS.Open "Select * From USERS Order By [المجموع] DESC ", DB, adOpenStatic, adLockPessimistic

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

كود :

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

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

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

إلهي لا يحرمنا منك أخي الحبيب الغالي SENDBAD100

لا أعرف كيف أشكرك .. ربنا يبارك فيك و في أعمالك و يرزقك من حيث لا تحتسب

قمّة التميّز و الابداع .. و بصراحة ما جاء منك الآن أعتبره تحفة علميّة .. تبارك الله باسم الله ما شاء الله عليك

بهذا الوقت المتأخر من الليل ليس لي سوى الدعاء لك لله أن يرزقك خير الدنيا و آخرتها يارب

هذا هو المطلوب بتمامه و كماله و الكمال لله

الشّكر و الدعاء الطيّب موصول لأخي عمور2016 على مساهماته الحسنة واجتهاده
تحية مني للأخ AMGAD525 على المساهمة الفعالة

خالص محبّتي في الله لكم جميعا

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

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

sendbad100

amgad525

عمور2016

عبد العزيز البسكري

sendbad100

عبد العزيز البسكري