TextBox AutoComplete dengan Database sebagai Data Source

Proses AutoComplete di TextBox lebih mirip ketika kita mengetikan kata di google, maka akan keluar kata yang menyerupai kata yang diketik secara otomatis. Proses ini dengan tujuan untuk mempermudah user dalam memilih/mencari kata yang dicarinya. Langsung saja kita bahas listing Programnya..

1. buat sebuah TextBox di dalam Form dan kita beri nama txtNama.



2. di Property box ubah AutocompleteMode -- > SuggestAppend dan AotuCompleteSource --> CustomeSource



3. Buat Prosedure :
     

    Private Sub ProcACText()

        Dim ds As DataSet = New DataSet()

        Dim SQL As String

        Dim authors As New AutoCompleteStringCollection

        SQL = "select Fullname from Person where RecordKey between 2042470 and 2045000 order by Fullname"

        CheckConnection() 'Prosedure Koneksi silahkan buat sendiri        

        Dim SqlDbDataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(SQL, SQLConn)

        SqlDbDataAdapter.Fill(ds, "Person")

        Dim dvManager As DataViewManager = New DataViewManager(ds)

        Dim dv As DataView = dvManager.CreateDataView(ds.Tables("Person"))

        For Each dRow In ds.Tables(0).Rows

            txtNama.AutoCompleteCustomSource.Add(dRow("Fullname").ToString)

        Next

    End Sub

4. Panggil Prosedure di Load Form

Private Sub FrmAutocompleteTextBox_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call ProcACText()

    End Sub

5. Running Program Hasilnya akan terlihat seperti Gambar dibawah ini :



Selamat Mencoba !!