TEXTBOX AUTO SERACH VB.NET

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())

txt_ownername.AutoCompleteMode = AutoCompleteMode.Suggest

txt_ownername.AutoCompleteSource = AutoCompleteSource.CustomSource

txt_ownername.AutoCompleteCustomSource = AutoComp

End Sub