求助：‘Invalid attempt to call Read when reader is closed’错误原因

兄弟，你的问题根源我一眼就看出来了——你在第一个SqlDataReader的循环里，不小心把它依赖的数据库连接给提前关闭了！

核心错误原因 #

在你第一个While sqlReader_ComName.Read()循环的ElseIf分支里，你执行了sqlConnComName.Close()，而这个sqlConnComName正是sqlReader_ComName所属的数据库连接。对于SqlDataReader来说，它的运行是完全依赖于关联连接的：一旦连接关闭，Reader会被自动强制关闭。当循环执行下一次sqlReader_ComName.Read()时，Reader已经处于关闭状态，自然就抛出Invalid attempt to call Read when reader is closed.这个错误了。

除此之外，你的代码还有几个容易导致资源混乱的问题：

• 手动管理连接/命令/Reader的关闭和释放，很容易出现遗漏或顺序错误
• 直接拼接SQL字符串，存在严重的SQL注入风险
• 重复执行几乎完全相同的SQL查询，浪费数据库资源

修复方案及优化代码 #

我给你重构了代码，解决了核心问题，同时用上了.NET最佳实践：

' 用Using自动管理连接、命令、Reader的生命周期，无需手动Close/Dispose
Using sqlConnComName As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnString").ConnectionString)
    sqlConnComName.Open()
    ' 改用参数化查询，彻底避免SQL注入
    Dim sqlComName As String = "Select COUNT(*), Company from TicketDetails where Company = @Company AND Priority = @Priority AND Application = @Application AND Creator = @Creator AND Status = @Status AND Module = @Module AND Category = @Category AND IssueType = @IssueType AND IssueDescription = @IssueDescription"
    
    Using sqlCmdComName As New SqlCommand(sqlComName, sqlConnComName)
        ' 添加参数，注意参数类型要和数据库字段匹配，这里示例用SqlDbType.VarChar，你可以根据实际调整
        sqlCmdComName.Parameters.Add("@Company", SqlDbType.VarChar).Value = Company.SelectedValue
        sqlCmdComName.Parameters.Add("@Priority", SqlDbType.VarChar).Value = Priority.SelectedValue
        sqlCmdComName.Parameters.Add("@Application", SqlDbType.VarChar).Value = Application.SelectedValue
        sqlCmdComName.Parameters.Add("@Creator", SqlDbType.VarChar).Value = Creator.Text
        sqlCmdComName.Parameters.Add("@Status", SqlDbType.VarChar).Value = Status.SelectedValue
        sqlCmdComName.Parameters.Add("@Module", SqlDbType.VarChar).Value = [Module].SelectedValue
        sqlCmdComName.Parameters.Add("@Category", SqlDbType.VarChar).Value = Category.SelectedValue
        sqlCmdComName.Parameters.Add("@IssueType", SqlDbType.VarChar).Value = IssueType.SelectedValue
        sqlCmdComName.Parameters.Add("@IssueDescription", SqlDbType.VarChar).Value = IssueDescription.Text
        
        Using sqlReader_ComName As SqlDataReader = sqlCmdComName.ExecuteReader()
            If sqlReader_ComName.Read() Then
                Dim count As Integer = Convert.ToInt32(sqlReader_ComName.GetValue(0))
                If count > 0 Then
                    ' 直接从当前Reader获取Company值，不用再查一次数据库
                    Dim CompanyName As String = sqlReader_ComName.GetString(1)
                    ' 这里写你后续要处理CompanyName的逻辑
                End If
            End If
        End Using
    End Using
End Using

优化点说明 #

1. Using语句：自动处理资源的释放，即使发生异常也能保证连接、命令、Reader被正确关闭，彻底避免手动管理的失误
2. 参数化查询：完全杜绝SQL注入风险，同时让SQL语句更清晰，避免字符串拼接的语法错误
3. 合并查询：一次查询同时获取COUNT和Company值，不用重复执行相同条件的SQL，提升性能
4. 简化逻辑：去掉了多余的循环（COUNT查询只会返回一行结果，不需要While循环）

内容的提问来源于stack exchange，提问作者JY Ng