VB.NET中OleDb仅返回首列数据，两小时排查未找到问题

嗨，我一眼就揪出了几个导致你“只能拿到第一列数据”的核心问题，咱们一步步来拆解修复：

1. 连接被提前释放是核心诱因 #

你在代码开头手动打开了Connection，但后续每个字段查询都套了Using Connection——Using语句的特性是代码块结束后自动调用Dispose()释放连接资源。这意味着第一个查询（获取Question）执行完，连接就被销毁了，后面的所有查询其实都是在已失效的连接上运行，自然拿不到任何数据！这就是为什么只有第一个字段有值，其他字段全为空的根本原因。

2. 重复单字段查询既低效又易出错 #

你为每个字段单独写一条SQL，不仅反复消耗数据库连接资源，还放大了出错概率。完全可以用一条SQL一次性捞取所有需要的字段。

3. 空异常捕获“吞掉”了错误线索 #

你的Catch块里啥都没做，就算后续查询抛出异常（比如连接已释放），你也看不到任何提示，这直接给排查问题加了难度buff。

4. SQL拼接存在安全与语法隐患 #

直接把Number拼进SQL里，不仅可能因特殊字符触发语法错误，还存在SQL注入的安全风险，必须用参数化查询替代。

修复后的完整代码 #

下面是优化后的代码，既解决了你的核心问题，也实现了你原本想封装逻辑的需求：

Private Sub StartBtn_Click(sender As Object, e As EventArgs) Handles StartBtn.Click
    Dim Numbers As New List(Of Integer)
    For X As Integer = 1 To 15
        Dim Num As Integer = RandomNum()
        Numbers.Add(Num)
    Next

    Dim temp_QuestionSet As New List(Of Question)
    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\course work\dttmq.accdb"

    ' 循环调用封装好的函数，代码更清爽
    For Each Number In Numbers
        Dim question = GetQuestionById(Number, connString)
        If question IsNot Nothing Then
            temp_QuestionSet.Add(question)
        End If
    Next
End Sub

' 封装的Question数据获取函数，复用性拉满
Private Function GetQuestionById(questionId As Integer, connString As String) As Question
    Dim question As New Question()
    question.ID = questionId

    ' 用Using自动管理连接，彻底避免资源泄漏
    Using connection As New OleDbConnection(connString)
        Try
            connection.Open()
            ' 一条SQL搞定所有字段查询
            Dim sql As String = "SELECT Question, Answer1, Answer2, Answer3, Answer4, CorrectAnswer FROM final WHERE QuestionID = @QuestionId"
            Using command As New OleDbCommand(sql, connection)
                ' 参数化查询，杜绝注入和语法坑
                command.Parameters.Add(New OleDbParameter("@QuestionId", questionId))
                
                Using reader As OleDbDataReader = command.ExecuteReader()
                    If reader.Read() Then
                        ' 一次性读取所有字段
                        question.Q = reader("Question").ToString()
                        question.A = reader("Answer1").ToString()
                        question.B = reader("Answer2").ToString()
                        question.C = reader("Answer3").ToString()
                        question.D = reader("Answer4").ToString()
                        question.Z = reader("CorrectAnswer").ToString()
                    Else
                        MessageBox.Show($"未找到QuestionID为{questionId}的记录")
                        Return Nothing
                    End If
                End Using
            End Using
        Catch ex As Exception
            ' 捕获异常并显示具体信息，排查问题不再瞎蒙
            MessageBox.Show($"获取问题失败：{ex.Message}")
            Return Nothing
        End Try
    End Using

    Return question
End Function

关键优化点说明 #

• 连接管理：用Using包裹OleDbConnection，确保连接自动释放，彻底解决原代码中连接被提前销毁的问题。
• 单查询多字段：把6条SQL合并成1条，大幅减少数据库交互次数，效率提升明显。
• 参数化查询：用@QuestionId参数替代字符串拼接，彻底规避SQL注入风险，也避免了数字转字符串的语法错误。
• 异常可视化：捕获异常并显示具体信息，让你快速定位问题根源。
• 逻辑封装：把数据访问逻辑抽到单独函数中，代码结构更清晰，也满足了你原本想封装的需求。

现在运行这段代码，应该就能正常获取所有字段的数据了。如果还有问题，看弹出的异常提示就能快速找到原因~

内容的提问来源于stack exchange，提问作者PENG He