Menampilkan Database ke DataGridView VB.Net 2010

Membuka aplikasi VB.Net 2010 atau dapat menggunakan VB.Net 2012

Langkah pertama membuat form di VB.Net 2010 bernama form Barang

Gambar VB Form Barang

Selanjutnya berikan DataGridView pada ToolBox ke form Barang

Gambar DataGridView pada ToolBox

Ganti DataGridView dengan nama DGVDetail

Buatlah Databasedengan nama db_barang.mdb. Buatlah table dengan nama rincian atribut sebagai berikut:

Gambar type data pada colomn table access

Isi beberapa data pada column , misalnya sebagai berikut :

Gambar isi data table

Letakkan atau simpan database tersebut kedalam folder project anda\bin\debug\db_barang_mdb. Direktori tersebut bisa terletak di Document\Visual Studio 2010\Project\<Nama project>\bin\debug.

Langkah berikutnya membuat table didalam DataGridView dengan cara mengklik gambar pada form Barang yang telah diberikan ToolBox DataGridView kemudian pilih Add Column

Gambar Add Column pada DataGridView

Column 1

Gambar Add Column 1

NOTE :

Pada Column Name berikan nama sesuai column pada Database.

Misalnya, pada Database column pertama bernama id_barang. Maka pada Column Name isikan dengan nama id_barang juga.

Pada Header Text, berikan nama yang akan tampil pada Header Column

Klik Add untuk membuat column nama_barang , merk, jenis, dan harga.

Jika sudah membuat semua column yang dibutuhkan , maka  pada DataGridView  tampilannya sebagai berikut :

Gambar DataGridView yang sudah diberi column

Selanjutnya copy Source Code berikut ini :

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public cmd As New OleDbCommand

    Public strsql As String

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        Else

            MsgBox("close")

        End If

        Me.RefreshDataView()

    End Sub

    Sub RefreshDataView()

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        DGVDetail.Rows.Clear()

        For i = 0 To TABLE.Rows.Count – 1

With DGVDetail

                .Rows.Add(TABLE.Rows(i)("id_barang"), TABLE.Rows(i)("nama_barang"), TABLE.Rows(i)("merk"), TABLE.Rows(i)("jenis"), TABLE.Rows(i)("harga"))

            End With

        Next

    End Sub

End Class

Penjelasan :

              : Koneksi Database Access db_barang.mdb

              : Membuka koneksi database

              : Memanggil sub RefreshDataView untuk menampilkan data ke DataGridView

              : Perintah SQL untuk mengambil data pada tabel barang

              : Menampilkan data dari database kedalam DatagridView

Jalankan aplikasinya, jka berhasil tampilannya sebagai berikut :

Gambar aplikasi yang berhasil

Referensi :

http://Tutorial/VB.Net/2010/Menampilkan-Database-Ke-20DataGridView-VB.net-2010.html

http://softwarepintarku.blogspot.co.id/search/label/VB.Net