VALIDACION DE ACTUALIZACION DE DATOS
Publicado por Hugo Alfonso (5 intervenciones) el 27/01/2007 20:56:27
Hola a todos,
Necesito saber un metodo para verificar o validar si una operacion se a realizado con exito o no (ingresar, actualizar o eliminar) en una base de datos. El bloque de codigo que uso es el siguiente:
If confirmar = vbYes Then ' confirma eliminación de la historia
recor2.Close
Set recor2 = conectar.OpenRecordset("delete from historiamotor where codigo ='" & txt_codigo.Text & "'AND Funcion='" & txt_funcion.Text & "' AND Servicio='" & txt_servicio.Text & "' AND FechaInst='" & fechainst & "' AND FechaRem='" & txt_fecharem.Text & "' AND Motivo='" & txt_motivo.Text & "'", dbOpenDynaset)
if ( AQUI DEBE IR LA VALIDACION O CONFIRMACION QUE NECESITO) then
MsgBox "Registro Eliminado", vbOKOnly, "Eliminación de Historia"
End if
End If
De antemano gracias por su ayuda.
Necesito saber un metodo para verificar o validar si una operacion se a realizado con exito o no (ingresar, actualizar o eliminar) en una base de datos. El bloque de codigo que uso es el siguiente:
If confirmar = vbYes Then ' confirma eliminación de la historia
recor2.Close
Set recor2 = conectar.OpenRecordset("delete from historiamotor where codigo ='" & txt_codigo.Text & "'AND Funcion='" & txt_funcion.Text & "' AND Servicio='" & txt_servicio.Text & "' AND FechaInst='" & fechainst & "' AND FechaRem='" & txt_fecharem.Text & "' AND Motivo='" & txt_motivo.Text & "'", dbOpenDynaset)
if ( AQUI DEBE IR LA VALIDACION O CONFIRMACION QUE NECESITO) then
MsgBox "Registro Eliminado", vbOKOnly, "Eliminación de Historia"
End if
End If
De antemano gracias por su ayuda.
Valora esta pregunta


0