Bucle While para Comprobar Fecha en Base de Datos

[ecfisa]

Empezado por Edwardfeliz

no entendi mucho XD
pero Quizás no me eh explicado bien.

en La base de datos, en la tabla productos hay una columna llamada Fecha de vencimiento, lo que quiero hacer es agregar al memo, los productos de los cuales las fechas de vencimiento sean menor a la cantidad de dias que esta puesta en el Formulario de Configuración que estará en un DBEedit, esto es para que se pueda configurar la cantidad de dias a los cuales yo quiero que el programa me avise que van a vencer, es decir que el edit va a tener solo dos digitos ( ejemplo: '15' o '30' ).

Saludos!

Hola Edwardfeliz.

Es decir que la fecha de referencia es la actual y vos le envias los días que deseas, ¿ Es así ?

Entonces sería:

Código Delphi [-]
procedure FaltanNDias(const Dias: string; Qry: TADOQuery; ME: TMemo);
begin
  with Qry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT FECHA_VENCIMIENTO FROM PRODUCTOS');
    SQL.Add('WHERE DATEADD("d", :DIAS, FECHA_VENCIMIENTO) = DATE()');
    Parameters.ParamByName('DIAS').Value := Dias;
    Open;
    while not Eof do
    begin
      ME.Lines.Add(FieldByName('FECHA_VENCIMIENTO').AsString);
      Next;
    end;
  end;
end;

Uso:

Código Delphi [-]
FaltanNDias(DBEdit_de_dias.Text, ADOQuery1, Memo2);

Saludos