Setelah beberapa hari yang lalu saya memposting tentangMembuat Textbox Auto Complete Di VB.NET, Kali ini saya akan memposting tentang Membuat Combobox Auto Complete Di VB.NET,
sebenarnya caranya hampir sama seperti Membuat Textbox Auto Complete Di VB.NET yang harus dilakukan yaitu melakukan query select untuk mendapatkan data dari database lalu meletakan data ke datatable setelah itu membinding data dari datatable ke combobox,
Langkah - langkah Membuat Combobox Auto Complete Di VB.NET
1, Buatlah sebuah database dengan nama latihan
3. Buatlah sebuah project di visual studio
4. Tambahkan sebuah combobox ke dalam form tersebut,dan atur tata letaknya seperti gambar dibawah ini
5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient
6. Pada event Form_Load ketikan script dibawah ini
7. Jalankan program tersebut dengan menekan F5
sebenarnya caranya hampir sama seperti Membuat Textbox Auto Complete Di VB.NET yang harus dilakukan yaitu melakukan query select untuk mendapatkan data dari database lalu meletakan data ke datatable setelah itu membinding data dari datatable ke combobox,
Langkah - langkah Membuat Combobox Auto Complete Di VB.NET
1, Buatlah sebuah database dengan nama latihan
2. Buat sebuah table dengan script dibawah ini
1 | create table siswa ( |
2 | nis varchar(15) not null primary key, |
3 | nama varchar(50) not null, |
4 | alamat text not null |
5 | ) |
3. Buatlah sebuah project di visual studio
4. Tambahkan sebuah combobox ke dalam form tersebut,dan atur tata letaknya seperti gambar dibawah ini
5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient
6. Pada event Form_Load ketikan script dibawah ini
01 | 'mendeklarasikan variable |
02 | Dim cmd As SqlCommand |
03 | Dim adapter As SqlDataAdapter |
04 |
05 | 'menyiapkan koneksi database |
06 | Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123") |
07 | 'menyiapkan sqlcommand |
08 | cmd = New SqlCommand("select nama from siswa order by nama asc", conn) |
09 | 'menyiapkan data adapter |
10 | adapter = New SqlDataAdapter(cmd) |
11 | 'mendeklarasikan dt sebagai datatable |
12 | Dim dt As New DataTable |
13 | 'mengisi data dari sqldataadapter ke datatable |
14 | adapter.Fill(dt) |
15 |
16 | 'binding data ke combobox |
17 | ComboBox1.DataSource = dt |
18 | ComboBox1.DisplayMember = "nama" |
19 | ComboBox1.ValueMember = "nama" |
20 | 'set property autocompletemode menjadi suggest append |
21 | ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend |
22 | 'set property autocompletesource menjadi listitems |
23 | ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems |
24 | End Using |
7. Jalankan program tersebut dengan menekan F5
Anda bisa mendownload source codenya disini
dan untuk passwordnya disini
ConversionConversion EmoticonEmoticon