Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Cara Menampilkan data dari Database ke Datagrid pada VB6

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 500x489 Mysql Database to Datagrid VB6 Menampilkan Datagrid dari Database Mysql Listing Datagrid Visual Basic 6

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

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme