Usuário com melhor resposta
Como melhorar esta rotina?

Pergunta
-
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
Respostas
-
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.- Sugerido como Resposta Eduardo.RomeroModerator terça-feira, 10 de março de 2015 14:41
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 10 de março de 2015 19:46
-
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
- Sugerido como Resposta Eduardo.RomeroModerator terça-feira, 10 de março de 2015 16:58
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 10 de março de 2015 19:46
Todas as Respostas
-
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.- Sugerido como Resposta Eduardo.RomeroModerator terça-feira, 10 de março de 2015 14:41
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 10 de março de 2015 19:46
-
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
- Sugerido como Resposta Eduardo.RomeroModerator terça-feira, 10 de março de 2015 16:58
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 10 de março de 2015 19:46