TEXTBOX AUTO SERACH VB.NET | TECHBYMATI

 TEXTBOX AUTO SERACH VB.NET | TECHBYMATI

Private Sub FillSearchResult()

        Dim AutoComp As New AutoCompleteStringCollection()

        Dim dsSerch As New DataSet

        ' Dim ConStr As String = "user id=sa;password=aeiouy;Initial Catalog=......."

        ' Dim sqlCon As New SqlClient.SqlConnection(ConStr)

        'sqlCon.Open()

        ''Dim Str As String = "select empname from tbl_Employee"

        '' Dim SqlCom As New SqlClient.SqlCommand(Str, cnn)

        ''Dim sqlAdap As New SqlClient.SqlDataAdapter(cnn)

        ''sqlAdap.Fill(dsSerch)

        checkConnection()

        Dim ad As New SqlDataAdapter("SELECT ownername FROM vachileduesG Where ownername like '" & txt_ownername.Text & "%'", cnn)

        Dim dt As New DataTable

        ad.Fill(dsSerch)

        For i As Integer = 0 To dsSerch.Tables(0).Rows.Count - 1

            AutoComp.Add(dsSerch.Tables(0).Rows(i)(0).ToString())

        Next

        txt_ownername.AutoCompleteMode = AutoCompleteMode.Suggest

        txt_ownername.AutoCompleteSource = AutoCompleteSource.CustomSource

        txt_ownername.AutoCompleteCustomSource = AutoComp

    End Sub