USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página