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:
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 SubArtigos relacionados:
