Menampilkan Record Ke ComboBox Dengan Visual Basic Net 2008

Program Form Login Ke Aplikasi Menggunakan Username dan Password Di Database Menggunakan VB Net

Program C Sharp Edit Data Pada Database SQL Server

Program C Sharp Untuk Menghapus Data di Database SQL Server 2005

Program C Sharp Input Data Ke SQL Server

Program C Sharp Searching Data Pada Database SQL Server

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
Nah sudah lihat program diatas bukan? yuk belajar bahasa pemrograman visual basic dot net .