vb使用ado控件连接access数据库使用mschart控件制作各类统计图，急！解决就给分

Question

vb为开发语言，使用mschart控件制作统计图表，数据库是access2000,求一个程序能够实现各类统计图，急！！！解决就给分！！！！

Answer 1

各类统计图？你做到哪步了？有问题拿上来问。这样没头没脑的怎么知道帮你哪里http://community.csdn.net/Expert/TopicView3.asp?id=5668070
这个帖子很详细的mschart的例子，你看看

Answer 2

我是想实现饼状图，柱状图，如果可以的话加上折线图
这是我画瓢的一个程序，
Private Sub Command1_Click()
 Dim i As Integer
    Dim NewDyn As Recordset
    Dim OpenWs As Workspace
    Dim OpenDB As Database
    Set OpenWs = DBEngine.Workspaces(0)
      Set OpenDB = OpenWs.OpenDatabase("D:\abc\db1.mdb ")
      Set NewDyn = OpenDB.OpenRecordset("select*from Provinces_R ", dbOpenSnapshot)
    NewDyn.MoveLast
    NewDyn.MoveFirst
    If NewDyn.RecordCount = 0 Then
    MsgBox "请在数据库中输入数据!”vbCritical"
      Exit Sub
      End If
      With MSChart1
    .TitleText = "直方图示例"
      .RowCount = NewDyn.RecordCount
      For i = 1 To NewDyn.RecordCount
      .Row = i
    .Data = NewDyn.Fields("disease_num")
    .RowLabel = NewDyn.Fields("city_name")
      NewDyn.MoveNext
      Next i
      End With
    NewDyn.CloseEnd SubPrivate Sub Command1_Click()
 Dim i As Integer
    Dim NewDyn As Recordset
    Dim OpenWs As Workspace
    Dim OpenDB As Database
    Set OpenWs = DBEngine.Workspaces(0)
      Set OpenDB = OpenWs.OpenDatabase("D:\abc\db1.mdb ")
      Set NewDyn = OpenDB.OpenRecordset("select*from Provinces_R ", dbOpenSnapshot)
    NewDyn.MoveLast
    NewDyn.MoveFirst
    If NewDyn.RecordCount = 0 Then
    MsgBox "请在数据库中输入数据!”vbCritical"
      Exit Sub
      End If
      With MSChart1
    .TitleText = "直方图示例"
      .RowCount = NewDyn.RecordCount
      For i = 1 To NewDyn.RecordCount
      .Row = i
    .Data = NewDyn.Fields("disease_num")
    .RowLabel = NewDyn.Fields("city_name")
      NewDyn.MoveNext
      Next i
      End With
    NewDyn.CloseEnd Sub
但是运行出来以后，为什么x轴的city_name不清楚呢？而且和excel作出来的柱状图不一样，感觉很别扭呢？当然我做的这个是直方图，可是我在charttype中找不到柱状图啊？
多谢啊！！！

Answer 3

2D bar不就是柱状么？mschart这个控件本身并不好用，显示不清楚和你的控件大小有关。可能名字太长了

Answer 4

“mschart这个控件本身并不好用，显示不清楚和你的控件大小有关。可能名字太长了”那怎么解决这个问题呢？
我把charttype里面每个都试了一遍，没发现啊？
难道是版本低？

Answer 5

解决方法就是换一个第三方控件你所说的柱状图英文怎么说 你没有发现2D bar,你是右键点开然后选择属性么？