Me da un error en Clausula DELETe

[maravert]

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

[Casimiro Notevi]

Para empezar borra esa línea:

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

[maravert]

Muchas Gracias, eso era me funciona al 100%

[Casimiro Notevi]

[delphi.com.ar]

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.

[Casimiro Notevi]

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';

[maravert]

Muy agradecido, muy agradecido muy agradecido

[navbuoy]

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