الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خاصية البحث في القاعدة يعمل ولكنه بسيط!

بدأه خيال وحب في 1 أبريل 2008 · 3 رد · 714 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

:lol:

مساء الانوار

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

البحث يبحث عن نفس القيمة المدخلة مثلا رقم الهاتف 954652351 لو لم يتم ادخال الرقم كاملا لن يظهر البحث كيف ابحث مثلا عن 52 ويظهر اي رقم فيه 52 أو اسماء بادخال الحرف الاول او اي حرف في الاسم مثلا ل عمر ادخل عم ويظهر الاسماء

الكود المستخدم

 If Me.ComboBox1.SelectedItem = "ID" Then
			Dim DS As New DataView(Me.Db1DataSet.person)
			DS.RowFilter = "ID=" & CType(Me.TextBox1.Text, String)
			Me.PersonDataGridView.DataSource = DS
			Me.PersonTableAdapter.Fill(Db1DataSet.person)
		ElseIf Me.ComboBox1.SelectedItem = "Name" Then
			Dim AR As New DataView(Me.Db1DataSet.person)
			AR.RowFilter = "Name=" & CType(Me.TextBox1.Text, String)
			Me.PersonDataGridView.DataSource = AR
			Me.PersonTableAdapter.Fill(Db1DataSet.person)
		ElseIf Me.ComboBox1.SelectedItem = "Phone" Then
			Dim MB As New DataView(Me.Db1DataSet.person)
			MB.RowFilter = "Phone=" & CType(Me.TextBox1.Text, String)
			Me.PersonDataGridView.DataSource = MB
			Me.PersonTableAdapter.Fill(Db1DataSet.person)
		Else : MsgBox("Data not found")
		End If

والبرنامج مرفق

SearchTry.rar

انا افكر اذا انا مبدع .... I think therfore I am Creative

#2

حاولت وحاولت لكن لم تنجح الطرق

يظهر خطأ ما في الكود التالي

Dim AR As New DataView(Me.Db1DataSet.person)
			AR.RowFilter = "Name=" & CType(Me.TextBox1.Text, String)
			Me.PersonDataGridView.DataSource = AR
			Me.PersonTableAdapter.Fill(Db1DataSet.person)

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

اتمنى اجد الاجابة مع خالص الشكر ولكم تحياتي!!!

:wub:

انا افكر اذا انا مبدع .... I think therfore I am Creative

#3

عليك بتعديل الكود كالتالى

  AR.RowFilter = "Name=' " & CType(Me.TextBox1.Text, String) & " ' "

واليك البرنامج بعد التعديل واشتغل تمام

SearchTry.rar

كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات

#4

الف شكر لك اخي الكريم njd جربت الكود وشغال تمام

وللافادة وجدت كود البحث العام والبحث المطابق للكلمة في المثال للاخ عدي

/index.php?showtopic=123613

شكرا للجميع

انا افكر اذا انا مبدع .... I think therfore I am Creative

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…