Membuat Grafik Dinamis di Ms. Visual Basic 6.0 dengan Ms. Access 2007

Selamat pagi, kali ini saya akan berbagi mengenai cara membuat grafik di VB 6.0 dengan database MS. Access 2007. Berikut langkah-langkahnya :
1. Siapkan database accessnya, saya buat dengan nama dbpenduduk.accdb








2. Buka Aplikasi Ms. Vb, lalu siapkan sebuah form. Tambahkan references (Project-References) seperti di bawah ini:














3. Tambahkan tool MSChart dengan cara klik Project-Components.















4. Masukkan ke dalam form. Lalu ketikan script di bawah ini.


Private Sub Form_Load()
sambung 'koneksi dari module
diagram
End Sub

Sub diagram()
Set rs = New ADODB.Recordset
With rs
.Open "select * from tb_penduduk", conn, adOpenStatic, adLockReadOnly
End With
    With Me.MSChart1
        .chartType = VtChChartType2dBar
        .ColumnCount = rs.RecordCount
        .RowCount = 1
        .RowLabel = ""
        .Title = "Grafik Jumlah Penduduk"
        For i = 1 To rs.RecordCount
            .Row = 1
            .Column = i
            .Data = rs!jum_penduduk  '<<-- data nilai
            .ColumnLabel = rs!prov  '<<-- label kolom/kategori
            .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeOutside
            rs.MoveNext
        Next i
    End With
End Sub

5. Tambahkan sebuah module koneksi.

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Public Sub sambung()
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbpenduduk.accdb;Persist Security Info=False;"
End Sub
    
6. Project Selesai, silahkan di otak-atik lagi.














Semoga bermanfaat