vb中如何用mschart连接access画直方图

1、菜单中的工程－部件－添加"Microsoft ADO Data Control 6.0 (OLEDB)"和"Microsoft Chart Control 6.0 (OLEDB)"

2、在窗体中添加ADODC和MSChart并设置ADODC的数据源连接（查询或表）和MSChart的图表类型（直方图、饼图等）和DataSource属性为Adodc1

3、剩下的用语句对应好就差不多了。

补充：Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

具体 *** 作步骤如下：

1、首先，单击左侧工具框中的命令按钮，如下图所示，然后进入下一步。

　    

2、其次，双击以直接在表单上绘制，如下图所示，然后进入下一步。

　  

3、接着，或者可以单击命令按钮控件，再在页面上拖动绘制，如下图所示，然后进入下一步。

　    

4、然后，如果对外观不满意，可以在属性窗口中对其进行更改，如下图所示，然后进入下一步。

　    

5、随后，可以直接进入代码窗口，如下图所示，然后进入下一步。

　    

6、最后，编写号后，单击运行即可，如下图所示。这样，问题就解决了。

　    

先调用GraphShowBasic设置mschart的属性

Private Sub GraphShowBasic()

With MSChart1.Plot.Backdrop

' 除非将样式属性正确地设置为VtFillStyleBrush

' 否则不会有颜色显示。

.Fill.Style = VtFillStyleBrush

.Fill.Brush.FillColor.Set 100, 255, 200

' 添加边框。

.Frame.Style = VtFrameStyleThickInner

' 将样式设置为显示阴影。

.Shadow.Style = VtShadowStyleDrop

End With

With MSChart1.Plot

' 将样式设置为实心。

.Wall.Brush.Style = VtBrushStyleSolid

' 将颜色设置为。

.Wall.Brush.FillColor.Set 255, 255, 0

End With

With MSChart1.Plot '将绘图底色设置为蓝色。

.PlotBase.BaseHeight = 200

.PlotBase.Brush.Style = VtBrushStyleSolid

.PlotBase.Brush.FillColor.Set 0, 0, 255

End With

With MSChart1.Title.VtFont

.Name = "XXXXX"

.Style = VtFontStyleBold

.Effect = VtFontEffectUnderline

.Size = 14

.VtColor.Set 255, 0, 255

End With

End Sub

然后在Form_Activate函数中添加显示的代码就可以了

---