Restar fechas pasando parametro

[ecfisa]

Hola.

Mirá, probé por primera vez con el componente, copié y pegué la cadena que antes te puse

Código SQL [-]
SELECT CAST(CAST(:PARAM_FECHA AS DATE)- T1.FECHA AS INTEGER) AS DIFERENCIA FROM TABLA T1

en la propiedad CommandText, lo activé. Después de avisarme: 'Client SQL Dialect 1 does support reference to datetype', puse a false el SQLConnection, hice doble click sobre él, cambié el SQLDialect a 3 y pareciera funcionar bién.

Espero disculpes alguna torpeza pero es la primera ves que uso este componente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLDataSet1.ParamByName('PARAM_FECHA').AsDate:= Now;
  SQLDataSet1.Open;
  ShowMessage(SQLDataSet1.FieldByName('DIFERENCIA').AsString);
end;

La fecha de la tabla es 01.09.2011 y el resultado que me arroja es 6, lo cuál es correcto.

Si gustas te adjunto la prueba.


Saludos.