[حريف برمجة]

تكست بوكس + ليست بوكس
والبحث يكون ببداية الكلمة او وسطها او آخرها

هذا مثال اسم الجدول = 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"

اما من ناحية اكسس او اسكيوال سيرفر فلا فرق بينهم والطريقة واحدة .