sjk 查询选修了K001课程的学生人数

在`SJK.rar_vb`中，如果有一个数据库表（如学生信息表`Students`）记录了学生选课情况，我们可以假设该表有字段如`StudentID`表示学生身份，`CourseID`表示课程ID，`IsSelected`表示是否选择了某门课程。要查询选修了K001课程的学生人数，我们可以在VB中编写SQL查询，如下：

Dim studentCount As Integer
Dim dbConnection As Object ' 假设已经建立了连接

' 连接到数据库
Set dbConnection = New ADODB.Connection
dbConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=SJK Database.accdb;" ' 替换成实际的数据库路径

' SQL 查询语句
sqlQuery = "SELECT COUNT(*) FROM Students WHERE CourseID = 'K001' AND IsSelected = True"
Set rs = dbConnection.Execute(sqlQuery)

' 获取结果
studentCount = rs.RecordCount

rs.Close
dbConnection.Close

' 输出选修K001课程的学生数量
MsgBox "选修K001课程的学生人数: " & studentCount

这里假设`IsSelected`字段为布尔类型，True表示选择，False表示未选择。请根据实际数据库结构调整SQL查询。