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 :
‘ 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 Cover Lampu Belakang Custom Yamaha N-MAX
- Jual Body Samping Custom Yamaha N-MAX
- Perintah LIKE dalam Query SQL Server
- Dijual Yamaha Scorpio G 2004 Tangki Kotak Biru Putih
- Membuat Enkripsi dengan Kriptografi MD5 di VB.Net
- Cara Menampilkan Data dari Database ke Datagridview pada VB.Net
- Cara Membuat Laporan Dengan Crystal Report Pada VB.Net dan Mysql
- Sistem Informasi Penduduk Tingkat RT
- Program Aplikasi Barcode Scanner
- Fungsi MIN () dalam Query SQL Server