Fecha mayor que Sysdate

[marcoszorrilla]

Paradox en el SQL que admite a través del BDE que yo sepa no admite ni Date, Today, Now.

Yo cuando quiero comparar una fecha con la del sistema hago como este ejemplo:

Código SQL [-]
f:String;
begin

f:=FormatDateTime('mm/dd/yyyy',date);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Fecha,Fecven');
Query1.Sql.Add('Where fecven >'''+f+'');
Query1.Sql.Add('from Factura');
ShowMessage(Query1.text);
Query1.Open;
end;

Un Saludo.

[marcoszorrilla]

Quizás mejor este otro ejemplo se aproxima más a lo que tu quieres:

Código SQL [-]
procedure TForm1.Button1Click(Sender: TObject);
var
f:String;
begin
f:=FormatDateTime('mm/dd/yyyy',date);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Numero, Fecha, Codcliente');
Query1.Sql.Add('from Factura');
Query1.Sql.Add('Where Fecha <'+QuotedStr(f));

ShowMessage(Query1.text);//Esto para ver el SQL sobra
Query1.Open;
end;

Un Saludo.

[RyAr]

Buenas, gracias por tu maravilloso ejemplo, el cual hasta mañana no podre probar, puesto que tengo el programa en la oficina. Ya te dire como ha ido cuando lo pruebe.

Saludos, y mcuhas gracias

[RyAr]

Muchas gracias, tu ejemplo va a las mil maravillas.

Saludos