主程序Try/Catch异常处理时数据库对象是否仍处于打开状态？

核心问题解答：连接会保持打开状态 #

是的，当ExecuteNonQuery()因为字段名错误抛出异常时，vCNLOCAL.Close()这行代码完全不会被执行，此时你的数据库连接确实会处于打开状态。虽然.NET的垃圾回收器最终可能会回收连接对象并释放连接，但这个时机完全不可控，极容易导致数据库连接池耗尽、服务器资源浪费等问题，绝对不能依赖这种方式。

一、先解决最关键的：数据库资源泄漏问题 #

不管异常怎么处理，只要涉及SqlConnection、SqlCommand这类实现了IDisposable接口的对象，就必须用**Using语句**来管理生命周期——它会自动在代码块结束（不管是正常执行完还是抛出异常退出）时调用对象的Dispose()方法，而SqlConnection.Dispose()内部会自动关闭连接，从根源上避免连接泄漏。

修改后的AddRecordProcedure示例：

Sub AddRecordProcedure()
    Dim vDBLOCAL As String = "MyConnectionString"
    Dim vSQLOCAL As String = "INSERT INTO [MyTable] ([OMG! My Field Is Wrong!]) VALUES ('add something')"

    ' Using块自动接管连接和命令的释放逻辑
    Using vCNLOCAL As New SqlConnection(vDBLOCAL)
        Using vCMLOCAL As New SqlCommand(vSQLOCAL, vCNLOCAL)
            vCNLOCAL.Open()
            Dim c As Integer = vCMLOCAL.ExecuteNonQuery()
        End Using
    End Using
End Sub

二、异常处理的合理方案 #

1. 不建议只在主程序加单一Try/Catch #

虽然你想避免重复代码，但这种方式存在明显问题：

• 主程序无法精准定位异常来自哪个子过程，也没法针对业务操作异常和数据库异常做差异化处理；
• 数据库操作的资源释放不能依赖上层的异常处理，必须在本地确保资源被正确回收。

2. 统一异常处理的实现思路 #

方案：局部确保资源释放，上层统一处理业务逻辑

子过程内部用Using（或局部Try/Catch）确保资源释放，然后将异常包装后抛给上层，主程序负责统一的日志记录、用户提示等操作：

Sub Main_Procedure()
    Try
        Call DoStuffProcedure()
        Call AddRecordProcedure()
    Catch ex As Exception
        ' 统一处理：记录错误日志、给用户友好提示
        LogError(ex)
        MessageBox.Show("操作失败，请联系管理员")
    End Try
End Sub

Sub AddRecordProcedure()
    Dim vDBLOCAL As String = "MyConnectionString"
    Dim vSQLOCAL As String = "INSERT INTO [MyTable] ([OMG! My Field Is Wrong!]) VALUES ('add something')"

    Try
        Using vCNLOCAL As New SqlConnection(vDBLOCAL)
            Using vCMLOCAL As New SqlCommand(vSQLOCAL, vCNLOCAL)
                vCNLOCAL.Open()
                Dim c As Integer = vCMLOCAL.ExecuteNonQuery()
            End Using
        End Using
    Catch ex As SqlException
        ' 针对数据库异常可以做特殊判断（比如主键冲突、语法错误）
        ' 包装后抛给上层，保留原始异常信息
        Throw New ApplicationException("添加记录失败：数据库语法错误或字段不存在", ex)
    Catch ex As Exception
        ' 其他异常统一包装抛出
        Throw New ApplicationException("添加记录时发生未知错误", ex)
    End Try
End Sub

进阶优化：自定义异常类

如果业务场景复杂，可以定义专属的异常类（比如DataAccessException、BusinessOperationException），上层主程序可以根据异常类型做不同处理，既保证统一管理，又保留灵活性。

重要提醒：绝对不要留空Catch块

你示例中主程序的Catch块是空的，这会直接隐藏错误，导致问题无法排查，必须至少记录异常的详细信息（比如堆栈跟踪、错误消息）。

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