VB Net - Cara Memunculkan Data Ketika ComboBox di Klik

Pada Pembelajaran VB Net kali ini akan dibahas mengenai Cara Memunculkan Data Ketika ComboBox di Klik Dengan VB Net.

Tutorial atau pembelajaran ini adalah lanjutan dari Tutorial Sebelumnya yaitu
Cara Memunculkan data pada ComboBox VB Net Tanpa Database
Cara Memunculkan Data Pada ComboBox Dengan Database


Untuk pembelajaran kali ini adalah, Jika di Klik Maka akan muncul datanya
Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :

2. Membuat Project VB Net dan Design Form
Buka Aplikasi VB Net anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder Project VB Net Anda yaitu bin\debug
Kemudian buatlah Design Form seperti gambar dibawah ini :

Kemudian 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=DBBelajarvb.mdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        DA = New OleDbDataAdapter("Select * from barang", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "Barang")
        DataGridView1.DataSource = (DS.Tables("Barang"))

        CMD = New OleDbCommand("select * FROM 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
        ComboBox1.MaxLength = 6
        Call CariData()
    End Sub
    Sub CariData()
        ComboBox1.MaxLength = 6
        CMD = New OleDbCommand("Select * from Barang where KodeBarang='" & ComboBox1.Text & "'", CONN)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            TextBox2.Text = RD.Item("NamaBarang")
            TextBox3.Text = RD.Item("JumlahBarang")
        Else
            MsgBox("Kode Supplier tidak terdaftar")
            ComboBox1.Focus()
            Exit Sub
        End If
    End Sub
End Class

Silahkan Jalankan Project VB Net anda
Semoga bermanfaat untuk anda, Jika ada kesulitan atau ingin bertanya, silahkan berkomentar dibawah

Salam,
BelajarVB.com