Actualizar un Registro Por SQL con varios parametros

[Edwardfeliz]

en resumen tengo esto:

Código Delphi [-]
with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado, Mora = :Mora '+
               'Where (NumPrestamo =:Codigo) and (Numero = (SELECT Min(Numero) '+
               'FROM Cuotas WHERE NumPrestamo = :Codigo))';
    Parameters.ParamByName('Fecha').Value  := FormatDateTime('dd/mm/yyyy', Now);
    Parameters.ParamByName('Estado').Value := 'Realizado';
    Parameters.ParamByName('Mora').Value   := Edit1.Text;
    Parameters.ParamByName('Codigo').Value := EnumPrestamo.Text;
    ExecSQL;
    end;

Pero estoy recibiendo el error de parametro "fecha" no encontrado.

[[AgustinOrtu]]

Revisa el valor de la propiedad QTemp.Connection

[Edwardfeliz]

El código no da error pero en la base de datos no pasa nada

[Casimiro Notevi]

Abre el programa que uses para gestinar las bases de datos y ejecuta el sql desde allí, "juega" haciendo cambios para comprobar qué registros cumplen la condición.
Ahí no podemos ayudarte mucho si no podemos probar con tu base de datos.

[Edwardfeliz]

Empezado por Casimiro Notevi

Abre el programa que uses para gestinar las bases de datos y ejecuta el sql desde allí, "juega" haciendo cambios para comprobar qué registros cumplen la condición.
Ahí no podemos ayudarte mucho si no podemos probar con tu base de datos.

anexo la base de datos y los archivos delphi? para que hagan pruebas?

[Edwardfeliz]

Saludos, Yo de nuevo, fabrique una solución poco ortodoxa porque no se me ocurrió nada mas para resolver esto , si tienen alguna observación me gustaría saberla, Gracias.

Código Delphi [-]
Var
Cod, Numero : String;
Begin
 with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'SELECT TOP 1 Cod, Numero  FROM Cuotas WHERE (NumPrestamo =:Codigo) and (Estado = :Pendiente) '+
               'Order By Numero ASC';
    Parameters.ParamByName('Codigo').Value    := EnumPrestamo.Text;
    Parameters.ParamByName('Pendiente').Value := 'Pendiente';
    ExecSQL;
    Open;
    end;
 Cod   := Qtemp.FieldByName('Cod').AsVariant;
 Numero:= Qtemp.FieldByName('Numero').AsVariant;
 Begin
  with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado, Mora = :Mora '+
               'Where Cod =:NumC';
    Parameters.ParamByName('Fecha').Value  := FormatDateTime('dd/mm/yyyy', Now);
    Parameters.ParamByName('Estado').Value := 'Realizado';
    Parameters.ParamByName('Mora').Value   := Edit1.Text;
    Parameters.ParamByName('NumC').Value   := Cod;
    ExecSQL;
    End;
 End;
End;;

Tuve que crear un campo autonumerico que denomine "Cod" para que tuviera un valor único y así luego poder hacer el UPTADE a ese único registro.
Cualquier sugerencia sera bien recibida.

Gracias.

[Guti13]

Hola EdwardFeliz, la verdad es que no entiendo porque la sentencia con la subselect no te funcionaba a no ser que no existiera clave primaria en esa tabla, ya que en Access los updates con subselect no funcionan bien en estos casos. La opción que has tomado es buena, desde mi punto de vista toda tabla debe tener un campo de clave primaria única lo que si me salta a la vista es que en la consulta con subselect no tenías en cuenta que el estado fuera pendiente, sin embargo, en esta segunda versión si la tienes.