类中的通用try块，用于程序的多次使用（VB.net）

Question

我不确定它是否可能，但我想在我的程序周围使用这个try块的基本结构（以帮助处理检索数据库时的连接问题），是否有更有效的方法（即在类中获取块）并且只是将填充命令传递给它）将这些粘贴在我已经凌乱的代码上？

Dim retry As Boolean = True
Dim AllOk As Boolean = False
 While retry
  Try
      Tableadapter.fillbysomequery(dataset)
  Catch exError As MySql.Data.MySqlClient.MySqlException
      Select Case exError.Number
      Case 1042
          retry = CommonRoutines.ShowExceptionDialog(exError.Message, "No connection")
      Case 0
          retry = CommonRoutines.ShowExceptionDialog(exError.Message, "bad login")
      End Select
End Try
End While
If AllOk Then

  'Carry On with the setup stuff
End If

commonroutines.showexptiondialog是一个自定义异常对话框，根据“重试”或中止返回true或false。

10-15中的每一个中的几个不同的填充查询只会使这个地方的副本变得非常混乱。