Grafik |
Bagaimana cara membuat grafik pada aplikasi yang akan kita buat dengan berbasis client - server ??
semoga artikel ini dapat membantu anda bagaimana cara membuat membuat grafik berbasis database.
Labels: SqlServer, Chart
Saya develop aplikasi ini menggunakan Visual studio 2008, Sebagai database saya menggunakan sqlserver untuk membuat tabel pada sql server, silahkan lihat ini membuat database sederhana. mulailah untuk membuat project baru pada Visual studio anda,
pada file > new > new project > visual basic buatlah window form, pastikan toolbox telah teriinstal mschart, jika mschart belum terinstal pada visual studio anda, anda dapat mendownload nya disini MSchart.
setelah mschart terinstal lakukan langkah-langkah ini untuk menampilkan mschart di toolbox
klik kanan pada toolbox pilih choose items.. klik Browse ke directory C:\Program Files\Microsoft Chart Controls\Assemblies pilih System.Windows.Forms.DataVisualization.dll kilk ok, Pastikan Chart tercentang lalu ok.
Saya develop aplikasi ini menggunakan Visual studio 2008, Sebagai database saya menggunakan sqlserver untuk membuat tabel pada sql server, silahkan lihat ini membuat database sederhana. mulailah untuk membuat project baru pada Visual studio anda,
pada file > new > new project > visual basic buatlah window form, pastikan toolbox telah teriinstal mschart, jika mschart belum terinstal pada visual studio anda, anda dapat mendownload nya disini MSchart.
setelah mschart terinstal lakukan langkah-langkah ini untuk menampilkan mschart di toolbox
klik kanan pada toolbox pilih choose items.. klik Browse ke directory C:\Program Files\Microsoft Chart Controls\Assemblies pilih System.Windows.Forms.DataVisualization.dll kilk ok, Pastikan Chart tercentang lalu ok.
Toolbox chart |
drag chart ke windows form atau double click, anda dapat menambahkan beberapa fitur-fitur yang ada pada propertis sesuai yang ingin anda tampilkan pada form nanti
Grafik Propertis |
untuk Binding data dari database ke grafik, double click form anda, masukan koding berikut ini.
Dim Str As String = "Data Source=192.168.1.1\SQLEXPRESS;Initial Catalog=Contoh; User=admin; Pwd=1" ' String koneksi database anda
Try
Dim cnt As New SqlClient.SqlConnection(Str)
Dim cmd As New SqlClient.SqlCommand
cnt.Open()
cmd.Connection = cnt
Dim Comment As String = "SELECT top 5 Penjualan, tanggal FROM grafik "
Dim da As New SqlClient.SqlDataAdapter(Comment, cnt)
Dim ds As New DataSet()
da.Fill(ds, "grafik")
Chart1.Series("Series1").XValueMember = "tanggal"
Chart1.Series("Series1").YValueMembers = "Penjualan"
Chart1.DataSource = ds.Tables("grafik")
cnt.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
dari perintah tersebut saya meminta pada database untuk menampilkan 5 teratas penjualan tertinggi untuk seluruh penjualan dari tanggal yang ada pada table grafik, pastikan database anda "tersimpan data" sehingga grafik dapat terlihat, database ini berkaitan dengan artikel yang dibuat sebelumnya membuat database sederhana untuk menyimpan data pada table sesuai dengan database yang anda ingin simpan anda dapat menyimpannya secara manual pada Query sql server atau melalui aplikasi seperti artikel berikut ini Insert,Save,Update dan Delete pada VB net.
sourcecode
dari perintah tersebut saya meminta pada database untuk menampilkan 5 teratas penjualan tertinggi untuk seluruh penjualan dari tanggal yang ada pada table grafik, pastikan database anda "tersimpan data" sehingga grafik dapat terlihat, database ini berkaitan dengan artikel yang dibuat sebelumnya membuat database sederhana untuk menyimpan data pada table sesuai dengan database yang anda ingin simpan anda dapat menyimpannya secara manual pada Query sql server atau melalui aplikasi seperti artikel berikut ini Insert,Save,Update dan Delete pada VB net.
sourcecode