alquimista_gdl
14-03-2009, 06:54:02
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?
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?