Skip to main content

Cara Menampilkan Data Pada ComboBox Dari Database

Image
By
Berikut saya share sebuah cara sederhana untuk menampilkan data dari database pada ComboBox. dimana pada saat mau mengeksplorasi susah untuk cari referensi. moga-moga aja ini dapat jadi referensi bagi yang sedang belajar tentang VB.Net

cara ini digunakan dimana query di tuliskan pada bagian form secara langsung, bukan menggunakan OOP. nanti akan ada lanjutan versi OOP yang akan saya share disini juga..

Private Sub Isi_Combo()

        MeKONEKSI.TUTUPKONEKSI()
        COMMAND = New SqlCommand("SELECT * FROM TabelUser ORDER BY LogUserId ASC", MeKONEKSI.BUKAKONEKSI)
        DTR = COMMAND.ExecuteReader

        CmbUSER.Items.Clear()
        While DTR.Read
            A = DTR.Item("LogUserId")
            B = DTR.Item("LogUsername")
            C = DTR.Item("LogAccess")
            CmbUSER.Items.Add(A & " | " & B & " | " & C)
        End While

    End Sub

Comments

  1. Unknown14 August 2015 at 20:18

    thank you buat tutorial cara mengambil data dari database menggunakan combo boxnya

    ReplyDelete

Post a Comment

Popular posts from this blog

CheckBox dalam DataGridView VB.Net

By
Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click         Dim Y As String = Mid(CmbUSER.Text, 1, 7)         Dim iROW As Integer         Dim AKSES As String         For iROW = 0 To DGVSample.Rows.Count - 1             'AksesBox = Nama CheckBox yang ada di DatagridView             If DGVSample.Rows(iROW).Cells("AksesBox").Value Then                 AKSES = "1"             Else                 AKSES = "0"             End If             'Class Proses DML (Simpan Data)             xSIMPAN.SIMPAN_AKSES(Y, DGVSample.Rows(iROW).Cells(1).Value, AKSES)         N
1 comment
Read more

LDAP In VB.Net

By
hey there friends,  here is this i would like to share another simple code in developing an application in VB.Net by now i would like to share how the way to use a LDAP (Lightweight Directory Access Protocol). at the time i need to develop a system which needs to use login user using domain user (ex: peoplename@company.co.id) no longer using user level in database. it is so confused to me to make it real at the time, because i never make it before. but this is the way how i make it happened. just make a simple form as below : next level : add another reference in your visual studio project (System.DirectoryService.dll) next : make a new class Imports System Imports System.Text Imports System.Collections Imports System.Security.Principal Imports System.DirectoryServices Public Class LDAPControlClass     Private NamaDomain As String = "company.co.id"     Private MemberOf As New List(Of String)     Public Function LoginLDAP(ByVal Username
Post a Comment
Read more