[ZaerAllail]

بعد جلب البيانات وعرضها في الكومبو بوكس كيف يتم عرضها بشكل أبجدي بصرف النظر عن التريب الرقمي لها 

انا استخدم هذا الكود في النموذج على سبيل المثال 

PHP كود :

       da = New SqlDataAdapter("Select * From MovTable where NameOfMov like '" & AlphaCB.Text & "%'", sqlcon)
        da.Fill(dt0)
        SearchResultCbB1.DataSource = dt0
        SearchResultCbB1.ValueMember = "NameOfMov" 


ما هو التعديل أو الإضافة المطلوبه لإتمام المطلوب ؟

[ابراهيم ايبو]

السلام عليكم اخي الكريم
تفضل هذا انموذج كود لاملاء الكومبوبوكس

كود :

   Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("Select * from GroupCode order by GrCode_Name Asc ", Con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           ComboBox1.DataSource = dt
           ComboBox1.DisplayMember = "GrCode_Name"
           ComboBox1.ValueMember = "GrCode_Id"
           ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

       Else
           ComboBox1.DataSource = Nothing
       End Ifo

 قم بتغيير اسم الجدول والحقل الذي تريد اظهاره  وان كنت تريد عكس الترتيب اي من الياء الى الالف
 استبدل Asc  بـ Desc

[ZaerAllail]

(28-03-20, 04:17 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
تفضل هذا انموذج كود لاملاء الكومبوبوكس

كود :

   Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("Select * from GroupCode order by GrCode_Name Asc ", Con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           ComboBox1.DataSource = dt
           ComboBox1.DisplayMember = "GrCode_Name"
           ComboBox1.ValueMember = "GrCode_Id"
           ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems

       Else
           ComboBox1.DataSource = Nothing
       End Ifo

 قم بتغيير اسم الجدول والحقل الذي تريد اظهاره  وان كنت تريد عكس الترتيب اي من الياء الى الالف
 استبدل Asc  بـ Desc

شكرا لك أخي الفاضل ابراهيم
ولكن جملة الإستعلام يجب أن تحتوي على تكست للكلمة المراد البحث عنها أو مثلها وليس إستدعاء جميع مافي الجدول من سجلات 
كمن يريد البحث عن جميع السجلات التي تبدأ بالحرف س أو ع وهكذا 
والجملة في الأساس تفي بالغرض ولكنها تجلب السجلات دون ترتيب أبجدي للأسماء 
كما في الجملة التالية 

PHP كود :

da = New SqlDataAdapter("Select * From MovTable where NameOfMov like '" & AlphaCB.Text & "%'" , sqlcon) 


فلو تكرمت ضع الشرط الإملائي order by مع هذه الجملة حتى يتم المطلوب

[ابراهيم ايبو]

السلام عليكم اخي الكريم 
انت لاتحتاج الى ماذكرت في ان تأخذ جملة الاستعلام من مربع نص
انت تحتاج الى تكملة تلقائية بمجرد ان تكتب في الكومبو حرفا يظهر لك قائمة واقتراح حسب الاحرف التي كتبتها
 وهذه تسمى AutoComplete   عدل الخاصية او بالكود هكذا

كود :

ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

[boudyonline]

كود :

da = New SqlDataAdapter("Select * From MovTable where NameOfMov like '" & AlphaCB.Text & "%' order by NameOfMov " , sqlcon)

[ZaerAllail]

(28-03-20, 04:43 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم 
انت لاتحتاج الى ماذكرت في ان تأخذ جملة الاستعلام من مربع نص
انت تحتاج الى تكملة تلقائية بمجرد ان تكتب في الكومبو حرفا يظهر لك قائمة واقتراح حسب الاحرف التي كتبتها
 وهذه تسمى AutoComplete   عدل الخاصية او بالكود هكذا

كود :

ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

أستاذ إبراهيم يبدو إنك مافهمت قصدي
انا لا احتاج جملة تكمله تلقائية للكومبو 
انا أحتاج جملة البحث لتبحث عن مثلا الموظفين الذين تبدأ اسمائهم بحرف معين يتم أختياره من كومبو بوكس عناصره هي الحروف الأبجدية من الألف للياء 
والنتائج تعرض كاملة داخل كومبو بكس أخر يتم من خلالها إستعراضها بالكامل بشرط أن ياتي أسم إبراهيم عند إستعراض نتيجة البحث قبل إسم أحمد تريباً أبجديا وهكذا 


أتمنى تكون وضحت الفكره 
وجدا شاكر لك اخي الكريم

[ابراهيم ايبو]

السلام عليكم
تعديل بسيط  عل كود الاخ  boudyonline جزاه الله خيرا فقط اضافة % قبل هكذا

كود :

da = New SqlDataAdapter("Select * From MovTable where NameOfMov like '%" & AlphaCB.Text & "%' order by NameOfMov " , sqlcon)

[ZaerAllail]

(28-03-20, 05:05 PM)boudyonline كتب :

كود :

da = New SqlDataAdapter("Select * From MovTable where NameOfMov like '" & AlphaCB.Text & "%' order by NameOfMov " , sqlcon)

شكرا لك عزيزي هذا هو التعديل المطلوب مئه في المئه 
نفع الله بعلمك وبارك الله فيك

---

(28-03-20, 06:01 PM)ابراهيم ايبو كتب : السلام عليكم
تعديل بسيط  عل كود الاخ  boudyonline جزاه الله خيرا فقط اضافة % قبل هكذا

كود :

da = New SqlDataAdapter("Select * From MovTable where NameOfMov like '%" & AlphaCB.Text & "%' order by NameOfMov " , sqlcon)

الأخ إبراهيم جدا اشكرك عزيزي على تواجدك وتجاوبك 
ولكن إذا وضعت علامة % كما ذكرت ستختلف نتيجة البحث 
لأن المطلوب هو الأسماء التي تبدأ بالحرف المطلوب في البحث

فالكود بتعديل الأخ boudyonline سليم مئه في المئه من ناحية المطلوب في السؤال

شكرا لكم جميعاً