Obral Blckberry z 10 Murah Banget
Pada Postingan sebelumnya saya sudah menjelakan bagaimana cara untuk menampilkan Database ke dalam ListView. Pada kesempatan kali ini saya akan menjelaskan bagaimana cara menampilkan data dari database kedalam DataGridView menggunakan database Access dan VB.net 2010. OK langsung eksekusi saja gak usah banyak bicara.
- Buat Form di VB net 2010 anda berimana form Barang
Gambar form Barang
- Berikan DataGridView pada ToolBox ke form Barang
Gambar DataGridView pada Toolbox
- Kemudian ganti nama DataGridView dengan DGVDetail
- Buatlah database dengan nama db_barang.mdb. Buat table dengan nama barang dengan rincian atribut sebagai berikut :
Gambar type data colom tabel access
- Isi tabel tersebut dengan beberapa data. misal sebagai berikut
Gambar isi data tabel
- Letakkan database tersebut didalam folder project anda\bin\debug\db_barang.mdb. Direktori tersebut bisa terletak di Documents\Visual Studio 2010\Projects\<Nama Ptoject>\bin\debug\.
- Selanjutnya membuat tabel di dalam DataGridView. Klick gambar pada no 1 kemudian pilih Add Coloumn
Gambar Add coloumn pada DataGridView
- Coloumn 1
PERHATIAN
Pada Kolom Name : Berikan nama sesuai Colom yang ada pada database
Misal : Pada database Colom pertama bernama id_barang, maka untuk kolom Name isikan id_barang juga.
Pada Kolom Header text : Berikan nama yang akan tampil pada Header Colom
- Klik Add untuk membuat Coloumn nama_barang, merk, jenis dan harga.
- Jika Sudah membuat semua kolom yang dibutuhkan, tampilan Datagridview akan seperti berikut :
Gambar DataGrid yang sudah diberu Coloumn
- Selanjutnya Copykan Source Code Berikut:
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 Datagrid
- Jalankan aplikasi, jika berhasil tampilan akan seperti berikut :
Tampilan Saat berhasil dijalankan
Bagi yang lagi malas tidak usah kawatir saya sediakan aplikasiyang sudah jadi, silahkan download di SINI.
Sekian tutorial sederhana saya, karena suatu yang istimewa dimulai dari kesederhanaan.
Selain Datagrid baca juga artikel saya Menampilkan Database Ke dalam Listview.
Selain Datagrid baca juga artikel saya Menampilkan Database Ke dalam Listview.
INGAT : Jangan malas untuk Coding.
om kok ane gak muncul apa apa yah
BalasHapussaya menggunakan database mysql
dan koenya
Private Sub TampilData()
Dim da As New MySqlDataAdapter("select * from tbl_pegawai", db)
Dim dt As New DataTable
da.Fill(dt)
dgv.Rows.Clear()
For i = 0 To dt.Rows.Count - 1
With dgv
dgv.Rows.Add(dt.Rows(i)("idpegawai"), dt.Rows(i)("nama"), dt.Rows(i)("nip"), dt.Rows(i)("jabatan"), dt.Rows(i)("status"), dt.Rows(i)("pangkat"), dt.Rows(i)("gender"), dt.Rows(i)("alamat"), dt.Rows(i)("kontak"))
End With
Next
End Sub
coding untuk koneksi dari database ke vb net nya blm ada gan, makanya gk bisa,,,
Hapuscoba deh ikutin petunjuk berikut :
1. install dulu driver bwt konekin my sql le vbnet nya,,
coba download d http://dev.mysql.com/downloads/connector/net/
2. Setelah terinstall dengan baik proses selanjutnya adalah add referenceke vb.net dengan cara klik menu project -> add reference : pilih mysql.data lalu tekan tombok ok.
3. truz code d bawah ini
Imports MySql.Data.MySqlClient
Public Class Form1
'variabel untuk koneksi ke database dan perintah2 SQL nya.
Dim kon As New MySqlConnection("server=localhost ; user id=root;database=NAMADATABASE")
Dim perintah As New MySqlCommand
'variabel untuk menampilkan data pada DataGridView
Dim datatabel As New DataSet
Dim tampildata As New MySqlDataAdapter
End Class
Buat lah Sebuah “Sub” yang gunanya untuk menampilkan sebuah datatabel di dalam DataGridView
Sub tampilkan()
kon.Open()
perintah.Connection = kon
perintah.CommandType = CommandType.Text
perintah.CommandText = "SELECT * FROM barang"
tampildata.SelectCommand = perintah
datatabel.Tables.Clear()
tampildata.Fill(datatabel, "barang")
DataGridView1.DataSource = datatabel.Tables("barang")
kon.Close()
End Sub
tengkyu banget gan.. codingnya membantu bgt.
BalasHapusbuat agan2 diatas yg belum berhasil, jangan menyerah untuk baca error nya dimana.
saya juga ngetes nggak langsung berhasil, masi banyak yg harus isesuaikan dengan database kita. :)
Komentar ini telah dihapus oleh pengarang.
BalasHapusWith sqlAdapter
BalasHapus.SelectCommand = SqlCommand
.Fill(TABLE)
End With
TABLE ini di deklarasiin jadi apa ya mas ?
apakah jd DataTable ?
TABLE itu nama variabe dari new DataTable
Hapusbisa d ganti sesuai yang mas ingin kan?
Kalo Yang RefreshDataview itu deklarasinya dari mana mas?
Hapusmaafikut nyambung hehe
kalau mau munculin hanya beberapa field yang ada di tabel ke datagrid, bagaimana ya?
BalasHapusGAN ANE YG BAGIAN WARNA UNGU YANG DGVDetailnya gak ke dklarasi kenapa ya? mohon dibantu gan
BalasHapusDGVDetail.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
Sama gan.. Gimana gan udh nemu solusi ny gak
HapusPrivate Sub Form_pelanggan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
BalasHapusCondb.Close()
koneksi()
Call tampilpelanggan()
Call aturtombol(True)
dtspelanggan.Tables("pelanggan").Clear()
Call tampilpelanggan()
DGVPelanggan.DataSource = dtspelanggan.Tables("pelanggan")
'selesai
Gan setiap mau menanpilkan table barang pasti disini ( dtspelanggan.Tables("pelanggan").Clear()) kodenya kuning dan tablenya gak muncul gan
saya sudah coba beberapa kali tapi tetap datagridview nya ndak bisa tampil ...
BalasHapusKalo pake data gridview harus konek ke database/xampp ya?
BalasHapusKalo gak konek bisa gak? Misal nya cuman input di vb nya trus langsung nampilin ke data gridview nya..
gana kalo saya make accesskok malah muncul baccan kayak gini yah
BalasHapusOne or more error(s) occured while processing the database object(s) Click ok to continue anyway or cancel go back to the wizard and try yo fix the errors
kok masih tidak muncul ? padahal sudah mengikuti petunjuk
BalasHapusImports System.Data.OleDb
Public Class Form1
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 ubah_b As Integer = 0
Private Sub Form1_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()
MsgBox("Database terhubung")
Else
MsgBox("close")
End If
Me.LoadListView()
End Sub
Sub LoadListView()
ListViewBarang.FullRowSelect = True
ListViewBarang.MultiSelect = False
ListViewBarang.View = View.Details
ListViewBarang.Columns.Clear()
ListViewBarang.Items.Clear()
ListViewBarang.Columns.Add("KodeBarang", 50, HorizontalAlignment.Left)
ListViewBarang.Columns.Add("Nama_Barang", 200, HorizontalAlignment.Left)
ListViewBarang.Columns.Add("Harga_Barang", 50, HorizontalAlignment.Left)
ListViewBarang.Columns.Add("STOK", 100, HorizontalAlignment.Left)
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
On Error Resume Next
For i = 0 To TABLE.Rows.Count - 1
With ListViewBarang
.Items.Add(TABLE.Rows(i)("Kode_Barang"))
With .Items(.Items.Count - 1).SubItems
.Add(TABLE.Rows(i)("Nama_Barang"))
.Add(TABLE.Rows(i)("Harga_Barang"))
.Add(TABLE.Rows(i)("STOK"))
End With
End With
Next
On Error Resume Next
End Sub
Kalau data base menggunakan access kayak mana min tblmahasiswa?🙏🙏🙏
BalasHapusReplacement earrings for Teton, Aji, & CX-9,
BalasHapusReplacement earrings for titanium block Teton, Aji, titanium body armor & ford escape titanium for sale CX-9, Chrysler. $9.99. titanium ring Replacement earrings for Teton, Aji, infiniti pro rainbow titanium flat iron & CX-9, Chrysler. $9.99. Replacement earrings for Teton, Aji, & CX-9, Chrysler.