Menampilkan Data Ke Combobox Di VB.NET

Setelah beberapa minggu yang lalu saya memposting Encryption dan Decryption String Dengan VB.NET
Kali ini saya akan memposting tentang Menampilkan Data ke Combobox Di VB.NET. Terkadang dalam membuat sebuah program kita perlu untuk Menampilkan Data ke Combobox Di VB.NET misalnya saja untuk menampilkan data kategori barang, satuan barang ataupun yang lainnya.

Langkah - langkah Menampilkan Data ke Combobox Di VB.NET

1. Buat sebuah database dengan nama latihan

2. Buat sebuah table di dalam database latihan dengan script dibawah ini

CREATE TABLE siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat varchar(100) not null
)

3. Tambah data pada table siswa dengan script dibawah ini

INSERT INTO	siswa (nis,nama,alamat) 
values ('334','Dwi Randy Herdinanto','Bandar Lampung'),
('335','Budi','Bandar Lampung'),
('336','Ita','Bandar Lampung')

Anda juga dapat mempelajari tentang Syntak Dasar SQL disini

4. Buat sebuah project dengan nama database combobox

5. Tambahkan sebuah combobox ganti namenya dengan cbo_nis dan DropDownStylenya pilih DropDownList sehingga tampilan pada form tersebut seperti gambar dibawah ini

6. Double click form tersebut lalu ketikan Imports System.Data.SqlClient

7. Pada Event Form_Load ketikan script dibawah ini

  'Membuat string koneksi ke database
        Dim sconn As String = "Data Source=.;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123"
        'Menyiapkan koneksi database
        Dim conn As New SqlConnection(sconn)
        'Menyiapkan perintah query
        Dim cmd As New SqlCommand("select nis,nama from siswa", conn)
        'Menyiapkan data adapter
        Dim adapter As New SqlDataAdapter(cmd)
        'Menyiapkan datatable untuk menampung data dari table siswa
        Dim dt As New DataTable
        'Menggunakan try agar ketika ada error maka akan melakukan statement yang ada di dalam block Catch ex As Exception
        Try
            'Binding data ke datatable
            adapter.Fill(dt)
            'Binding data dar datatable ke combobox
            cbo_nis.DataSource = dt
            'Menentukan nilai dari setiap pilihan di combobox
            cbo_nis.ValueMember = "nis"
            'Menentukan data yang akan di tampilkan di setiap pilihan combobox
            cbo_nis.DisplayMember = "nama"
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error") 'Menampilkan pesan error
        End Try

8. Jalankan program tersebut dengan menekan CTRL+F5

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Sekian dari saya
Terima kasih sudah mengunjungi blog saya,,dan jangan lupa berikan komentar untuk artikel ini