Ver Mensaje Individual
  #1  
Antiguo 14-08-2003
Michel Michel is offline
Miembro
 
Registrado: jul 2003
Ubicación: Venezuela
Posts: 55
Reputación: 23
Michel Va por buen camino
Como usar el Rollback

Como estan amigos foreros.

Estoy usando lo Componentes de IBO y quisiera saber como usar el ROLLBACK.


Mi problema es el siguiente Ejemplo:

Estamos 2 Usuarios en la misma tabla, El usuario 1 modifica el Registro 2 y graba y el segundo usuario en ese instante modifica tambien el Registro 2. yo quisiera inteceptar ese error con un mensaje personalizado no de la maquina "RECORD NOT WAS LOCATED TO UPDATE" sino no "Este Registro es modificado por otro Usuario".

yo lo tengo Asiii y me sale mi error y luego el error de la maquina.

Este es el evento onError del Trasaction

procedure TForm2.IBOTransaction1Error(Sender: TObject;
const ERRCODE: Integer; ErrorMessage, ErrorCodes: TStringList;
const SQLCODE: Integer; SQLMessage, SQL: TStringList;
var RaiseException: Boolean);

begin
showmessage('Este Registro es modificado'+ #13 +
'por otro Usuario');
RaiseException:=False;
IBOTransaction1.Rollback;
end;



cualquier sugerencia la recibo gracias de antemanoo
Responder Con Cita