none
Como melhorar esta rotina? RRS feed

  • 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

    domingo, 8 de março de 2015 01:16

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.

    terça-feira, 10 de março de 2015 14:40
    Moderador
  • 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.

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

    terça-feira, 10 de março de 2015 16:18

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.

    terça-feira, 10 de março de 2015 14:40
    Moderador
  • 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.

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

    terça-feira, 10 de março de 2015 16:18