VB.NET连接MS Access报错‘连接当前处于打开状态’求助

嘿，我来帮你搞定这个问题！你遇到的“连接当前处于打开状态”报错，主要是因为数据库连接的状态管理不当，再加上代码里还有几个小问题，咱们一步步修复：

先说说你代码里的几个核心问题 #

• 未检查连接状态就直接打开：如果myconnection这个对象在之前的操作中已经处于打开状态，再次调用Open()就会触发错误。
• SQL语法错误：你的INSERT语句里，[Receiver]后面少了一个闭合的括号，导致SQL语句无效。
• 参数化查询用错了：你手动拼接了SQL字符串，同时又添加了参数，这不仅没用到参数化的安全优势，还白忙活了一场。
• 资源管理不严谨：如果ExecuteNonQuery抛出异常，你的连接可能没法正常关闭，导致后续操作报错。

修复后的完整代码 #

Private Sub addnew_Click(sender As Object, e As EventArgs) Handles addnew.Click
    ' 先弹出确认框，用户确认后再执行操作
    If MsgBox("Are you sure To save the data", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
        ' 使用Using语句自动管理连接和命令的资源，避免忘记关闭/释放
        Dim pro As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\ashwi\source\repos\Database\bin\Debug\daksystem.mdb"
        Using myconnection As New OleDbConnection(pro)
            ' 修正SQL语句，用参数占位符代替字符串拼接
            Dim command As String = "INSERT INTO [dispatch] 
                                    ([Dispatch Number], [Dispatch Date], [Document Type], [Subject], [Sender], [Receiver]) 
                                    VALUES (?, ?, ?, ?, ?, ?)"
            Using cmd As New OleDbCommand(command, myconnection)
                ' 添加参数，注意顺序要和SQL里的占位符一致
                cmd.Parameters.Add(New OleDbParameter("Dispatch Number", dispnumber.Text))
                cmd.Parameters.Add(New OleDbParameter("Dispatch Date", DateTimePicker.Text))
                cmd.Parameters.Add(New OleDbParameter("Document Type", doctype.Text))
                cmd.Parameters.Add(New OleDbParameter("Subject", subject.Text))
                cmd.Parameters.Add(New OleDbParameter("Sender", dsender.Text))
                cmd.Parameters.Add(New OleDbParameter("Receiver", receiver.Text))

                Try
                    myconnection.Open()
                    cmd.ExecuteNonQuery()
                    ' 清空输入框
                    dispnumber.Clear()
                    doctype.Text = String.Empty
                    subject.Clear()
                    dsender.Text = String.Empty
                    receiver.Clear()
                    MsgBox("Data saved successfully!", MessageBoxIcon.Information)
                Catch ex As Exception
                    MsgBox($"Error saving data: {ex.Message}", MessageBoxIcon.Error)
                End Try
            End Using ' 自动释放cmd资源
        End Using ' 自动关闭并释放myconnection资源
    End If
End Sub

关键修复点说明 #

1. 使用Using语句：OleDbConnection和OleDbCommand都实现了IDisposable接口，用Using包裹后，代码块结束时会自动关闭连接、释放资源，彻底避免“连接未关闭”或者“重复打开”的问题。
2. 修正SQL语法：补上了[Receiver]后面的闭合括号，确保SQL语句有效。
3. 正确使用参数化查询：用?作为参数占位符（Access的OleDb驱动用问号占位），不再手动拼接字符串，既避免了SQL注入，也解决了特殊字符（比如单引号）导致的SQL错误。
4. 调整确认逻辑：先让用户确认是否保存，再执行数据库操作，逻辑更合理。
5. 移除冗余代码：不需要手动调用cmd.Dispose()和myconnection.Close()，Using会自动处理这些。

内容的提问来源于stack exchange，提问作者Atul Kant Godiyal