Ver Mensaje Individual
  #2  
Antiguo 19-02-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.040
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No sé qué problema es el que tienes, pero aparte de eso, siempre debes cerrar el dataset antes de hacer cambios en él.

Código Delphi [-]
     // Borra el estado financiero.
          DataModule1.ADQuery1.SQL.Close;  // <---  !!!!!!!!!!!!!!!!!!!
          DataModule1.ADQuery1.SQL.Text:= 'Delete From FINANZAS Where ALUMNO_RUT = :RUT';
          DataModule1.ADQuery1.ParamByName('RUT').AsString:= RutParcial;

          DataModule1.ADTransaction1.StartTransaction;
          Try
             DataModule1.ADQuery1.ExecSQL;
             DataModule1.ADTransaction1.Commit;
          Except
             DataModule1.ADTransaction1.Rollback;
             Raise;
          End;

       // Borra el alumno del registro
          DataModule1.ADQuery1.SQL.Close;  // <---     !!!!!!!!!!!!!!!!!!!
          DataModule1.ADQuery1.SQL.Text:= 'Delete From ALUMNOS Where ALUMNO_RUT = :RUT';
          DataModule1.ADQuery1.ParamByName('RUT').AsString:= RutParcial;

          DataModule1.ADTransaction1.StartTransaction;
          Try
             DataModule1.ADQuery1.ExecSQL;
             DataModule1.ADTransaction1.Commit;
          Except
             DataModule1.ADTransaction1.Rollback;
             Raise;
          End;

Última edición por Casimiro Notevi fecha: 19-02-2018 a las 11:44:06.
Responder Con Cita