如何基于lvFaculty选中项设置SELECT语句的WHERE条件查询教师课程表？

首先，你的核心问题是：需要从lvFaculty的选中项中获取对应教师的FacultyID值，替换查询语句里的Faculty变量——因为你的WHERE子句是匹配qrySubjectOfferring表中的FacultyID字段，所以必须用这个ID值来做筛选（姓名可能重复，且表中存储的关联键是ID）。

下面是具体的实现步骤：

1. 确认lvFaculty的数据源结构 #

先回忆你填充lvFaculty的代码：你在绑定教师数据时，是否把FacultyID这个字段存储在了列表项的某个位置？常用的两种方式：

• 存储在列表项的Tag属性（推荐，因为不会显示在界面上，更隐蔽安全）
• 存储在列表项的某个**子列（SubItem）**中

举个填充lvFaculty的示例（假设用ADO记录集获取教师数据）：

' 填充lvFaculty的示例代码
Dim rs As ADODB.Recordset
Set rs = clsCon.con.Execute("Select FacultyID, FacultyName From 教师表")

Do While Not rs.EOF
    Dim lstItem As ListItem
    Set lstItem = lvFaculty.ListItems.Add(, , rs!FacultyName) ' 主列显示教师姓名
    lstItem.Tag = rs!FacultyID ' 把FacultyID存在Tag属性里
    ' 或者如果用子列存储：lstItem.SubItems(1) = rs!FacultyID
    rs.MoveNext
Loop
rs.Close

2. 在lvFaculty的点击事件中获取选中教师的FacultyID #

当用户点击lvFaculty中的教师姓名时，在对应的点击事件（比如lvFaculty_Click）里，取出选中项的FacultyID：

方法一：从Tag属性获取 #

Private Sub lvFaculty_Click()
    ' 先判断是否有选中项，避免空引用错误
    If lvFaculty.SelectedItems.Count = 0 Then Exit Sub
    
    Dim selectedFacultyID As String
    ' 获取选中项的FacultyID
    selectedFacultyID = lvFaculty.SelectedItems(1).Tag
    
    ' 构造查询语句
    Dim sql As String
    ' 注意：如果FacultyID是数字类型，要去掉单引号
    sql = "Select * From qrySubjectOfferring where FacultyID='" & selectedFacultyID & "'"
    
    ' 执行查询并绑定到lvSchedule（这里假设你有绑定列表的逻辑）
    Dim rs As ADODB.Recordset
    Set rs = clsCon.con.Execute(sql)
    ' 清空lvSchedule并填充数据
    lvSchedule.ListItems.Clear
    Do While Not rs.EOF
        Dim scheduleItem As ListItem
        Set scheduleItem = lvSchedule.ListItems.Add(, , rs!课程名称)
        ' 按需添加其他列数据
        scheduleItem.SubItems(1) = rs!上课时间
        scheduleItem.SubItems(2) = rs!教室
        rs.MoveNext
    Loop
    rs.Close
End Sub

方法二：从子列（SubItem）获取 #

如果你的FacultyID存在子列中（比如第2列，索引从1开始），那么把获取ID的代码改成：

selectedFacultyID = lvFaculty.SelectedItems(1).SubItems(1)

3. 更安全的写法：使用参数化查询 #

直接拼接SQL字符串存在SQL注入风险，尤其是当数据中包含特殊字符时。推荐用参数化查询替代：

Private Sub lvFaculty_Click()
    If lvFaculty.SelectedItems.Count = 0 Then Exit Sub
    
    Dim selectedFacultyID As String
    selectedFacultyID = lvFaculty.SelectedItems(1).Tag
    
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = clsCon.con
    cmd.CommandText = "Select * From qrySubjectOfferring where FacultyID=?"
    ' 根据你的FacultyID类型调整参数类型：adVarChar对应字符串，adInteger对应数字
    cmd.Parameters.Append cmd.CreateParameter("@FacultyID", adVarChar, adParamInput, 50, selectedFacultyID)
    
    Dim rs As ADODB.Recordset
    Set rs = cmd.Execute
    
    ' 绑定到lvSchedule的逻辑同上
    lvSchedule.ListItems.Clear
    Do While Not rs.EOF
        ' 填充lvSchedule的代码
        rs.MoveNext
    Loop
    rs.Close
    Set cmd = Nothing
End Sub

关键注意点 #

• 确保selectedFacultyID的类型和qrySubjectOfferring表中FacultyID的类型一致：如果是数字类型，SQL语句中不要加单引号；如果是字符串类型，需要加单引号。
• 一定要判断lvFaculty是否有选中项，避免空引用错误。

内容的提问来源于stack exchange，提问作者EJ Villamor