Judul : combo lookup textbox vbnet msaccess
link : combo lookup textbox vbnet msaccess
combo lookup textbox vbnet msaccess
Dalam pembuatan aplikasi seringkali ANDA dihadapkan pada masalah pemilihan kode barang dari combo barang lalu menampilkan nama barang nya di textbox seperti gambar di bawah ini: |
selanjutnya setelah dipilih salah satu item barang lalu di klik combo nya maka nama barang muncul di textbox seperti gambar di bawah ini: |
berikut adalah kode sellengkapnya: |
Imports System.Data.OleDb Public Class Form1 Private sConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ Application.StartupPath & _ "\database1.accdb;Persist Security Info=False;" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load isiCombo() End Sub Private Sub isiCombo() Dim oConn As New OleDbConnection(sConn) oConn.Open() Dim oCmd As New OleDbCommand("select nama_barang from tblBarang", oConn) Dim oDr As OleDbDataReader oDr = oCmd.ExecuteReader Dim oTbl As New DataTable oTbl.Load(oDr) For i = 0 To oTbl.Rows.Count - 1 ComboBox1.Items.Add(oTbl.Rows(i).Item(0)) Next End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _ e As System.EventArgs)Handles ComboBox1.SelectedIndexChanged TextBox1.Text = ComboBox1.Text End Sub End Class |
download source code combo lookup texbot vbnet ms access klik di sini! |
Demikianlah Artikel combo lookup textbox vbnet msaccess
Sekianlah artikel combo lookup textbox vbnet msaccess kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Anda sekarang membaca artikel combo lookup textbox vbnet msaccess dengan alamat link https://re-plye.blogspot.com/2016/03/combo-lookup-textbox-vbnet-msaccess.html
Posting Komentar
Posting Komentar