您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)



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


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


vb使用ado控件连接access数据库使用mschart控件制作各类统计图，急！解决就给分
发表于：2007-07-30 13:47:20 楼主
vb为开发语言，使用mschart控件制作统计图表，数据库是access2000,求一个程序能够实现各类统计图，急！！！解决就给分！！！！我的邮箱是yitu142@163.com
发表于：2007-07-30 18:44:301楼 得分:0
怎么没人帮忙解决呢？分底吗？那30分
发表于：2007-07-30 18:45:162楼 得分:0
很着急啊，大家帮帮忙，多谢！！
发表于：2007-07-30 18:56:563楼 得分:0
各类统计图？

你做到哪步了？有问题拿上来问。这样没头没脑的怎么知道帮你哪里

http://community.csdn.net/expert/topicview3.asp?id=5668070
这个帖子很详细的mschart的例子，你看看
发表于：2007-07-30 20:23:034楼 得分:0
我是想实现饼状图，柱状图，如果可以的话加上折线图
这是我画瓢的一个程序，
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.close

end   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.close

end   sub
但是运行出来以后，为什么x轴的city_name不清楚呢？而且和excel作出来的柱状图不一样，感觉很别扭呢？当然我做的这个是直方图，可是我在charttype中找不到柱状图啊？
多谢啊！！！
发表于：2007-07-30 20:33:045楼 得分:0
2d   bar不就是柱状么？

mschart这个控件本身并不好用，显示不清楚和你的控件大小有关。可能名字太长了
发表于：2007-07-31 08:56:106楼 得分:0
“mschart这个控件本身并不好用，显示不清楚和你的控件大小有关。可能名字太长了”那怎么解决这个问题呢？
我把charttype里面每个都试了一遍，没发现啊？
难道是版本低？
发表于：2007-07-31 16:17:287楼 得分:0
解决方法就是换一个第三方控件

你所说的柱状图英文怎么说   你没有发现2d   bar,你是右键点开然后选择属性么？
发表于：2007-08-02 14:04:038楼 得分:0
第三方控件是什么啊？用什么控件呢
可能是因为我选择的项目比较多吧，我减少项目的数量就清楚了

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击