تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة
#1
السلام عليكم 
عايز مساعدة اني ازاي اخلي الاستعلام أنه اول ما يكتب حرف من المدينه او حرفين يظهر المدن المتشابهه في الحروف
وشكرا مقدما


 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
الرد
تم الشكر بواسطة: سعود
#2
بدل علامة = ضع Like

PHP كود :
Like '%any word%' 
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
(27-01-19, 08:40 AM)سعود كتب : بدل علامة = ضع Like

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

للأسف أخي ما ظبطت معي
الرد
تم الشكر بواسطة: sendbad100
#4
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 
جرب الكود بمثال مستقل فان عمل يتبقى ان تفحص مشروعك للبحث عن سر عدم عمله.
الرد
تم الشكر بواسطة: sendbad100 , ابراهيم ايبو
#5
تم نقل الموضوع لقسم الاسئلة
الرد
تم الشكر بواسطة: ابراهيم ايبو , Hamoody
#6
أشكركم جميعا على المساعدة

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

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

و عدلت الكود


cmd.Parameters.Add("supplier_city", SqlDbType.NVarChar).Value = "%" & supplier_city & "%"
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم