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