VB .Net - Cara Memunculkan Data Jika ComboBox Di Klik

Kembali lagi di Penggunaan ComboBox pada VB .Net, kali ini akan saya 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 adalah lanjutan dari Tutorial tersebut.

Logikanya adalah sebagai berikut :
Pertama, kita harus mempunyai 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 langsung saja kita praktikan :
Buatlah sebuah database dengan nama : DBJNM.mdb
Kemudian buat tabel dengan nama : TBL_BARANG
Design TBL_BARANG adalah sebagai berikut :

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


Silahkan Simpan, jika sudah selesai, kita langsung buka VB .Net anda
Buatlah Form dengan nama Form1 dan Design form seperti gambar dibawah ini :

Cara Memunculkan Data Jika ComboBox Di Klik - VB .Net


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 hasilnya :

Cara Memunculkan Data Jika ComboBox Di Klik - VB .Net

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

4 comments:

  1. Mas, gimana kalo comboBox nya ada dua untuk menampilkan data dari dua tabel yang berbeda dalam satu database (SQLserver), misalnya dari TBL_Barang dan TBL_Pelanggan, dimunculkan kedalam Form Transaksi...
    bagi solusinya mas......

    ReplyDelete
    Replies
    1. Dear Gatot,
      Untuk memunculkan data didalam 1 form dengan menampilkan lebih dari 1 tabel sangat bisa..
      Mungkin Gatot bisa pelajari dari awal dulu kali ya..
      Dari Koneksi Database dengan memunculkan data ditabel.
      Denan dasar itu seharusnya gatot bisa berimajinasi sendiri
      Salam
      JNM

      Delete
  2. Pak di combobox saya udah muncul item collectionnya tapi kenapa di datagridview saya datanya tidak terlihat?

    ReplyDelete