Anónimo
Eliminar el registro de dos tablas al mismo tiempo
Hola.. Mira necesito con urgencia una información...
Deseo eliminar el registro en dos tablas al mismo tiempo.. Por ejemplo.. Tengo mi tabal documentos y la tabla Historicodocumento, quiero que al dar clic en eliminar me elimine automáticamente en las dos tablas.. Pero no me pasa eso... Sigue siempre el registro.- Mi código que puse es este...
De antemano mil gracias
integer respuestad
noficio = sle_nreg.text
respuestad = messagebox("Mensaje", "Seguro de Eliminar el Reg", Exclamation!,YesNo!,2)
If respuestad =1 then
DECLARE EliminarDocumento PROCEDURE FOR EliminarDocumento
@NOficio = Noficio ;
execute EliminarDocumento;
wf_verificasql( )
DECLARE EliminarHistorico PROCEDURE FOR EliminarHistoricoDocumento
@NOficio = Noficio ;
execute EliminarHistorico;
wf_verificasql( )
Messagebox("Mensaje","Dato Eliminado")
Else
Messagebox("Mensaje"," Dato No Eliminado")
End if
Deseo eliminar el registro en dos tablas al mismo tiempo.. Por ejemplo.. Tengo mi tabal documentos y la tabla Historicodocumento, quiero que al dar clic en eliminar me elimine automáticamente en las dos tablas.. Pero no me pasa eso... Sigue siempre el registro.- Mi código que puse es este...
De antemano mil gracias
integer respuestad
noficio = sle_nreg.text
respuestad = messagebox("Mensaje", "Seguro de Eliminar el Reg", Exclamation!,YesNo!,2)
If respuestad =1 then
DECLARE EliminarDocumento PROCEDURE FOR EliminarDocumento
@NOficio = Noficio ;
execute EliminarDocumento;
wf_verificasql( )
DECLARE EliminarHistorico PROCEDURE FOR EliminarHistoricoDocumento
@NOficio = Noficio ;
execute EliminarHistorico;
wf_verificasql( )
Messagebox("Mensaje","Dato Eliminado")
Else
Messagebox("Mensaje"," Dato No Eliminado")
End if
Respuesta de Edw. N.
1
Algo más rapido y sencillo, uso store procedures pero declarados como funciones externar incluidas en un user object (Más adelante te puedo explicar como)
Para que no tengas problemas con las consulta de abajo, crea tu connection con "DATABASE" para que se conecte a tu base de datos
"database" te aparece en la por el lugar donde das click para ejecutar tu programa,
///////////////////////////////////////////////////////////
Integer respuestad
noficio = sle_nreg.text
if len(noficio )=0 then
messagebox("Mensaje", "Debe Ingresar un numero valido", Exclamation!,YesNo!,2)
return
end if
respuestad = messagebox("Mensaje", "Seguro de Eliminar el Reg", Exclamation!,YesNo!,2)
If respuestad =1 then
DELETE FROM Documentos
WHERE Noficio = :noficio // tu varibale declara arriba de tipo integer
using sqlca;
if sqlca.sqlcode=-1 then
MEssegebox ("Aviso","Error al eliminar documento nro" +noficio )
rollback
return //retorna ya que no puedes elimar el historico si no se elimina el principal
else // si elimina el principal entonces pasas a eliminar el historico
commit;
DELETE FROM HistoricoDocumentos
WHERE Noficio = :noficio // tu varibale declara arriba de tipo integer
using sqlca;
if sqlca.sqlcode=-1 then
MEssegebox ("Aviso","Error al eliminar documento Historico nro" +noficio )
rollback;
else
Commit
MEssegebox ("Aviso","Registros eliminados" )
end if
end if
Para que no tengas problemas con las consulta de abajo, crea tu connection con "DATABASE" para que se conecte a tu base de datos
"database" te aparece en la por el lugar donde das click para ejecutar tu programa,
///////////////////////////////////////////////////////////
Integer respuestad
noficio = sle_nreg.text
if len(noficio )=0 then
messagebox("Mensaje", "Debe Ingresar un numero valido", Exclamation!,YesNo!,2)
return
end if
respuestad = messagebox("Mensaje", "Seguro de Eliminar el Reg", Exclamation!,YesNo!,2)
If respuestad =1 then
DELETE FROM Documentos
WHERE Noficio = :noficio // tu varibale declara arriba de tipo integer
using sqlca;
if sqlca.sqlcode=-1 then
MEssegebox ("Aviso","Error al eliminar documento nro" +noficio )
rollback
return //retorna ya que no puedes elimar el historico si no se elimina el principal
else // si elimina el principal entonces pasas a eliminar el historico
commit;
DELETE FROM HistoricoDocumentos
WHERE Noficio = :noficio // tu varibale declara arriba de tipo integer
using sqlca;
if sqlca.sqlcode=-1 then
MEssegebox ("Aviso","Error al eliminar documento Historico nro" +noficio )
rollback;
else
Commit
MEssegebox ("Aviso","Registros eliminados" )
end if
end if