السلام عليكم
اخواني
كيف عرض حقل Toto في أداة List
ولكن اريد ان يعرض السجل كله
مثل اذا ضغطت على السجل الثاني
يعرض الحقول كلها التي سجلها الثاني
وياريت مثال عشان افهم بس
كيف عرض حقل كامل في اداة الست عن طريق الادو
مغلق
شباب
الله يوفقك
الله يحفطك
مشكوررررررررررررررررررررررر محمد
أخوي مشكور بس
جربت مثالك مانفعني لان انا اريد الاسماء تظهر
في أداة اللست والبيانات الاخرى تظهر بالتيكست
وانا بأنتظارك اخوي ومشكور
وياريت مثال.
المتميز دائما متميز
الله يوفقك جربت المثال وطلع 100%
بس ياريت شرح بالتفصيل
ومشكوررررررررررر
أعتقد أن الأمر بسيط
سنقوم بإلغاء مربع التكست الخاص بعرض الاسم وكذلك الكود الخاص بعرض البيانات به
عموما
المثال مرفق بعد التعديل
إذا لم ينفع رجاء التوضيح أكثر
بالتوفيق
جميل جدا اخي الكريم المتميز
سؤال لو ممكن
هل من الممكن جعل الاسماء في قاعدة البيانات مرتبة حسب الحرف الابجدية
لا اقصد
list1.sort
انما اقصد ترتيب الاسماء بالجدول عن طريق الكود ؟؟
شكرا جزيلا
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
بنت البرمجة ما الذي يحتاج للشرح ؟ أي جزئية ؟
للفرز استخدم خاصية order by
وبالتالي يكون الكود
بدلا من
rs.Open "select * from emp", cn, adOpenKeyset, adLockOptimistic
يصبح
rs.Open "select * from emp order by name asc", cn, adOpenKeyset, adLockOptimistic
تم تعديل هذه المشاركة بواسطة المتميز في 2 أكتوبر 2005 في 20:19
شكرا جزيلا اخي الفاضل المتميز
وعليه الكود عندى اصبح
في موديول
Public db As New ADODB.Connection Public rs As New ADODB.Recordset
في الفورم
'Project-------> Rfrence-------> Microsoft ActiveX 2.0 Object Library [ ADO ] db.Provider = "Microsoft.JET.OLEDB.4.0;" db.Open App.Path & "\Phone.mdb" rs.Open "[Table1]order by name asc", db, adOpenStatic, adLockPessimistic
جزاك الله عنا خيرا
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
عذرا
حاولت ان اعلم جملة order by name asc بالاحمر فحدث خطأ
الكود
Private Sub Form_Load() 'Project-------> Rfrence-------> Microsoft ActiveX 2.0 Object Library [ ADO ] db.Provider = "Microsoft.JET.OLEDB.4.0;" db.Open App.Path & "\Phone.mdb" rs.Open "[Table1]order by name asc", db, adOpenStatic, adLockPessimistic End Sub
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
المتميز كتب:جربrs.Open "select * from [Table1] order by name asc", db, adOpenStatic, adLockPessimistic
شكرا جزيلا اخونا الكريم
اضافة جديدة لي مشكور عليها
جزاك الله عني خير الجزاء
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
هذا الموضوع مغلق.