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

vb中读access数据库问题!急!

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

vb中读access数据库问题!急!

发表于：2007-05-15 19:23:52 楼主

怎样在vb中读取access数据时,对数据进行分类（比如成绩的好坏划分),并用百分比表示出来,最好能用图的形式表示出来,谢谢!

发表于：2007-05-15 20:51:261楼得分:0

帮顶

发表于：2007-05-15 21:04:172楼得分:0

1.连接数据库
2.根据需要写sql
3.表示可以用mschart

应该就可以了

发表于：2007-12-27 17:07:093楼得分:0

同意clear_zero的意见。

建议在access里头建立好相应的查询，到时候直接从相应的查询中读数据就可以了。最后将结果输出为图表。

发表于：2007-12-31 19:58:354楼得分:0

先要找到好坏之间的界线，然后根据它来写sql查询语句！

发表于：2008-01-05 08:27:175楼得分:0

先把界限划分如果用到列表建议用vb中的 listview控件然后通过ado连接access数据库
读去要查询的数据表
例如：表"everybody_sum" 中保存着学生的所有成绩，此表中的成绩字段名为 e-sum 名字字段为 name则下面

使用ado连接
xxx.open select * from everybody_sum
‘开数据库
'检测数据库中是否有数据
if xxx.（rec^^^^)> 0 then （)中这个我没有记住怎么拼，你查以下好了
如果有数据则使用 select case语句判断选择

xxx.movefirst
for x = 1 to xxx.（rec^^^^)

进入for循环，首先比较学生成绩输入哪个划分
name= xxx.fildes.（"name").values

select case xxx.fildes.（"e_sum").values ""这里的拼写好象也有错误我记性不好语法没有错误就是拼写那位帮忙翻译一下哦
case xxx.fildes.（"e_sum").values> 80
a= 好
case 80> xxx.fildes.（"e_sum").values> 60
b= 中等
case 60> xxx.fildes.（"e_sum").values
a= 差
end case

然后写入listview

xxx.movenext '''移到下一数据
next x
（（（（（a,b,c))))))代表listvies中的3个列
a 列名 80分以上 b列名 60分到80分 b列名 60分以下
name 好中等差
name 好中等差
name 好中等差
name 好中等差
name 好中等差
name 好中等差
name 好中等差
name 好中等差
name 好中等差

告诉你的是思路好好研究以下吧！