excel - VBA数据层错误处理

Question

我有一些旧版 Excel 文件，其中包含大量对存储过程和数据库连接的调用，所有这些都以旧方式使用记录集完成...

由于在 VBA 中没有像 .NET 中那样的 try-catch-finally 概念，是否有任何最佳实践可以应用以获得更可靠的数据访问层？我想有一个很好的例子来说明如何打开连接，执行需要一些参数的存储过程，然后在任何成功或错误的情况下，关闭连接并释放资源。

Answer 1

在 VBA 中，您必须使用 On Error block :虽然很困惑，但很有效

On Error Goto ConnectionFail
' open connection
on Error GoTo 0
...
On Error GoTo QueryFail
' execute querys etc
on Error goto 0
...
Cleanup:
' close connection destroy objects etc
Exit Sub
ConnectionFail
On Error GoTo 0
' handle failure
GoTo Cleanup
QueryFail
On Error GoTo 0
' handle failure
GoTo Cleanup
End Sub