(01-04-19, 08:09 PM)بدري كتب : الكود لن يعمل معك لان فيه اخطاء

اولها لم تحدد طول الsubstring بحيث يكون مثل
If s.Substring(s.Length - 1,1) = "," Then

ثانيها انت وضعت try بدون ما تضع كود اظهار رساله الخطا في catch

ثالثها انت تستخدم اسماء اعمده فيها مسافه

(01-04-19, 09:17 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

قم باستخدام الكود بهذا الشكل

كود :

       Try
           Dim s As String = TextBox1.Text
           If s.Contains(",") Then
               Dim Str As String() = TextBox1.Text.Split(",")
               For Each aa In Str.ToList
                   searchDT.Clear()
                   searchDA = New OleDbDataAdapter("select * from Employees where `الاسم`  like '" & aa & "' or `الرقم الوطني` like '" & aa & "' or `رقم الهاتف` like '" & aa & "'  or `مكان الميلاد` like '" & aa & "'  or `عنوان السكن` like '" & aa & "' or `الجنس` like '" & aa & "'", con)
                   searchDA.Fill(searchDT)
                   If searchDT.Rows.Count <> 0 Then
                       DataGridView1.DataSource = searchDT Then
                       calcu_gradview()
                       Exit For
                   End If
               Next
           Else
               searchDT.Clear()
               searchDA = New OleDbDataAdapter("select * from Employees where `الاسم`  like '" & s & "' or `الرقم الوطني` like '" & s & "' or `رقم الهاتف` like '" & s & "'  or `مكان الميلاد` like '" & s & "'  or `عنوان السكن` like '" & s & "' or `الجنس` like '" & s & "'", con)
               searchDA.Fill(searchDT)
               DataGridView1.DataSource = searchDT
               calcu_gradview()
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

تذكر انا قمت بوضع كود تحقق اذا تم ايجاد نتائج البحث

يقوم بانهاء اجراء For كونه حصل على نتائج دون الحاجة لاستككمال اعادة البحث على باقي القيم

فمثلاً لديك عدد 3 قيم تقوم بالبحث بها

ووجد نتيجة من اول قيم سيتجاهل القيمة 2 و 3 من البحث

لان بدون هذا الامر

ستجد اذا وجد نتائج من القيمة الاول وراح وجد فى القيمة الثالثة

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

تحياتى لك

وتمنياتى لك التوفيق

(01-04-19, 10:59 PM)بدري كتب : ظننت من ردك لي ان المشكله انتهت

عموما ربما هذا ما تريد
sql="select * from Employees where true "
if الاسم.text.trim<>"" then sql &= " and الاسم  like '" & الاسم.text.trim & "'"
if الرقم_الوطني.text.trim<>"" then sql &= " and الرقم_الوطني like '" & الرقم_الوطني.text.trim & "'"
if الجنس.text.trim<>"" then sql &= " and الجنس like '" & الجنس.text.trim & "' "
if عنوان السكن.text.trim<>"" then sql &= " and عنوان_السكن like '" & عنوان السكن.text.trim & "'"
if مكان الميلاد.text.trim<>"" then sql &= " and مكان_الميلاد like '" & مكان الميلاد.text.trim & "'"
if رقم الهاتف.text.trim<>"" then sql &= " and رقم_الهاتف like '" & رقم الهاتف.text.trim & "'"

searchDA = New OleDbDataAdapter(sql, con)

فهو يبحث بحسب مربعات النص المدخل بها بيانات

مثلا لو ادخلت الاسم فقط سيبحث بالاسم فقط ولو اضفت معه رقم هاتف سيبحث بالاسم ورقم الهاتف فقطوهكذا

واعتذر اليك