VB数据库记录分类计数 求救

来源：百度知道 编辑：UC知道 时间：2024/05/12 04:26:03
VB数据库记录分类计数 求救

数据：
姓名 年龄 学历
张三 45 高中
李思 36 初中
王六 28 大学
陈二 47 大学

要汇总计数下列的表格

40-50岁 28-36岁
高中 1人 1人
初中 1人
大学 1人

汇总计数表格的代码该如何写，代码请详细写，小弟初学VB。
access的mdb数据库
请详细写一下代码，我也知道用SQL可以，可是我不会写代码，网上查到的代码还看不懂。

’目前我只会显示40-50岁而已。

Private Sub CommandSearch_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 学历, count(年龄) As 40至50岁 from class1 where 年龄 between 40 and 50 Group By 学历"
Adodc1.Refresh
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from class1"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

sql呀，用两个 left join就可以了，什么数据库

select 学历,case when 年龄 between 40 and 50 count(姓名) end as 40-50岁,case when 年龄 between 28 and 36 count(姓名) end as 28-36岁 from table1 group by 学历

buuhduei;afv1

如果你对SQL不太熟悉，建议你用判断语句：
Dim A,B,C,D,E,F
strSQL="Select * From Table1"
RS.OPEN strSQL,db,2,