Me da un error en Clausula DELETe
 

Hola, tengo el siguiente código que no me permite avanzar

Código Delphi [-]

     DM.QueryCuentasPorCobrar.Close;
      DM.QueryCuentasPorCobrar.Open;
     DM.QueryCuentasPorCobrar.SQL.Add('DELETE FROM CuentasPorCobrar WHERE idColegiatura = :Cuenta');
     DM.QueryCuentasPorCobrar.ParamByName('Cuenta').AsInteger := ServicioaBorrar;
     DM.QueryCuentasPorCobrar.ExecSQL;

Me da el siguiente error en el archivo adjunto, utilizo Base de datos MYSQL en un servidor Remoto y FireDac

Gracias, espero alguien me ilumine, ya llevo días y no encuentro la solución

Para empezar borra esa línea:

Código Delphi [-]
DM.QueryCuentasPorCobrar.Open;

Gracias
 

Muchas Gracias, eso era me funciona al 100%

^\||/^\||/^\||/

Solo una curiosidad, veo que al objeto QueryCuentasPorCobrar lo cierras antes de usarlo, por lo que podría suponer que lo estas reutilizando. Si lo estás reutilizando, y lo vuelves a llamar, se agregará otra linea más a la consulta, por lo que existirán dos instrucciones DELETE sin separador de línea, por ese motivo la segunda llamada fallará. Esa observación me surge desde que vi que el error habla de la línea 2, por lo que algún fundamento tiene mi sospecha.

Saludos.

Es que no debería usar "add" sino:

Código Delphi [-]
DM.QueryCuentasPorCobrar.SQL.text := 'DELETE FROM CuentasPorCobrar WHERE idColegiatura = :Cuenta';

O depende del componente que esté usando:

Código Delphi [-]
DM.QueryCuentasPorCobrar.SelectSQL.text := 'DELETE FROM CuentasPorCobrar WHERE idColegiatura = :Cuenta';

Gracias
 

Muy agradecido, muy agradecido muy agradecido

la solucion es como primera linea MyQuery->SQL->Clear();