BRAINLESS: Menampilkan Record Ke ComboBox Dengan Visual Basic Net 2008

Jika sejumlah data data yang diinputkan ke database access dapat ditampilkan ke dalam suatu combobox tentu asik bukan?

Wah, bagaimana programnya? Jangan takut, berikut merupakan program untuk menampilkan record ke combobox dengan visual basic net 2008.

Terlebih anda harus buat dulu database access nya, dengan deskripsi berikut ini :

Nama Database : SmartSolution.Mdb
Nama Table : Buku
Field
1. Kode type Text
2. Judul type Text
3. Pengarang type Text
4. Penerbit type Text

Isikan minimal 2 data pada data buku tersebut.

Form yang didesain cukup satu form dengan combobox1 di form tersebut.

Ketikkan listing program menampilkan record ke combobox dengan visual basic net 2008

Imports System.Data.OleDb

Public Class Form1
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public RS As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Public Sub OpenDB()
        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseSmartSolution.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OpenDB()
    'Perintah SELEC ditambah karakter T
        SQL = "SELEC * FROM BUKU"
        CMD = New OleDbCommand(SQL, DB)
        RS = CMD.ExecuteReader
        ComboBox1.Items.Clear()
        Do While RS.Read()
            ComboBox1.Items.Add(RS("judul"))
        Loop
    End Sub
End Class

Sumber : Mesran.net