[HASAN6.0]

اضف function في الـ module .

PHP كود :

Public Function Gstr(str As String) As String
        Dim r As String = ""
        For Each c As Char In str
            r &= c & "%"
        Next
        Return r
    End Function 


وغير جملة البحث الى

PHP كود :

Booksda = New OleDbDataAdapter("select * from  Books where Texts_books like '%" & Gstr(TextBox1.Text.Trim) & "%'", con) 


طريقه بسيطة وتفي بالغرض