Memasukan data dari database ke ComboBox di VB.Net dan C#


DbtoComboBox Logo

Kebutuhan Aplikasi :
Microsoft Visual Studio 2008 Express Edition
– Sql Server 2005/2008 Express Edition

Berikut ini adalah step-step dalam membuatnya. Cekidot !!!

  1. Buat Database di SQL Server dengan nama dbBarang. Jika belum tau cara membuat database di SQL Server, silahkan anda klik disini untuk melihat caranya.
  2. Lalu buat tabel dengan nama Barang dan spesifikasinya sebagai berikut.
    Field Tipe Data Keterangan
    KodeBarang int auto increment, primary key
    NamaBarang nVarchar 35
    HargaBarang money
    JumlahBarang int 3

    Tambahkan record/data ke dalam tabel tersebut.

  3. Buka Microsoft Visual Studio caranya start -> run -> ketikkan devenv. Lalu buat project baru dengan nama : DbtoComboBox seperti gambar berikut ini. Jangan lupa pilih Windows Form Application dan pilih bahasa pemrograman sesuai keinginan anda, entah itu VB.Net maupun C# :)
  4. Ubah properti Form 1 seperti berikut ini.
    Object Properties Value
    Form 1 Text Database to ComboBox
    StartPosition CenterScreen
    label1 Text Nama Barang :
    ComboBox1 Name cbBox1
  5. Saatnya Coding :)

Untuk VB.Net :

kode di Form_Load :

cara akses event ini cukup klik 2x formnya. Lalu akan muncul kode seperti berikut.

Public Class Form1
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 End Sub
End Class

Nah, udah itu tambah kode lagi hingga kode di form1 menjadi seperti berikut ini.


Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
 Dim conn As SqlConnection
 Dim cmd As SqlCommand
 Dim rdr As SqlDataReader
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 conn = New SqlConnection("Data Source=ORION\SQLEXPRESS;Initial Catalog=dbBarang;Integrated Security=True")

Try
 conn.Open()
 cmd = New SqlCommand("SELECT NamaBarang FROM msBarang", conn)
 rdr = cmd.ExecuteReader()

While rdr.Read()
 cbBox1.Items.Add(rdr("NamaBarang"))
 End While

Catch ex As Exception
 MessageBox.Show("Koneksi Gagal !!!, karena " & ex.Message)
 End Try

cbBox1.SelectedIndex = 0
 End Sub
End Class

Penjelasan Kode :

  • Baris ke 1 dan 2 : kita sertakan namespace Data.Sql dan Data.SqlClient agar bisa mengakses database SQL Server dari VB.Net/C#
  • Baris ke 4 : Buat variabel conn dengan tipe data SqlConnection, yang berfungsi untuk koneksi ke database di SQL Server
  • Baris ke 5 : Buat variabel cmd dengan tipe data SqlCommand, yang berfungsi untuk membuat perintah SQL
  • Baris ke 6 : Buat variabel rdr dengan tipe data SqlData Reader, untuk menampung hasil dari perintah SQL dari SQLCommand
  • Baris ke 8 : koneksi ke Server SQL Server yang bernama ORION\SQLEXPRESS dengan database dbBarang. Baris ini perlu diperhatikan karena nama Server biasanya berbeda tiap komputer. Untuk mengecek server SQL Server sudah saya jelaskan pada artikel ini.
  • Baris ke 10 : mencoba kode yang ada di kalang Try, jika terjadi kesalahan/error maka jalankan kode yang ada di kalang Catch ex As Exception  (tampilkan messagebox koneksi gagal)
  • Baris ke 11 : Buka Koneksi
  • Baris ke 12 : buat perintah SQL untuk menampilkan semua record dari tabel msBarang
  • Baris ke 15 : masukan data/record yang ada di field NamaBarang ke dalam combo box satu persatu.

Untuk C# :
kode di Form_Load :

cara akses event ini cukup klik 2x formnya. Lalu akan muncul kode seperti berikut.

private void Form1_Load(object sender, EventArgs e)
 {

 }

Nah, udah itu tambah kode lagi hingga kode di form1 menjadi seperti berikut ini.


using System;
using System.Windows.Forms;
using System.Data.SqlClient;

namespace DbtoComboBox1
{
 public partial class Form1 : Form
 {
 SqlConnection conn;
 SqlCommand cmd;
 SqlDataReader rdr;
 public Form1()
 {
 InitializeComponent();
 }

private void Form1_Load(object sender, EventArgs e)
 {
 conn = new SqlConnection(@"Data Source=ORION\SQLEXPRESS;Initial Catalog=dbBarang;Integrated Security=True");

try
 {
 conn.Open();
 cmd=new SqlCommand("SELECT NamaBarang FROM msBarang",conn);
 rdr=cmd.ExecuteReader();

while (rdr.Read())
 {
 cbBox1.Items.Add(rdr[0]);
 }
 }
 catch (Exception ex)
 {
 MessageBox.Show("Koneksi Gaagal karena " + ex.Message);
 Application.Exit();
 }

cbBox1.SelectedIndex = 0;
 }
 }
}

Penjelasan Kode program untuk C# sama dengan VB.Net

6. Hasilnya.

 

Artikel Terkait : 


About these ads

About Wendi
An Extraordinary man wannabe. add my FB : https://www.facebook.com/wendi.octavious

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.