Ver Mensaje Individual
  #6 (permalink)  
Antiguo 27/04/2009, 10:25
CEB_ROJO
 
Fecha de Ingreso: marzo-2009
Mensajes: 33
Antigüedad: 15 años, 10 meses
Puntos: 0
Respuesta: Borrado de un registro

Cita:
Iniciado por Urko56 Ver Mensaje
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.