Série Cadastro – Episódio #12

Programando o botão de deletar cliente em VB.net

Neste episódio vamos remover o cliente seleciona do banco de dados, mas antes de remover será exibida uma mensagem ao usuário solicitando a confirmação.

Veja o episódio abaixo:

Programando o botão de remover cliente.

Código do botão remover:

    Private Sub tsbDeletar_Click(sender As Object, e As EventArgs) Handles tsbDeletar.Click
        Dim cliente As New CAD_CLIENTE
        Dim par As New List(Of SqlParameter)

        Try
            par.Add(New SqlParameter("@ID", txtID.Text))

            If MessageBox.Show("Você tem certeza que deseja remover o cliente selecionado?", "Atenção",
                               MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                If cliente.DeleteCliente("DELETE CAD_CLIENTE WHERE ID = @ID", par) = True Then
                    MessageBox.Show("Cliente removido com sucesso!")
                    tsbCancelar_Click(Nothing, Nothing)
                Else
                    MessageBox.Show("Problema ao tentar remover cliente.")
                End If
            End If

        Catch ex As Exception
            MessageBox.Show("Problema ao tentar remover cliente.")
        End Try
    End Sub