欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

从数据库提取数据绘制曲线图解决办法

更新时间: 2014-01-05 01:53:02 责任编辑: Author_N1

 

从数据库提取数据绘制曲线图
求助啊!
现在想通过ASP+OWC绘制曲线图
从网上看到如下一段代码,代码中的图表数据是固定
现然想请教高手们,如何从数据库中提取数据啊!
(就是代码的红色字体,不知如何改成从数据库中提取)

<table width="200" border="1">
  <tr>
  <td><img src="tmpchart.gif" width="760" height="350"></td>
  </tr>
</table>
<%
Dim strPicFile'生成的临时图表图片名
strPicFile=server.MapPath(".")&"\tmpchart.gif"
''图表数据部分,可以从数据库中取得
dim objConn,rs
Set objConn = Server.CreateObject("ADODB.Connection")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AspWeb\wwwroot\qis\data\qis.mdb"
objConn.Open connstr
 
sdata1="45,75,78,67,45,75,78,80"
sdata2="36,56,23,73"
x_line="1,2,3,4"
a_group="A,B"
a_group_arr = split(a_group,",")
x_line_arr = split(x_line,",")
data1_arr = split(rs(0),",")
data2_arr = split(Sdata2,",")
 
 
 
 
 
 
 
''-----------------生成图表开始---------------------------------------------------
Set ChartTmp = CreateObject("OWC11.ChartSpace")
Set cc = ChartTmp.Constants ''返回一个对象,此对象允许脚本用户使用已命名的常量。
'ChartTmp.Charts.delete(0)
Set cht = ChartTmp.Charts.Add(0) ''添加一个图表对象
cht.Type=cc.chChartTypeColumnClustered' 
''设置图表工作区中包含标题
ChartTmp.HasChartSpaceTitle = true 
with ChartTmp.ChartSpaceTitle
  .Caption ="测试图表"''设置图表工作区标题内容 
  ''有关字体的设置 
  .Font.Bold = True ''设置图表工作区标题内容是否粗体 
  .Font.Name = "Times New Roman" ''设置图表工作区标题内容的字体 
  .Font.Size = 18 ''设置图表工作区标题内容的大小(单位:磅) 
end with
''-------设置图例-------------------------------------------- 
cht.HasLegend = True ''指定图表工作区中含有图例 
cht.Legend.Font.Size = 9 ''其他有关字体项的设置参见设置图表标题部分 
cht.Legend.Position = cc.chLegendPositionBottom ''设置图例对其方式
''-------添加数据系列1(柱状图)-------------------------------------------- 
Set Series0 = cht.SeriesCollection.Add() ''添加一个數據系列 
with Series0
 ' .Type=cc.chChartTypeColumnClustered' (省略同图表基本类型)
 .SetData cc.chDimSeriesNames, cc.chDataLiteral, a_group_arr(0) ''系列 
 .SetData cc.chDimCategories, cc.chDataLiteral, x_line_arr ''横(X)轴数据(分类轴) 
 .SetData cc.chDimValues, cc.chDataLiteral, data1_arr''''纵(Y)轴数据
end with
Set dl = Series0.DataLabelsCollection.Add ''添加图例的数据标记 
dl.HasValue = True'显示数值
''-------添加数据系列2(柱状图)-------------------------------------------- 
Set Series0 = cht.SeriesCollection.Add() ''添加一个數據系列 
with Series0
 ' .Type=cc.chChartTypeColumnClustered' (省略同图表基本类型)
 .SetData cc.chDimSeriesNames, cc.chDataLiteral, a_group_arr(1)''系列 
 .SetData cc.chDimCategories, cc.chDataLiteral, x_line_arr ''横(X)轴数据(分类轴) 
 .SetData cc.chDimValues, cc.chDataLiteral, data2_arr''''纵(Y)轴数据
end with
Set dl = Series0.DataLabelsCollection.Add ''添加图例的数据标记 
dl.HasValue = True
''-------添加数据系列1(折线图)------------------------------------------ 
Set Series0 = cht.SeriesCollection.Add() ''添加一个數據系列
with Series0
 .Type=cc.chChartTypeLineMarkers'(折线图)
 .setData cc.chDimSeriesNames, cc.chDataLiteral, a_group_arr(0)''系列 
 .SetData cc.chDimCategories, cc.chDataLiteral, x_line_arr ''横(X)轴数据(分类轴) 
 .SetData cc.chDimValues, cc.chDataLiteral, data1_arr''''纵(Y)轴数据
end with  
''-------添加数据系列2(折线图)------------------------------------------ 
Set Series0 = cht.SeriesCollection.Add() ''添加一个 
with Series0
 .Type=cc.chChartTypeLineMarkers'(折线图)
 .setData cc.chDimSeriesNames, cc.chDataLiteral, a_group_arr(1)''系列 
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:53:02
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2503/
本文WWW.DOC100.NET DOC100.NET版权所有。