Ver Mensaje Individual
  #2  
Antiguo 19-02-2018
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví 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 Noteví fecha: 19-02-2018 a las 11:44:06.
Responder Con Cita