طريقة عمل filter - نسخة قابلة للطباعة

كود :
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





****

***

**

*