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 :

VB .Net - Cara Memunculkan Data Jika ComboBox Di Klik
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 :)


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

COMMENTS

Nama

add url,1,anak siantar,5,aplikasi,2,batak,1,bisnis,13,blogger,2,Bogor,1,budaya,3,CRUD,3,Crystal Report,6,Download,3,ef co id,1,english,1,facebook,7,Freelancer,2,hotel,2,informasi,37,inggris,1,Jaringan Komputer,3,jasa,2,jual beli,1,Kalendar,1,khas,1,komputer,8,kuliner,1,kursus,1,laptop,1,marketer,1,marketplace,10,Masehi,1,mobil,1,MUSIC AUDACITY,1,Neon Box,1,oyo,1,oyo penipuan,1,P2P,1,Pancawarna,1,perusahaan,2,produk,1,profesional,2,roi,1,Router,1,seo,1,siantar,5,sistem operasi,2,Software,3,submit url,1,Template,1,Tenda 03,1,Tips Trik VB .Net,15,Tutorial,11,Tutorial C#,5,Tutorial Database,14,Tutorial VB .Net,35,Wifi,1,windows,22,
ltr
item
Boi Meningkat Belajar Digital x Komputer: VB .Net - Cara Memunculkan Data Jika ComboBox Di Klik
VB .Net - Cara Memunculkan Data Jika ComboBox Di Klik
https://4.bp.blogspot.com/-WGx3kp303-k/VyWvxtr9okI/AAAAAAAABEM/MDAoLf2gki8Ndz3VmOqmRTNpZLgl1y77wCLcB/s16000/Form_Barang_VBNET-1.jpg
https://4.bp.blogspot.com/-WGx3kp303-k/VyWvxtr9okI/AAAAAAAABEM/MDAoLf2gki8Ndz3VmOqmRTNpZLgl1y77wCLcB/s72-c/Form_Barang_VBNET-1.jpg
Boi Meningkat Belajar Digital x Komputer
https://www.boimeningkat.com/2016/05/vb-net-cara-memunculkan-data-jika.html
https://www.boimeningkat.com/
https://www.boimeningkat.com/
https://www.boimeningkat.com/2016/05/vb-net-cara-memunculkan-data-jika.html
true
5369156563580459666
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share to a social network STEP 2: Click the link on your social network Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy Table of Content