Actualizar un Registro Por SQL con varios parametros

[Edwardfeliz]

Saludos, y gracias por su atención.

Tengo una tabla "Cuotas" (Uso access), a la cual le quiero hacer un UPDATE por sql con un ADOQuery,
Quiero actualizar tres campos,
1- 'Fecha_Pago' que inicialmente esta vacío, "con la fecha actual"
2- 'Estado' con "realizado"
3- 'Mora' Con un valor numérico que esta en un edit, llamemoslo edit1

para encontrar el registro tomara en cuenta tres cosas, el campo 'NumPrestamo' que agrupa todos los registros relacionados a un préstamo, luego el campo 'Estado' que contiene el texto "Pendiente o Realizado" lo que quiere que solo tome en cuenta los registros que tengan "Pendiente" y por ultimo, 'Numero' que tiene el numero de la cuota, la cuestión es que quiero que seleccione el registro que tenga en este campo "Numero" el valor mas bajo, la idea es ir cambiando el registro en el orden ascendente cuando realizo cada UPDATE.

Por toda la explicación que he dado ya saben de que trata el programa, y se que la gran mayoria ha hecho esto o algo parecido.
soy otro novato buscando ayuda
Espero sus respuestas, Gracias.

[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.

[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 Notevi]

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.