Actualizar un Registro Por SQL con varios parametros

[Casimiro Noteví]

Tú mismo has descrito perfectamente la sentencia sql que hay que escribir, ya solamente te falta mirar cualquier tutorial sql
Y de esa manera dejarás de ser novato, porque si te la escribimos, entonces tú la copiarás y pegarás... y seguirás siendo novato toda la vida
Y pregunta aquí mismo si tienes alguna duda.

[Edwardfeliz]

Empezado por Casimiro Notevi

Tú mismo has descrito perfectamente la sentencia sql que hay que escribir, ya solamente te falta mirar cualquier tutorial sql
Y de esa manera dejarás de ser novato, porque si te la escribimos, entonces tú la copiarás y pegarás... y seguirás siendo novato toda la vida
Y pregunta aquí mismo si tienes alguna duda.

No concuerdo con usted señor Casimiro , No soy esa clase de novato, Cada ves que pido ayuda aqui es porque no tengo ni idea de como resolverlo, y cuando se me ayuda copio el codigo en un txt y lo guardo, y los reciclo, ya lo intente, y no lo resolvi, lo volvere a escribir el codigo para subirlo aqui y ver si voy por el camino correcto. Y recuerda que para quien sabe la respuesta la solucion es muy simple.

Saludos

[Casimiro Noteví]

Bien, pon tu código que lo vayamos viendo y ayudando.

[Edwardfeliz]

Código Delphi [-]
Begin
 with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago = :Fecha, Estado = :Estado, Mora = :Mora  '+
               'Where (NumPrestamo =:Codigo) and (Numero =:Numero)';
    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;
    Parameters.ParamByName('Numero').Value := ????
    ExecSQL;
    end;
 End;

Esto es lo que tengo hasta ahora, esta incompleto, como lo termino?

[mallenat]

Yo lo resolvería por SQL, con una subselect. El valor de número vendria de:

Código SQL [-]
SELECT Min(Numero)
FROM Cuotas
WHERE NumPrestamo = :Codigo

*Sin conocer tu esquema de base de datos puede que en el where falte alguna condición. La idea es conseguir el mínimo número que te interese en esta select.

Si tu motor de base de datos admite subselects en un update lo puedes juntar:

Código SQL [-]
UPDATE Cuotas SET Fecha_Pago = :Fecha, Estado = :Estado, Mora = :Mora  
Where (NumPrestamo =:Codigo) and (Numero = (
    SELECT Min(Numero)
    FROM Cuotas
    WHERE NumPrestamo = :Codigo
))

En caso contrario deberías averiguar primero el mínimo y luego llamar a tu query.

[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