[Hamoody]

السلام عليكم 

عايز مساعدة اني ازاي اخلي الاستعلام أنه اول ما يكتب حرف من المدينه او حرفين يظهر المدن المتشابهه في الحروف

وشكرا مقدما

 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%' 


[Hamoody]

(27-01-19, 08:40 AM)سعود كتب : بدل علامة = ضع Like

PHP كود :

Like '%any word%' 


للأسف أخي ما ظبطت معي

[سعود]

PHP كود :

 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles 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]

تم نقل الموضوع لقسم الاسئلة

[Hamoody]

أشكركم جميعا على المساعدة

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

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

و عدلت الكود

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