Tratando erros de acesso aos dados

Quando você usa ADO , erros podem ocorrer (com muita frequência ...). Geralmente o que você faz ?

Escreve uma rotina para tratamento de erros para gerenciar os erros que porventura possam ocorrer.

Você sabia que ao usar a interpretação de erro o objeto Err do VB é desativado.?

Se você for usar o tratamento de erro em linha sem uma interpretação de erro vai ter que usar o método Clear para remover as informações de erro que já existem antes de poder continuar com a execução do seu código

Você sabia que quando usa a ADO além de precisar do objeto Err vai precisar também do conjunto Errors para ter uma informação mais detalhada dos erros da fonte de dados ?

Quando ocorre um erro ou a fonte de dados retorna uma mensagem de erro , o objeto Error é criado e adicionado ao conjunto Errors . Para obter informação você deve consultar o conjunto Errors e cada objeto Error.

Vamos dar a seguir o código que cria uma interpretação de erro que oferece suporte a erros que possam ocorrer durante um conexão com uma fonte de dados.

Private Sub InicioConexao()

 Dim conexao As Connection
 Dim adoErr As Error

 Set conexao = New Connection

 On Error GoTo InicioConexaoError

 With conexao
   .Provider = "Microsoft.Jet.OLEDB.4.0;"
   .ConnectionString = "DATA SOURCE=C:\teste\Northwind.mdb;"
   .Open
 End With

  MsgBox "Conexao feita sem erros ", vbOKOnly
 Exit Sub
 InicioConexaoError:
 For Each adoErr In conexao.Errors
    MsgBox adoErr.Description, vbCritical
 Next
End Sub

Até aqui eu somente dei o empurrão inicial , você pode se aprofundar e melhorar o tratamento proposto...

Até a próxima...