Office Web Components(OWC)提供資料繫結的 ActiveX 圖表控制項,支援 Excel 多數 2D/極座標圖表類型、組合圖表,可輸出 GIF 供瀏覽器顯示。
owcChartSpace.DataSource = RecordsetADOowcChart.Type = OWC.ChartChartTypeEnum.chChartTypeSmoothLineMarkersSetData 方法設定系列名、分類軸、數值軸。owcChartSpace.ExportPicture(path)Dim owcChartSpace As New OWC.ChartSpace()
Dim owcChart As OWC.WCChart = owcChartSpace.Charts.Add
Dim ConnADO As New ADODB.Connection()
Dim RecordsetADO As New ADODB.Recordset()
ConnADO.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Grades.mdb"))
RecordsetADO.Open("Select city, month, temperature From test order by city,ids", ConnADO)
owcChartSpace.DataSource = RecordsetADO
owcChart.Type = OWC.ChartChartTypeEnum.chChartTypeSmoothLineMarkers
owcChart.SetData(OWC.ChartDimensionsEnum.chDimSeriesNames, 0, "city")
For Each owcSeries In owcChart.SeriesCollection
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimCategories, 0, "month")
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimValues, 0, "temperature")
Next
owcChartSpace.ExportPicture(Server.MapPath("owc/price_" & Rnd() & ".gif"))