منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] استفسار بخصوص انواع كود البحث.. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] استفسار بخصوص انواع كود البحث.. (/showthread.php?tid=19105)



استفسار بخصوص انواع كود البحث.. - Marwan9990 - 03-02-17

اسعد الله اوقاتكم جميعا .. معاي استفسار بسيط .. 
انظرو ل هذا الصورة المقتبسه من مشروع حملته من موقع انجليزي ولكن مع الاسف لا يعمل لدي اعتقد لانه نسخته 2012 وانا 2010

المهم  .. ننتقل لصور ..



الصوره التي في الاعلى يظهر فيها نموذج المشروع كامل وهو نافذة فيها عدة خيارات مثل اضافة وحذف وتعديل وما شابه ومربوطه بقاعدة البيانات..









اما الصوره الثانيه.. يوجد بها 1- كومو بكس على ما اعتقد ايضا واحد تكس بوكس طبعا هم خيارات البحث في قاعدة البيانات ..

.استفساري كيف ممكن احصل على مشروع فيه نفس حركة البحث هذا بمعنا واحد تكس بوكس وواحد كومبو بكس فيه انواع البحث الي ابي اقوم بيه مثلا بحث عن رقم موظف او بحث عن اسم موظف وما شابه ...


ملاحظة .. وجدت مشاريع مختلفه فيها خيار واحد تكس بوكس وختيار نوع البحث بستخدام ادة مختلفه الرديدوم تقريبا ولكن ليس هذا ما ابحث عنه انا ابي نفس المثال الي ب اعلى واحد تكس بوكس واحد كومبو بكس به كل انواع البحث ..

ياليت اذا احد يعرف ايش اسم المشروع ب ضبط الي كذه او كيف ممكن احصل على نموذج مشابه يعلمني ..

مودتي وشكري للكل ..


RE: استفسار بخصوص انواع كود البحث.. - مساعدة - 03-02-17

السلام عليكم

يمكن وضع هذا الكود في حدث Click لزر أو حدث TextChanged للبحث أثناء الكتابة في التكست بكس
كود :
Dim adp As New OleDb.OleDbDataAdapter
adp.SelectCommand.Connection = cnn

Select Case ComboBox1.SelectedIndex

    Case 0 ' الاختيار الأول في الكمبوكس
        adp.SelectCommand.CommandText = "SELECT * FROM [table] WHERE [ID]=@param"
        adp.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)


    Case 1 ' الاختيار الثاني في الكمبوكس
        adp.SelectCommand.CommandText = "SELECT * FROM [table] WHERE [FirstName]=@param"
        adp.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)


' الاختيار الثالث في الكمبوكس
    Case 2
        adp.SelectCommand.CommandText = "SELECT * FROM [table] WHERE [LastName]=@param"
        adp.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)

End Select

Dim dt As New DataTable
adp.Fill(dt)

DataGridView1.DataSource = dt



RE: استفسار بخصوص انواع كود البحث.. - zinab ali - 21-03-17

شكرا اخي علي طرحك للموضوع كان لدي فيه مشكلة