Membuat Textbox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentangMembuat 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

1create table siswa (

2nis varchar(15) not null primary key,

3nama varchar(50) not null,

4alamat text not null

5)

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

1'Mendeklarasikan variable

2   Private conn As SqlConnection

3   Private cmd As SqlCommand

4   Private dt As DataTable

5   Private adapter As SqlDataAdapter

6. Pada event Form_load ketikan script dibawah ini

01'Menyiapkan koneksi

02Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa;Password=root123")

03    'menyiapkan query

04    cmd = New SqlCommand("select nama from siswa", conn)

05    'menyiapkan adapter

06    adapter = New SqlDataAdapter(cmd)

07    'menyiapkan datatable

08    dt = New DataTable

09 

10    'membuka koneksi database

11    conn.Open()

12    'membinding data adapter ke datatable

13    adapter.Fill(dt)

14 

15    Dim col As New AutoCompleteStringCollection

16    'Melakukan perulangan untuk mengisi col sebanyak data dari datatable

17    For i As Integer = 0 To dt.Rows.Count - 1

18        col.Add(dt.Rows(i)("nama"))

19    Next

20 

21    TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

22    TextBox1.AutoCompleteCustomSource = col

23    TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest

24End Using