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