VB Net - Cara Memunculkan KodeBarang Pada ComboBox

1:18:00 AM
Belajar VB - Memunculkan KodeBarang Pada ComboBox
Pada Pembelajaran VB Net kali ini akan dibahas mengenai Cara Memunculkan KodeBarang Pada ComboBox.

Berikut langkahnya :

Tutorial atau pembelajaran ini adalah lanjutan dari Tutorial Sebelumnya yaitu Cara Memunculkan data pada ComboBox VB Net, namun pada Pembelajaran kali ini menggunakan Database.
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 :
Belajar VB - Memunculkan KodeBarang Pada ComboBox

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
End Class 

Silahkan Jalankan Aplikasi VB Net anda
Maka pada ComboBox akan Muncul KodeBarang yang ada di Tabel Barang

Semoga bermanfaat untuk anda, Jika ada kesulitan atau ingin bertanya, silahkan berkomentar dibawah

Salam,
BelajarVB.com 

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan