Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   A ver si me pueden Ayudar con un query (https://www.clubdelphi.com/foros/showthread.php?t=47534)

Renis 30-08-2007 16:55:08

A ver si me pueden Ayudar con un query
 
Yo quiero hacer un Query que me traiga los clientes que la fechaultimopago fue hace 30 dias a partir de la fecha actual, ej fechaultimopago 03/07/2007 que me traiga los campos idcliente, nombres, apellidos, dirección, tel, y la fechavencimiento que sea igual a la fecha 03/08/2007, quisiera visualizarlos en dbgrid.
tablas: Tfechaultimopago , Tclientes,...... estoy trabajando con Paradox

Fumaxclamp 30-08-2007 19:05:18

ok no conosco nada bien paradox pero si te permite hacer sentencia sql esto te servira, para optener la fecha del dia del sistema es co el comando Date al cual lo puedes transformar en texto y restarle o sumarle dias, por ejemplo:

Label1.Caption := DateToStr(Date - 30);

esto lo que hace es que a la etiqueta label1 optiene la fecha del sistema suponiendo 03/07/2007 y le resta los 30 dias obteniendo 03/06/2007, obiamente le pyedes fumar tambien lo que en tu sentencia quedaria algo asi

<nombredelcomponentequery>.sql.text := 'select idcliente, nombres, apellidos, dirección, tel,fechavencimiento from Tclientes where fechavencimiento = '''+ DateToStr(Date + 30) +'''';

claro son dos tablas primero tienes que unirlas con un join, suponiendo que la union fuera con el idcliente seria asi

<nombredelcomponentequery>.sql.text := 'select idcliente, nombres, apellidos, dirección, tel,fechavencimiento from Tclientes
left join Tfechaultimopago using (idcliente)
where fechavencimiento = '''+ DateToStr(Date + 30) +'''';

espero te sirva


La franja horaria es GMT +2. Ahora son las 01:42:39.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi