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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار :- التاكد من وجود سطر جديد في الملف dubai.eig 6 97 أمس, 08:25 AM
آخر رد: mrnooo2000
  استخدام كود البحث ثم عند عدم وجود نتيجة في الداتا جريدفيو تظهر رسالة Hazem1 11 195 19-09-18, 07:00 PM
آخر رد: elgokr
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 10 249 18-09-18, 09:05 PM
آخر رد: ahmedmansour
  [VB.NET] استفسار :- التاكد من الوقت بين وقتين dubai.eig 3 62 18-09-18, 07:18 PM
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص تغيير اسم ال Button بعد الضغط dubai.eig 10 178 17-09-18, 10:53 AM
آخر رد: dubai.eig
  للمرة الثانية بخصوص برنامج تصنيع فى ورشة salah mansour 9 200 15-09-18, 09:50 PM
آخر رد: 911
  استفسار عن حماية او كسر البرامج مجموعه اسئله قد يكون الحل ارجو المساعده thementalist 1 98 15-09-18, 08:21 PM
آخر رد: عبدالله الدوسري
  [سؤال] استفسار عن فيجوال ستديو اصدار 2015 essawq 15 297 15-09-18, 05:36 PM
آخر رد: essawq
  [VB.NET] استفسار :- رقم الاي دي لاخر ادخال في قاعدة البيانات dubai.eig 7 120 15-09-18, 10:56 AM
آخر رد: elgokr
  بخصوص برنامج تصنيع....هام salah mansour 5 154 12-09-18, 12:55 AM
آخر رد: salah mansour

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


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