[waelalmsry75]

السلام عليكم
الإخوة الكرام
وجدت المشاركة التالية في مكتبة الأكواد
والسؤال:
1/ كيف نعدل في الكود بحيث يكون البحث عن (أي جزء) من (أي كلمة) ولا يشترط البحث بالكلمة كاملة.
2/ تعديل آخر في الكود منفصل عن التعديل السابق، وهو كون البحث حسب ترتيب الكلمات المدخلة في خانة البحث.
وجزاكم الله خيرا
==========
وإليكم المشاركة:
==========
كاتب الموضوع : سعود


اضف مربع نص وزر امر واداة شبيكة البيانات
التعريفات العامة توضع بمنطقة التصريحات العامة

كود :

كود :

Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDb.OleDbConnection(str)
Dim sql As String = "select * from tb"
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter(sql, con)

في حدث تحميل الفورم اكتب:

كود :

كود :

ds.Clear()
DataGridView1.DataSource = Nothing
DataGridView1.DataMember = Nothing

da.Fill(ds, "tb")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "tb"

اكتب عدة كلمات في مربع النص مثلا (السلام عليكم ورحمة الله وبركاته)
وضع بقاعدة البيانات مختارات من هذه الكلمات واضف كلمات اخرى وانظر ماذا يفعل الكود التالي تضعه بحدث النقر لزر الامر

كود :

كود :

Dim p() As String = TextBox1.Text.Split(" ")
Dim ds1 As New DataSet


For Each s In p
Dim sql1 As String = "select * from tb where tname='" & s & "'"
Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)


da1.Fill(ds1, "tb")
Next
DataGridView1.DataSource = ds1
DataGridView1.DataMember = "tb"