+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة (/showthread.php?tid=28381)
مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة - Hamoody - 27-01-19
السلام عليكم
عايز مساعدة اني ازاي اخلي الاستعلام أنه اول ما يكتب حرف من المدينه او حرفين يظهر المدن المتشابهه في الحروف
وشكرا مقدما
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
RE: مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة - سعود - 27-01-19
بدل علامة = ضع Like
PHP كود :
Like '%any word%'
RE: مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة - Hamoody - 27-01-19
(27-01-19, 08:40 AM)سعود كتب : بدل علامة = ضع Like
PHP كود :
Like '%any word%'
للأسف أخي ما ظبطت معي
RE: مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة - سعود - 27-01-19
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
RE: مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة - sendbad100 - 27-01-19
تم نقل الموضوع لقسم الاسئلة
RE: مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة - Hamoody - 27-01-19
أشكركم جميعا على المساعدة
تم حل المشكله و كانت في السطر التالي
cmd.Parameters.Add("supplier_city", SqlDbType.NVarChar).Value = supplier_city
و عدلت الكود
cmd.Parameters.Add("supplier_city", SqlDbType.NVarChar).Value = "%" & supplier_city & "%"