Consulta con Tquery

[tcp_ip_es]

Lo mismo ya lo has solucionado, ya han pasado 2 semanas desde tu post pero bueno como yo lo haría es asociando el dbgrid a una consulta genérica y cuando pinches los botones cambies dicha consulta: siendo estas las consultas:

// onclick Boton 1
tquery.close;
tquery.sql.clear;
tquery.sql.add('select f_cad from tclient where f_cad < :DAhora');
tquery.parambyname('DAhora').value:=DateToStr(Date);
tquery.open;

// onclick Boton 2: Para 30 días exactos
tquery.close;
tquery.sql.clear;
tquery.sql.add('select f_cad from tclient where f_cad = :DTreinta);
tquery.parambyname('Dtreinta').value:=DateToStr(Date+30);
tquery.open;

// onclick Boton 3
tquery.close;
tquery.sql.clear;
tquery.sql.add('select f_cad from tclient where f_cad > :DAhora);
tquery.parambyname('DAhora').value:=DateToStr(Date);
tquery.open;

Espero haberte ayudado. Saludos, Tony

[Alsaca]

Gracias Tony, lo probaré inmediatamente y te cuento. La verdad que ya no esperaba respuestas, por eso te estoy muy agradecido.



Saludos.

[Alsaca]

Tony, ya lo he probado, y me da el siguiente error: Type mismatch in expresion.




Saludos.

[tcp_ip_es]

cambia en los 3 tquery.parambyname(xxxx).value por la siguiente linea:

tquery.parameters[0].value:=DatetoSTR(xxxxx)

Ya me cuentas....

[Alsaca]

Tony, lo siento, pero ahora da este error: Undeclarer identifier: 'parameters'.




Saludos.

[tcp_ip_es]

upsss perdona, es que yo trabajo con tadoquerys, supongo que tu trabajaras con tquery a secas , bueno pues con una tquery en vez de parameters es params de tal manera que:

query1.Params[0].value:=Edit1.text;

Saludos, Tony

[[basti]]

Te aconsejo que no uses value para los parámetros cuando sea posible, sobre todo si el campo es de tipo fecha. Así hace la conversión del formato fecha automáticamente sin preocuparte del formato.

Código Delphi [-]
tquery.ParamByName('DAhora').AsDatetime := Date;