Consulta con Tquery

[Alsaca]

Buenas tardes a todos/as. Comento mi problema, el cual me tiene parado totalmente.


Tengo un form principal, con una tabla paradox llamada tclient, en la cual hay cuatro date, (f_exp, f_cad) y (f_expe, f_cade). Pulsando un botón de este form, consigo ir a otro form, donde me aparece un dbgrid. Quisiera conectarlo con una tquery. Mi pregunta es la siguiente, al pulsar:

Botón1(Por Caducar)

Al pulsar este botón, que me aparezcan en el dbgrid todas las fechas que no estén caducadas.


Botón2(Por Caducar 30 días y menos de 30 días)

Al pulsar este botón, que me aparezcan en el dbgrid todas las fechas que le falten 30 días para caducar.


Botón3(Caducadas)

Al pulsar este botón, que me aparezcan en el dbgrid todas las fechas caducadas.


Espero haberlo explicado bien, o por lo menos que podáis entender, lo que necesito.


Un saludo y muachas gracias.

[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;

[Alsaca]

Gracias a todos lo s que me habéis ayudado, prácticamente está resuelto.




Saludos, Alsaca.