Código Delphi
[-]
procedure TForm1.btnActualizaClick(Sender: TObject);
Var
FechaActual : TDateTime;
begin
with ADOQCambiar do
begin
SQL.Clear;
SQL.Add ('UPDATE CuotasEmitidas SET FecSituacion = :pFecha'+
'WHERE CuotasEmitidas.CodPers = 1801 ' +
'AND CuotasEmitidas.NumRecibo = 810375');
Prepare;
if Parameters.ParamByName('pFecha') = nil then
begin
ShowMessage('uuuups, hace falta crear al parámetro en tiempo de ejecución con Parameters.Add( pFecha ) ');
end
else
begin
Parameters.ParamByName('pFecha').Direction := pdinput;
Parameters.ParamByName('pFecha').DateType := ftDateTime;
Parameters.ParamByName('pFecha').Value:= now;
end;
ExecSQL;
end;
end;
Según veo estás borrando el SQL, eso hace que los parámetros también se eliminen (al menos es el comportamiento normal del Tquery, ignoro lo que hace TADOquery), En principio debería crearse al ejecutar el "Prepare" que he puesto, pero no sé las propiedades que tomaría, por eso las defino yo. Ejecuta y cuéntame si sale el showmessage, si no sale, el error que da, etc
Saludos