错误

Question

最近我遇到了一个问题。 当访问应用程序丢失它的互联网连接（显然它与数据库的连接）时，会出现3146错误。该任务是在重新建立互联网连接后实现错误处理，恢复和继续执行程序。

我在MSDN上进行了大量阅读，并在Stackoverflow上进行了大量阅读，并且没有找到解决问题的明确解决方案。

Answer 1

所以我找到了适合我的解决方案。 这是一个简短的算法大纲：

Sub name_of_the_sub
   Dim ...... As ....
   Dim ...... As ....
   ...

Loop_Label:

   On Error GoTo ErrorHandler

   {code that might throw an error}
   ...

   GoTo Loop_Label

ErrorHandler:
   {log your error}
   {wait for a some time}
   {connect to data base}
   Resume Loop_Label:

 End Sub