Vb .Net - Cara Memunculkan Data Jikalau Combobox Di Klik

Kembali lagi di Penggunaan ComboBox pada VB .Net, kali ini akan aku bahas mengenai Cara Memunculkan Data Jika ComboBox Di Klik - Pada VB .Net. Jika sebelumnya anda telah mengikuti Tutorial sebelum ini yaitu : Memunculkan Item Tabel Database di ComboBox, maka ini yakni lanjutan dari Tutorial tersebut.

Logikanya yakni sebagai berikut :
Pertama, kita harus memiliki database terlebih dahulu. Didalam database terdapat Tabel yang akan kita munculkan didalam Form VB .Net. Jika sudah muncul data di ComboBox maka data tersebut dimunculkan pada TextBox VB .Net lainnya.

Baiklah pribadi saja kita praktikan :
Buatlah sebuah database dengan nama : DBJNM.mdb
Kemudian buat tabel dengan nama : TBL_BARANG
Design TBL_BARANG yakni sebagai berikut :

Karena nantinya akan dimunculkan data didalam TBL_BARANG, silahkan masukan sample data :

Silahkan Simpan, jikalau sudah selesai, kita pribadi buka VB .Net anda
Buatlah Form dengan nama Form1 dan Design form menyerupai gambar dibawah ini :

Kemudian pada Form1, silahkan masukan koding dibawah ini :

  Imports System.Data.OleDb Public Class Form1     Dim CONN As OleDbConnection     Dim CMD As OleDbCommand     Dim DS As New DataSet     Dim DA As OleDbDataAdapter     Dim RD As OleDbDataReader     Dim LokasiDB As String     Sub Koneksi()         LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb"         Conn = New OleDbConnection(LokasiDB)         If Conn.State = ConnectionState.Closed Then Conn.Open()     End Sub     Sub KondisiAwal()         Koneksi()         DA = New OleDbDataAdapter("Select * from TBL_BARANG", CONN)         DS = New DataSet         DS.Clear()         DA.Fill(DS, "TBL_BARANG")         DataGridView1.DataSource = (DS.Tables("TBL_BARANG"))          CMD = New OleDbCommand("select * FROM TBL_BARANG", CONN)         RD = CMD.ExecuteReader         Do While RD.Read             ComboBox1.Items.Add(RD.Item(0))         Loop      End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Call KondisiAwal()     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         End     End Sub     Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick         Call Koneksi()     End Sub      Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged         CMD = New OleDbCommand("Select * from TBL_Barang where KodeBarang='" & ComboBox1.Text & "'", CONN)         RD = CMD.ExecuteReader         RD.Read()         If RD.HasRows Then             TextBox1.Text = RD.Item("NamaBarang")             TextBox2.Text = RD.Item("HargaBeli")             TextBox3.Text = RD.Item("HargaJual")             TextBox4.Text = RD.Item("JumlahBarang")             ComboBox2.Text = RD.Item("SatuanBarang")             TextBox1.Focus()         End If     End Sub End Class 

Silahkan anda Running atau jalankan Project VB .Net anda, berikut alhasil :

 Demikianlah Cara Memunculkan Data Jika ComboBox Di Klik Pada VB .Net, biar bermanfaat untuk anda :)