+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] هل من طريقة لعمل autocomplete لمربع النص من قاعدة البيانات (/showthread.php?tid=14500)
هل من طريقة لعمل autocomplete لمربع النص من قاعدة البيانات - احمد عبد الحكيم - 24-01-16
بسم الله الرحمن الرحيم
السلام عليكم شباب
انا اقوم بعمل بحث داخل الداتا جريد هذا امر ساهل لاكن سؤالى عن
عمل مربع نص يحث زكى مثل الجوجل لاكن من قاعدة بيانات sql serveer
يعنى عند كتابو حرف او حرفبن يقوم باستدعاء كل الكلمات التى تبدا بهذا الحرف من قاعدة البيانات
RE: هل من طريقة لعمل autocomplete لمربع النص من قاعدة البيانات - حريف برمجة - 25-01-16
تكست بوكس + ليست بوكس
والبحث يكون ببداية الكلمة او وسطها او آخرها
هذا مثال اسم الجدول = Table1
اسم الحقل المراد البحث فيه = uname
دبل كلك على التكست بوكس المراد الكتابة فيه والصق الكود التالي في حدث Text_Changed
كود :
Dim dp As New OleDbDataAdapter("SELECT * FROM Table1 WHERE uname LIKE '" & TextBox1.Text & "%'", cn)
Dim ds As New DataSet
dp.Fill(ds)
ListBox1.DataSource = ds.Tables(0)
ListBox1.DisplayMember = "uname"اما من ناحية اكسس او اسكيوال سيرفر فلا فرق بينهم والطريقة واحدة .
RE: هل من طريقة لعمل autocomplete لمربع النص من قاعدة البيانات - احمد عبد الحكيم - 25-01-16
اخى الكريم شكرا لك جزيل الشكر لقدد توصلت الى طريقة جميلة جدا
وحابب مشارجتها مع الكل
PHP كود :
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim daa As New SqlDataAdapter("SELECT tetname FROM techer", con)
daa.Fill(dt)
Dim r As DataRow
txt.AutoCompleteCustomSource.Clear()
For Each r In dt.Rows
txt.AutoCompleteCustomSource.Add(r.Item(0).ToString)
Next
con.Close()