Hola a todos y perdón Roman por la tardanza, cambie las tablas a InnoDB para que me soporte el tema de las transacciones y en este tiempo (cada vez que tengo algo de tiempo y me acuerdo :-)) he intentando realizar transacciones sin exito (la ayuda de los zeos es bastante escueta).
Alguien podria decirme que estoy haciendo mal:
Código:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
msqConsulta.Close;
msqConsulta.Sql.Clear;
msqConsulta.Sql.Add('select * from bb');
msqConsulta.Open;
mstTransaccion.StartTransaction;
msqConsulta.Append;
msqConsulta['bb1']:=5;
try
msqConsulta.Post;
except
mstTransaccion.Rollback;
showmessage('Error');
exit;
end;
msqConsulta.Close;
msqConsulta.Sql.Clear;
msqConsulta.Sql.Add('select * from cc where cc1=5');
msqConsulta.open;
try
msqConsulta.Delete;
mstTransaccion.Commit;
except
mstTransaccion.Rollback;
showmessage('Error 2');
exit;
end;
showmessage('OK');
end;
Es un poco tonto el ejemplo pero ni aun asi va...
Si algun alma caritativa me dijera que falla, o un ejemplo, o una página con información, o lo que sea....
Un saludo y gracias a todos por vuestro tiempo.