Query y Parámetros

[gluglu] · #1 26-01-2005

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 <= ateC and ateC <= 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 ....

roman · #2 26-01-2005

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

[gluglu] · #3 26-01-2005

Gracias Roman una vez más !

lucianojdg · #4 31-01-2005

Proba con esto:

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

ateC and DATETO >=

ateC');
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