用VB计算access的表里符合条件的个数

Question

表的名称是AB，里面有三列，分别是 姓名、班级、成绩。想通过VB获取表里一班，且成绩为80分的人的个数。

Adodc1.RecordSource = "select * from AB "
Adodc1.Refresh
在refresh这里总出错，求解

Answer 1

VB中连接 Access 数据库,直接用 Data 数据控件就可以了,其在设置上也比较简单.
如:
窗体中放置 Data1 数据控件
在 Form_Load()事件中初试化数据控件并连接数据源
With Data1
.DataName="数据文件路径及名称" 如:"C:\zbc.mdb"
.RecordSource="SELECT * FROM AB"
.Refresh
End With
就OK了
要想实现查询,如:

With Data1
.DataName="数据文件路径及名称" 如:"C:\abc.mdb"
.RecordSource="SELECT * FROM AB WHERE 班级='1' AND 成绩>=80"
.Refresh
End With

Adodc 数据控件当然也能连接 Access 数据库,只是在设置连接字符串的时候比较讲究.如ConnectionString 中要考虑数据库是否加密及数据库访问者等信息, CommandType 属性要考虑使用的是表还是查询等等资料 ....
如:
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\abc.mdb"
.CommandType = adCmdText
.RecordSource = "SELECT * FROM AB "
.Refresh
End With

追问

我用的是Adoddc1,也可以实现，但是当我把查询条件增加到两个时 refresh出错，一个时不报错。代码如下
Adodc1.recordsouce="select * from table where (" & "姓名=’“&text1.text&”‘’) and (" & "成绩=’“&text2.text&”‘’) "

追答

你的的这句 有些问题 Adodc1.recordsouce="select * from table where (" & "姓名=’“&text1.text&”‘’) and (" & "成绩=’“&text2.text&”‘’) "

一般写条件时这样:
Where (姓名='" & Trim(Text1.Text) & "' AND 成绩 =" & Text2.Text & "')"
因为这里字段"成绩"你用的是数字的话,"值"的引用就不能加单引号了.
我一般向下面这样写:
Where (姓名='"+Trim(Text1)+"' AND 成绩="+Format(Text2)+")"
这里用Format进行转换.

Answer 2

Adodc1.ConnectionString = "" '是连接Access数据库的连接语句，例如：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路径/文件名.mdb;Persist Security Info=False"
有了数据库连接，才能：Adodc1.RecordSource = "select * from AB Where 成绩>=80"
再操作Adodc1的记录集：Adodc1.Recordset，当然操作记录集的方法很多，自己琢磨