Borrado de un registro

[Urko56]

Hola,
tengo un form en VB 2005, y a la hora de borrar un registro quiero meter un mensaje con un texto para confirmación.

Si hago esto:

Código:

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        If MsgBox("Vas a borrar este registro. Deseas continuar?", MsgBoxStyle.YesNo + 256, "¡¡ATENCION!!") <> MsgBoxResult.Yes Then
            Exit Sub
        End If
    End Sub

Continua como si nada.

Alguien me dice algo? Gracias de nuevo

[lucasarts_18]

Hola.

Intenta con esto.

Código:

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        If MsgBox("Vas a borrar este registro. Deseas continuar?", MsgBoxStyle.YesNo + 256, "¡¡ATENCION!!") <> MsgBoxResult.No Then
            Exit Sub
        End If
    End Sub

Saludos .-

PD: Me da la sensación que no haces la lógica como corresponde...

[Urko56]

Mi lógica es esta:

La respuesta "Yes" implica el borrado del registro, es decir continuamos con la rutina de borrado.

Cualquier respuesta diferente de "Yes", que mi caso sería "No", debería abortar el proceso, mi pregunta es ¿Como? hago esto último.

Gracias

[Bazookao]

Código:

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
        If MsgBox("Vas a borrar este registro. Deseas continuar?", MsgBoxStyle.YesNo + 256, "¡¡ATENCION!!") = MsgBoxResult.No Then
            Return
        End If
    End Sub

si es esta la primera parte del codigo que se utiliza no es necesario que utilizes un Else ya que Return finaliza el proceso

[Urko56]

Sigue sin detener el evento "delete". Supongo que debe de haber alguna forma.
Seguiré buscando. Ya lo comentaré.

Gracias y saludos

[CEB_ROJO]

Iniciado por Urko56

Sigue sin detener el evento "delete". Supongo que debe de haber alguna forma.
Seguiré buscando. Ya lo comentaré.

Gracias y saludos

Mirá, lo que yo hago es un borrado lógico (No físico de registro) por las dudas...

If Opcion = 2 Then (Opcion= variable en el boton Eliminar)

Dim Respuesta As MsgBoxResult = MsgBox("Está Seguro de Eliminar el Registro?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Aviso")
If Respuesta = MsgBoxResult.Yes Then
SistDeCalidadConection.Open()
Ds.Clear()
Da = New SqlDataAdapter(CadenaSelect, SistDeCalidadConection)
Da.Fill(Ds, "Calidades")

Cmd = New SqlCommand("Sp_BajaModificaCalidad", SistDeCalidadConection)
Cmd.CommandType = CommandType.StoredProcedure
Cmd.Parameters.Add("@Codigo", SqlDbType.Int).Value = Convert.ToInt16(txtId.Text)
Cmd.Parameters.Add("@Calidad", SqlDbType.NVarChar).Value = txtDescripcion.Text
Cmd.Parameters.Add("@Eliminado", SqlDbType.NVarChar).Value = "X"
Cmd.ExecuteNonQuery()
Ds.Clear()
Da.Fill(Ds, "Calidades")
DataGridView1.Focus()
DataGridView1.DataSource = Ds.Tables(0)

txtId.Text = ""
txtDescripcion.Text = ""
'============================
DataGridView1.Enabled = False
btnEliminar.Enabled = True
btnGuardar.Enabled = False
btnCancelar.Enabled = False
Else
DataGridView1.Focus()
DataGridView1.Refresh()
txtId.Text = ""
txtDescripcion.Text = ""
btnGuardar.Enabled = False
btnCancelar.Enabled = False
End If
SistDeCalidadConection.Close()
End If

La "X" en el parametro Eliminado, se agrega en una columna de la tabla y en posteriores consultas pongo que la columna que contenga "X" no se tenga en cuenta, a pesar de que el registro igualmente esta en la tabla.
Desde ya que también hice un procedimiento para Restaurar eliminados.
Saludos y espero que te sirva.

[Urko56]

Uffff!! Gracias, lo tengo que estudiar. Yo funciono con el bindingnavigator, y claro..., te lo hace todo. Evidentemente esto tiene muchas ventajas y también inconvenientes, y el mayor de ellos es que no se pueden controlar los procesos (o no sé como hacerlo)

Tal vez sea la solución, olvidarme del bindingnavigator y meter "a pelo" los métodos add, update y delete.

Alguien me podría comentar la conveniencia o no de hacer esto?

Trabajo con Visual Studio 2005

Gracias y un saludo