Como melhorar esta rotina?

Question

Por favor, como posso melhorar esta rotina?

private sub Gravar

   dim objUsuarios as new clsUsuarios

   objUsuarios.Nome = txtNome.text.trim

   objUsuarios.Nivel = txtNivel.text.trim

   me.cursor = cursors.waitcursor

    try

      objUsuarios.gravar

    Catch ex as exception

      me.cursor = cursors.default

      msg("Erro na graação do registro." & vbnewline & ex.message, msgboxstyle.critical, "Atenção.")

   finally

      me.cursor = cursors.default

      objusuarios = nothing

end try

end sub

Estou tendo que redefinir o cursor duas vezes;

Devo fazer objUsuarios = Nothing ou não tem necessidade por ser definida no local?

Grato pela atenção

Answer 1

Bom dia Edson,

Pelo que entendi do seu código, esse "finally" não se faz necessário. Sugiro que você retire ele do seu código, creio q apenas o catch será suficiente, já que você não está definindo nenhuma exception específica. Qualquer dúvida, nos retorne com mais detalhes que continuaremos ajudando.

Obrigado,

Abraço!

---

Eduardo Romero

Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.

Answer 2

Só complementando, antes de inserir dados vindos de componentes deve-se verificar se o mesmo contem valores, nas textBox txtNome e txtNivel se vierem nulas vai gerar uma exception.

---

A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel