السلام عليكم ورحمه الله وبركاته
كفكم يارفاق واعزكم الله
رفقت لكم مثال أريد منه ترتيب الخانه التي تعرض( رقم السرك) فى الاداهMSFlexGrid1
ترتيبا تصاعديا أو تنازليا وياريت توضيح هذا على مثالى
جعلك الله مصباح مضيأ فى طريق العلم
ترتيبا تصاعديا أو تنازليا فى الاداهMSFlexGrid1
اجل اخي يمكنك هذا في كود فتح قاعدة البيانات الموجود في الـ Form_Load وهو كالآتي :
RS.Open "select * from t1 ", DB, adOpenDynamic, adLockOptimistic
فإستعلام فتح الجدول وهو :
select * from t1
لترتيبه تصاعدياً بحقل معين يجب إضافة الامر Order By ثم اسم الحقل كالتالي:
select * from t1 order by [السرك]
اما لترتيبه تنازلياً تضيف Desc في نهاية الإستعلام ليصبح كالتالي
select * from t1 order by [السرك] desc
وبالتوفيق ,,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
السلام عليكم ورحمه الله وبركاته
بالله انت مبدع وكنت فى عوني جعل الله هذا في ميزان حسناتك واعزك بين عباده ويوم البعث العظيم
السلام عليكم ورحمه الله وبركاته
أخى الكريم محمد مصطفى أنا اريد الترتيب في أداهMSFlexGrid1 وليس أداه MShFlexGrid1
ولقد أرفقت لك هذا المثال مع الاداه الصحيحه للترتيب
ولك منى جزير الشكر
اخي اريد ان انبهك لشيء , ان الترتيب لا يتعلق باداة العرض نهائياً , بل بكود الإتصال بقاعدة البيانات , فمثلاً في مثالك كان كود ربط قاعدة البيانات كالتالي :
RS.Open "[t1]", DB, adOpenStatic
ففي هذا الكود انت تفتح الجدول T1 بدون اي استعلامات او ترتيب , فقط استخدم الكود الذي استخدمته قبل ذلك للترتيب وهو كالتالي :
RS.Open "select * from t1 order by [السرك]", DB, adOpenStatic
وبهذا تستطيع ربطه بأي اداة في العالم وستجد البيانات تم ترتيبها تصاعدياً بحقل السرك
ارجو ان تكون وضحت الفكرة وبالتوفيق ,,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
السلام عليكم ورحمه الله وبركاته
أخى محمد مصطفى بارك الله فيك وعليك فأنت نعم المعلم والاخ والصديق
ولكن كود البحث لايعمل فأسف لكثره طلباتي وأرجو منك تصحيح هذا الكود
جزاك الله خيرا
اعتزر عن التأخير فأنا اعاني من بعض المشاكل في النت
كانت مشكلة كود البحث ان حقل البحث من النوع رقم ومع هذا النوع من الحقول لا نضع علامة التنصيص "'"
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
السلام عليكم ورحمه الله وبركاته
ازال الله لك جميع مشاكلك واعزك الله وانار لك الله عقلك بالعلم وجعلك نور يهتدي به الاخرون