[SaedAmer]

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

كود البحث في قاعدة البيانات :
عندي تكست بوكس ملتي تكست موجود فيه القيم :
1
2
3

عاوز البحث في قاعدة البيانات يبعث عن 1 و 2 و 3 في حقل id و يعرضهم مع بعض في نفس الاستعلام
قاعدة البيانات المستخدمة Access

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي سعيد الافضل ان تضع 2 نكست بوكس وتبحث عن قيمة الاي دي بحيث تكون اكبر او تساوي القيمة الادنى في مربع النص الاول والقيمة الاعلى اصغر او تساوي   مربع النص الثاني 
اي استخدم 

كود :

where Id >= "& CInt(TextBox1.Text) &" And Id <= " & CInt(TextBox2.text) &"

او استخدم bettween مثل البحث بين تاريخين
اما مثل ما اوردت فلا يمكن

[SaedAmer]

(31-01-21, 01:29 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي سعيد الافضل ان تضع 2 نكست بوكس وتبحث عن قيمة الاي دي بحيث تكون اكبر او تساوي القيمة الادنى في مربع النص الاول والقيمة الاعلى اصغر او تساوي   مربع النص الثاني 
اي استخدم 

كود :

where Id >= "& CInt(TextBox1.Text) &" And Id <= " & CInt(TextBox2.text) &"

او استخدم bettween مثل البحث بين تاريخين
اما مثل ما اوردت فلا يمكن

للتوضيح اكتر اخي ابراهيم

قاعدة البيانات تحتوي على عدد كبير من البيانات اكثر من ١٠ الاف
و انا عاوز اعمل بحث فيهم بأكثر من قيمة في نفس الحقل 

يعني عاوز اخليه يعرض بيانات شخص اسمه احمد و محمد و يوسف في نفس جملة الاستعلام مع العلم ان كل شخص فيهم يختلف في الترتيب في الجدول مثلا احمد رقم ٢٥ و محمد ٢٠٠٠ و هكذا بس البحث عن طريق الاسم و لكن اكثر من اسم

[ابراهيم ايبو]

السلام عليكم اخي سعيد
لتنفيذ فكرتك :
ضع مربع نص للبحث بحيث تكتب الاسماء بجانب بعضها مع فراغ واحد بين الاسماء
ضع الكود التالي في بوتون (استخدم داتا تابل جديدة للبحث غير التي تملا البيانات )
هذا الكود سيتحقق من مربع نص البحث  ان كان فارغا سيتم املاء الداتا غرايد بنفس الداتا تابل التي جلبنا فيها البيانات كافة
 اما ان كان فيها اسماء  فسيتم انشاء مصفوفة من الاسماء الموجودة في مربع نص البحث مع  داتا تابل باسم جديد
ثم نعمل جملة فور تلف على عناصر المصفوفة وكل مرة تبحث عن عنصر ويضاف الى الداتاغرايد

كود :

' داتا تابل جديدة
       Dim dtt As New DataTable()
       If TextBox1.Text.Trim = "" Then
           dgv_table.DataSource = dt
       Else
           ' انشاء مصفوفة من الاسماء الموجودة في مربع البحث بدلالة المسافة بين الاسماء
           Dim Serh() As String = TextBox1.Text.Trim.Split(" ")
           For i As Integer = 0 To Serh.Length - 1
               da = New OleDbDataAdapter("select * from Personal Where CV_Name = '" & Serh(i) & "'", Con)
               da.Fill(dtt)
           Next
           dgv_table.DataSource = dtt
       End If

 غير اسم الجدول واسم الحقل الذي تريد البحث به