ASP.NET & Chart เป็น Control ของในกลุ่มของ Data Control บน Framework 3.5 และ 4.0 ขึ้นไป ที่เข้ามาช่วยในการสร้างกราฟ ซึ่งสามารถใช้ Control Charts นี้สร้างกราฟได้อย่างง่ายดาย และสะดวกมากเลยทีเดียว และยังมีรูปแบบกราฟ รวมทั้งฟีเจอร์ให้เลือกใช้อีกมากมาย
สำหรับ .NET 3.5 จะต้องดาวน์โหลด Microsoft Chart Controls Add-on for Microsoft Visual Studio 2008 ด้วยครับ
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI.DataVisualization.Charting
Partial Class AccessCharts
Inherits System.Web.UI.Page
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dt As New DataTable
Dim strConnString As String
Dim dtAdapter As OleDbDataAdapter
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("App_Data/mydatabase.mdb") & ";Jet OLEDB:Database Password=;"
objConn = New System.Data.OleDb.OleDbConnection(strConnString)
objConn.Open()
Dim strSQL As String
strSQL = "SELECT * FROM customer"
dtAdapter = New System.Data.OleDb.OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
'*** BindData to Charts ***'
Me.Chart1.DataSource = dt
Me.Chart1.Series("Series1").ChartType = SeriesChartType.Column
Me.Chart1.Series("Series1")("DrawingStyle") = "Emboss"
Me.Chart1.Series("Series1").XValueMember = "Name"
Me.Chart1.Series("Series1").YValueMembers = "Used"
Me.Chart1.Series("Series1").IsValueShownAsLabel = True
Me.Chart1.DataBind()
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
End Sub
End Class