السلاموا عليكم ورحمة الله وبركاته
أنا عايز لما أبحث في الأدو عن حرف تظهر جميع الكلمات التي تبتدئ بنفس الحرف في listbox
أنا كنت بعمل ده كده بالداو وده الكود
Data1.RecordSource = "select distinct(name) from customer where name like '" + txtname + "*" + "'"
Data1.Refresh
List1.clear
If Data1.Recordset.RecordCount = 0 Then Exit Sub
Do While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset("name")
Data1.Recordset.MoveNext
Loop
المهم انا بستخدم rs connection مش Adodc
أرجوا من سيادتكم الرد السريع
اخي مبدئيا الكود الذي وضعته صحيح فما المشكلة
مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية
أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا
يا سيدي الفاضل الكود ده شغاااااااااااال بالداو أما أنا شغال دلوقتي
بمكتبة الأدو rs
فعايز أعمل نفس الطريقه بمكتبة الأدو
يا سيدي الفاضل الكود التالي هو الحل B)
rs.open "select distinct(name) from customer where name like" & txtname & "'"
List1.clear
If rs.RecordCount = 0 Then Exit Sub
Do While Not rs.EOF
List1.AddItem Rs("name")
RS.MoveNext
Loopمع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية
أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا
يا سيدي الفاضل أنا عايز أعمل بحث كما في الموبايل يعني أضغط على الميم يجلي كل الأسماء التي تبدأ بحرف الميم وتتحط في list
وأنا موضح كده في كود الداو
تفضل اخي الكود :
rs.open"select * from Names where sname like '"+text1.text+"'&*",cn
List1.clear
If rs.RecordCount = 0 Then Exit Sub
Do While Not rs.EOF
List1.AddItem Rs("name")
RS.MoveNext
Loopهذا الموضوع مغلق.