منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
عايز مساعدة اني ازاي اخلي الاستعلام أنه اول ما يكتب حرف من المدينه او حرفين يظهر المدن المتشابهه في الحروف
وشكرا مقدما


 Public Sub Load_city_Supplier(ByVal supplier_city As String)
        Try

            city_Supplier.Clear()
            Dim cmd As New SqlCommand("Select * From Supplier Where supplier_city= @supplier_city", connSQLServer)

            cmd.Parameters.Add("supplier_city", SqlDbType.NVarChar).Value = supplier_city
        connSQLServer.Open()
        city_Supplier.Load(cmd.ExecuteReader)
        connSQLServer.Close()
        cmd = Nothing
        Catch
        connSQLServer.Close()
        End Try


    End Sub
بدل علامة = ضع Like

PHP كود :
Like '%any word%' 
(27-01-19, 08:40 AM)سعود كتب : [ -> ]بدل علامة = ضع Like

PHP كود :
Like '%any word%' 

للأسف أخي ما ظبطت معي
PHP كود :
 Private Sub TextBox1_TextChanged(sender As ObjectAs EventArgsHandles TextBox1.TextChanged
        Using con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Dim dt As New DataTable
            
If con.State ConnectionState.Closed Then con.Open()
            Using cm As New OleDb.OleDbCommand(""con)
                cm.CommandText "select * from tb where tname like'%" TextBox1.Text "%'"
                dt.Load(cm.ExecuteReader)
                ListBox1.DataSource Nothing
                ListBox1
.Items.Clear()
                ListBox1.DataSource dt
                ListBox1
.DisplayMember "tname"
            End Using

            
If con.State ConnectionState.Open Then con.Close()
        End Using
    End Sub 
جرب الكود بمثال مستقل فان عمل يتبقى ان تفحص مشروعك للبحث عن سر عدم عمله.
تم نقل الموضوع لقسم الاسئلة
أشكركم جميعا على المساعدة

تم حل المشكله و كانت في السطر التالي

 cmd.Parameters.Add("supplier_city", SqlDbType.NVarChar).Value = supplier_city

و عدلت الكود


cmd.Parameters.Add("supplier_city", SqlDbType.NVarChar).Value = "%" & supplier_city & "%"