Query y Parámetros
 

Hola Amigos !

Este código :

Código Delphi [-]
DateC := EncodeDate(Year,Month,Day);
IBQueryCheck.SQL.Clear;
IBQueryCheck.SQL.Add('Select * from SEASONS');
IBQueryCheck.SQL.Add('where DATEFROM <= :DateC and :DateC <= DATETO');
IBQueryCheck.ParamByName('DateC').Value := DateC;
IBQueryCheck.Open;

me devuelve el error:

Código Delphi [-]
[Error] E2010 Incompatible types: 'Variant' and 'TDate'

Una ayudita por favor ....

Pues es raro, debieran ser compatibles. Si 'DateC' es un campo de tipo Date, ¿no te funciona poner

IBQueryCheck.ParamByName('DateC').AsDate := DateC;

en lugar de

IBQueryCheck.ParamByName('DateC').Value := DateC;

?

// Saludos

Gracias Roman una vez más !

RE: Query y Parámetros
 

Proba con esto:

DateC := EncodeDate(Year,Month,Day);
IBQueryCheck.SQL.Clear;
IBQueryCheck.SQL.Add('Select * from SEASONS');
IBQueryCheck.SQL.Add('where DATEFROM <= :DateC and DATETO >= :DateC');
IBQueryCheck.ParamByName('DateC').AsDate := DateC;
IBQueryCheck.Open;

Otra forma de hacer los mismo es la sigueinte:

DateC := EncodeDate(Year,Month,Day);
IBQueryCheck.SQL.Clear;
IBQueryCheck.SQL.Add('Select * from SEASONS');
IBQueryCheck.SQL.Add('where ' + Chr(39) + DateToStr(DateC) + Char(39) +
' Between DATEFROM and DATETO');
IBQueryCheck.Open;


Nota: Hay un espacio antes del Between

Saudos


Luciano