تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار بخصوص انواع كود البحث..
#1
اسعد الله اوقاتكم جميعا .. معاي استفسار بسيط .. 
انظرو ل هذا الصورة المقتبسه من مشروع حملته من موقع انجليزي ولكن مع الاسف لا يعمل لدي اعتقد لانه نسخته 2012 وانا 2010

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



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









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

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


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

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

مودتي وشكري للكل ..
الرد
تم الشكر بواسطة:
#2
السلام عليكم

يمكن وضع هذا الكود في حدث 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
الرد
تم الشكر بواسطة: sendbad100
#3
شكرا اخي علي طرحك للموضوع كان لدي فيه مشكلة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص ال update فى الاكسس mostafa nada 6 114 منذ 4 ساعة مضت
آخر رد: mostafa nada
  سؤال بخصوص طباعة الكريستال ريبورت Emam emam 9 119 أمس, 10:58 AM
آخر رد: rmnr
  استفسار بشأن جدول العملات alfaiz678 4 64 أمس, 09:44 AM
آخر رد: alfaiz678
  [VB.NET] استفسار :- بخصوص select top 10 dubai.eig 2 58 أمس, 09:11 AM
آخر رد: dubai.eig
  [VB.NET] استفسار في برمجة سجيلات الدخول للبرنامج فراس الغزي 1 33 أمس, 01:50 AM
آخر رد: mero5000
  سؤال بخصوص حفظ قيمة في الكومبو بوكس abdullhadi999 4 96 12-11-18, 10:25 PM
آخر رد: abdullhadi999
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 17 619 12-11-18, 02:29 AM
آخر رد: ahmedmansour
  [VB.NET] استفسار :- بخصوص DataGridView1 dubai.eig 2 42 10-11-18, 08:43 PM
آخر رد: dubai.eig
  سؤال بخصوص الفيجوال بيسك واكسس mostafa hasanein 2 62 07-11-18, 08:50 PM
آخر رد: ahmadpal
  مساعدة ضرورية بخصوص برنامج Aminsoft 3 99 07-11-18, 01:08 PM
آخر رد: Aminsoft

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم