[alquimista_gdl]

Hola,

Estoy probando los componentes ZeosLib en Delphi 7 y mySQL 5. Cuando usaba dbExpress, para borrar un registro tenía:

    DataSource.DataSet.Delete;

    if TClientDataSet( DataSource.DataSet ).ApplyUpdates(0) > 0 then
        TClientDataSet( DataSource.DataSet ).CancelUpdates;

Ahora con ZeosLib lo cambio a:

  try

    DataSource.DataSet.Delete;
    TZQuery( DataSource.DataSet ).ApplyUpdates;

    Except on e:Exception do
    begin
        MessageDlg(e.Message, mtError, [mbOK], 0);
        TZQuery( DataSource.DataSet ).CancelUpdates;
    end;

El problema es que cuando se ejecuta la intrucción "delete", parece que no "pesca" excepciones que envía mySQL; en un caso de prueba, se genera una excepción de integridad referencial. En el debugger, se ejecuta la línea de Delete pero no llega al bloque de "Except" ... que puede estar pasando? se me ha pasado algo?