Membuat Textbox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Membuat Chainned Combobox Dengan VB.NET,
kali ini saya akan memposting tentang Membuat Textbox Auto Complete Di VB.NET, seperti halnya ketika kita menggunakan pencarian google, ketika kita mengetik beberapa kata lalu muncul saran dalam pencarian itu yang dapat memudahkan kita dalam melakukan pencarian. oleh karena itu saya membahas Membuat Textbox Auto Complete Di VB.NET,

Langkah - langkah Membuat Textbox Auto Complete Di VB.NET

1. Buat sebuah database dengan nama latihan

2. Buat sebuah table dengan script dibawah ini

create table siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat text not null
)

3. Buatlah sebuah project di visual studio

4. Tambahkan textbox dan label, lalu design form seperti gambar dibawah ini

5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient

6. Ketikan script dibawah ini diatas Form_load

 'Mendeklarasikan variable
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private dt As DataTable
    Private adapter As SqlDataAdapter

6. Pada event Form_load ketikan script dibawah ini

        'Menyiapkan koneksi
        Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa;Password=root123")
            'menyiapkan query
            cmd = New SqlCommand("select nama from siswa", conn)
            'menyiapkan adapter
            adapter = New SqlDataAdapter(cmd)
            'menyiapkan datatable
            dt = New DataTable

            'membuka koneksi database
            conn.Open()
            'membinding data adapter ke datatable
            adapter.Fill(dt)

            Dim col As New AutoCompleteStringCollection
            'Melakukan perulangan untuk mengisi col sebanyak data dari datatable
            For i As Integer = 0 To dt.Rows.Count - 1
                col.Add(dt.Rows(i)("nama"))
            Next

            TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            TextBox1.AutoCompleteCustomSource = col
            TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        End Using

7. Jalankan program tersebut dengan menekan F5

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat