Question

vb中如何让数据库中的表1 的 信息 显示在 MSChart控件中作个柱状统计图 红色代表已加工

用程序怎么连接数据库的数据
如何将已加工，待加工，不合格的数据 与红绿蓝 的柱状 图对应的程序怎么编





Answer 1

这个就是对mschart的chartdata 赋值的问题,对chartdata数据类型般我会用数组
我这里有实例代码
http://hi.baidu.com/wzhxxt/item/0992bcefffd2e5276dabb8b9

下面连接是显示效果及打印的方法

http://hi.baidu.com/wzhxxt/item/fd3589b6364bd7f062388ebe

希望对你有些帮助。

追问

不是的，就是让磨床的数据对应mshart中磨床的柱状图中 去如何实现数据库与mshart数据一一对应，

追答

你把程序发给我，我帮你改改
wzhxxt@126.com

追问

不好意思这个没程序的 柱状图是用mschart生成的改的是属性，数据库是自己做的
就是想2个关联起来

追答

Dim MyData(2, 2) As Double

'-----x轴坐标值-----Y轴坐标值----------

MyData(0, 0) = 1000: MyData(0, 1) = 1500: MyData(0, 2) = 10

MyData(1, 0) = 1500: MyData(1, 1) = 1602: MyData(1, 2) = 12

MyData(2, 0) = 1200: MyData(2, 1) = 1785: MyData(2, 2) = 20

'MyData(12, 2) = 112: MyData(12, 0) = 60

'MyData(12, 1) = 500

'波形图外观设置

With MSChart1

.TitleText = "图      型"

' '设置图线的外观

.Plot.SeriesCollection(1).Pen.Width = 30

.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid

.Plot.SeriesCollection(2).Pen.Width = 25

.Plot.SeriesCollection(2).Pen.Style = VtPenStyleSolid '不显示第二条绿色线，只要红蓝

.Plot.SeriesCollection(3).Pen.Width = 20

.Plot.SeriesCollection(3).Pen.Style = VtPenStyleSolid

' '设置XY轴

.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False

.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False

'// 设置最大值

.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 1

.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 2000

'// 设置最小值

.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0

.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0

'//

.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 12 'X轴主要网格数量

.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 'Y轴主要网格数量

.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量

.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量

.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted

.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted

MSChart1.Plot.AutoLayout = True

MSChart1.Plot.UniformAxis = False

MSChart1.chartType = 1  '设置图形为线图

MSChart1.ChartData = MyData '数据

'设置R1-R13，其余以此类推。

.Row = 1

.RowLabel = "铣床"

.Row = 2

.RowLabel = "摩床"

.Row = 3

.RowLabel = "钻床"

End With

关于数据，你用sql读出来放在mydata中就行了，这很简单

追问

谢谢，图形我做好了，数据库也做好了数据，我本来只想数据图形关联起来还是感觉难度大，
，这里我想请教一下，就是数据库中机床种类10几个时，第10行的已加工怎么表示

追答

对于X轴多长是数组的第一维来决定的，如我定义mydata(20,2)，那x轴上就有21个

如果不确定第一维上限，就用动态数组好了

如果我理解错了你的意思，你就发个图上来

追问

如何用sql语句连接呢我只会调用 第一行的几个

追答

用sql查询时，不是产生一个记录集吗？

那记录集的个数就是 数组的第一维上限就行了

记录集就是一张逻辑的二维表，就是看有多少行数据 ，行数就是要的个数

追问

额就这个一一对应不会，只能
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\abc.mdb"
rst.Open "select * from 记录", cnn, adOpenDynamic, adLockPessimistic

Text1.Text= rst!铣床
Text2.Text=rst!磨床
Text3.Text= rst!钻床
rst.Update
调出第一行的铣床 ，