|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Tratando erros de acesso aos dados
|
 |
|
|
|
Postada em 24/8/2003 por Ð@®l@n
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...
fonte:www.macoratti.net
|
|
|
|
|
