السلام عليكم
عندي textbox
اريد مثلا عندما اكتب اي حرف بداخلها تظهرلي قائمة بكل الاسماء التي تبدا بذلك الحرف
الاسماء مخزنة في قاعدة بيانات
شكرا ليك
السلام عليكم ورحمة الله وبركاته
كود :
Private Sub GetNames()
Try
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
Dim cmd As System.Data.OleDb.OleDbCommand
cmd = New System.Data.OleDb.OleDbCommand("select DISTINCT [fieldname] from [yourtable]", con)
Con.Open()
Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader
If dr.HasRows Then
TextBox1.AutoCompleteCustomSource.Clear()
While dr.Read
TextBox1.AutoCompleteCustomSource.Add(dr("fieldname").ToString)
End While
End If
dr.Close()
cmd.Dispose()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
Finally
Con.Close()
End Try
End Sub
****
***
**
*