Grafik VB.net menggunakan tool mschart

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.

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