Halo sobat Coding, saya akan melanjutkan pembahasan kembali mengenai Cara Menampilkan data dari Database ke Datagrid pada Visual Basic 6 / VB6 dengan menggunakan Mysql Database. Sebelumnya, saya telah membahas mengenai Cara Menampilkan data dari Database ke Listview pada VB.Net. Kali ini, saya akan menggunakan Datagrid untuk menampilkan database.

Seperti sebelumnya, untuk mengikuti Tutorial kali ini anda butuh membuat Cara Membuat Modul Koneksi Mysql Database pada VB6, kalo agan” ingin Cara Menampilkan data dari Database ke Datagrid pada VB6 mungkin coding yang ane kasih bisa bantu, langsung saja ane kasih listingnya :

Form Cara Menampilkan data dari Database ke Datagrid pada VB6

‘ SKRIP PROGRAM MENGATUR TATA LETAK GRID (KOLOM DAN LEBAR)
Sub AktifGridBarang()
With gridBarang
.Cols = 6 ‘ Jumlah kolom grid

.RowHeightMin = 300
.Col = 0
.Row = 0
.Text = “NO”
.CellFontBold = True
.ColWidth(0) = 400
.AllowUserResizing = flexResizeColumns
.CellAlignment = flexAlignCenterCenter

.RowHeightMin = 300
.Col = 1
.Row = 0
.Text = “KODE”
.CellFontBold = True
.ColWidth(1) = 1000
.AllowUserResizing = flexResizeColumns
.CellAlignment = flexAlignCenterCenter

.Col = 2
.Row = 0
.Text = “KATEGORI”
.CellFontBold = True
.ColWidth(2) = 2000
.AllowUserResizing = flexResizeColumns
.CellAlignment = flexAlignCenterCenter

.Col = 3
.Row = 0
.Text = “NAMA BARANG”
.CellFontBold = True
.ColWidth(3) = 5000
.AllowUserResizing = flexResizeColumns
.CellAlignment = flexAlignCenterCenter

.Col = 4
.Row = 0
.Text = “HARGA JUAL (Rp)”
.CellFontBold = True
.ColWidth(4) = 2000
.AllowUserResizing = flexResizeColumns
.CellAlignment = flexAlignCenterCenter

.Col = 5
.Row = 0
.Text = “DISKON (Rp)”
.CellFontBold = True
.ColWidth(5) = 2000
.AllowUserResizing = flexResizeColumns
.CellAlignment = flexAlignCenterCenter
End With
End Sub

‘ SKRIP PROGRAM UNTUK MENAMPILKAN DATA KE GRID
Sub TampilGridData()
Dim Baris As Integer

gridBarang.Clear
AktifGridBarang

gridBarang.Rows = 2
Baris = 0

If Rs_Barang.BOF Then
MsgBox “Tabel barang masih kosong!”, vbInformation + vbOKOnly, “Informasi”
Exit Sub
Else
With Rs_Barang
.MoveFirst
Do While Not .EOF
Baris = Baris + 1
gridBarang.Rows = Baris + 1
gridBarang.TextMatrix(Baris, 0) = Baris
gridBarang.TextMatrix(Baris, 1) = !kd_barang
gridBarang.TextMatrix(Baris, 2) = !nm_kategori
gridBarang.TextMatrix(Baris, 3) = !nm_barang
gridBarang.TextMatrix(Baris, 4) = !harga_jual
gridBarang.TextMatrix(Baris, 5) = !diskon
.MoveNext
Loop
End With
End If
End Sub

‘DATABASE AKAN DIPANGGIL KE DATAGRID PADA SAAT FORM LOAD

Private Sub Form_Load()
Move (Screen.Width – Width) / 2, (Screen.Height – Height) / 2

‘ BUKA DATABASE
Call BukaDatabase

‘ AMBIL DATA BARANG KE RECORDSET (Rs_Barang)
Set Rs_Barang = New ADODB.Recordset
Rs_Barang.Open “SELECT barang.*, kategori.nm_kategori FROM barang, kategori ” _
& ” WHERE kategori.kd_kategori=barang.kd_kategori ORDER BY barang.kd_barang”, _
Koneksi, adOpenDynamic, adLockBatchOptimistic
Call TampilGridData
End Sub

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

PAKET DVD VISUAL BASIC.NET

Harga : Rp.100.000,- + Ongkir

SMS ORDER : 0856-9769-5965