Setelah kemarin membuat grafik Non-database, sekarang saya akan memberikan contoh cara membuat grafik dari database dengan Vb 6 . Skema nya sama terdiri Tutorial kemarin. Untuk lebih jelas nya coba kita liat di bawah ini.
Silahkan kan simak langkah-langkah tahapannya :
1. Pertama � tama pastikan dahulu Komponen grafik sudah muncul pada Toolbar Visual Basic 6.
2. Tambah kan Komponen Microsoft Ado Data Control 6 (OLEDB), Microsoft Datagrid Control 6 (OLEDB), 2 buah label, 2 buah Textbox, 5 buah Command.
3. Buatlah desain Form untuk menampilkan grafik-nya dari database seperti gambar di bawah
 |
| Desain Form Grafik dari database |
| OBJEK | PROPERTIES | PENGATURAN |
| Label1 | (Name) Caption | Label1 Deskripsi |
| Label2 | (Name) Caption | Label2 Jumlah ke 1 |
| Label3 | (Name) Caption | Label2 Jumlah ke 2 |
| Label4 | (Name) Caption | Label2 Jumlah ke3 |
| Text1 | (Name) | TxtDeskripsi |
| Text2 | (Name) | Txtjumlah1 |
| Text3 | (Name) | Txtjumlah2 |
| Text4 | (Name) | Txtjumlah3 |
| Listview1 | (Name) | Lv1 |
| Mschart1 | (Name) | Mschart1 |
| Command1 | Kolom 2 B | CmdGrafik Lihat Grafik |
4. Penulisan kode program
Simpan pada bagian module
Option Explicit
Public DbKoneksi As New ADODB.Connection
Public Rs_Agama As ADODB.Recordset
Public StrKoneksi As String
Public Sub BukaDatabase()
Set DbKoneksi = New ADODB.Connection
DbKoneksi.CursorLocation = adUseClient
'ACCES DATABASE
StrKoneksi = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + App.Path + "\Sekolah.mdb;Mode=readwrite"
If DbKoneksi.State = adStateOpen Then
DbKoneksi.Close
Set DbKoneksi = New ADODB.Connection
DbKoneksi.Open StrKoneksi
Else
DbKoneksi.Open StrKoneksi
End If
Set Rs_Agama = New ADODB.Recordset
Rs_Agama.Open "Select * FROM Agama", _
DbKoneksi, adOpenDynamic, adLockBatchOptimistic
End Sub
Simpan pada CmdGrafik
Private Sub cmdgrafik_Click()
Dim nilai(1 To 6, 1 To 6)
BukaDatabase
'Rs_Agama.Open "select * from agama", DbKoneksi
Rs_Agama.Requery
a = 0
Rs_Agama.MoveFirst
Do While Not Rs_Agama.EOF
a = a + 1
nilai(a, 1) = Rs_Agama!deskripsi
nilai(a, 2) = Rs_Agama!jumlah1
nilai(a, 3) = Rs_Agama!jumlah2
nilai(a, 4) = Rs_Agama!jumlah3
Rs_Agama.MoveNext
Loop
MSChart1.ChartData = nilai
End Sub
Simpan pada Form_load
Private Sub Form_Load()
BukaDatabase
Tampil
End Sub
Simpan pada General
Sub tampil()
Dim LV As ListItem
'OpenRecordset "Agama"
If Not Rs_Agama.EOF Then
LV1.ListItems.Clear
For I = 1 To Rs_Agama.RecordCount
Set LV = LV1.ListItems.Add(, , Rs_Agama(0))
LV.SubItems(1) = Rs_Agama(1)
LV.SubItems(2) = Rs_Agama(2)
LV.SubItems(3) = Rs_Agama(3)
LV.SubItems(4) = Rs_Agama(4)
Rs_Agama.MoveNext
Next
End If
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
