consulta con fecha de nacimiento

[marcoszorrilla]

Bueno primera parte, a mi entender como lograr extraer de la tabla que sea las fechas que coinciden con la del día en que estamos, tratandose de Paradox, no nos permite incluir Date dentro del Sql, quedaría así la seleccion:

procedure TForm1.Button1Click(Sender: TObject);
Var
nDia:Word;
nMes:Word;
nAgnus:Word;
begin
DecodeDate(Date,nAgnus,nMes,nDia);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select fecha, busqueda from Factura');
Query1.Sql.Add('Where Extract(Month From Fecha)= '+IntToStr(nMes));
Query1.Sql.Add('And Extract(Day From Fecha) = '+IntToStr(nDia));
Query1.Open;
end;

Yo a modo de ejemplo he seleccionado 2 campos de una tabla que tenía a mano, habrá que reconvertir el SQL a tu conveniencia.

Bueno pues con esta idea, que no desarrollo, puedes obtener lo que quieres.

1º.- Create Table xxxxxx tendra los campos que se necesiten.

2º.- Ejecutar el SQL anterior, pero con la clausula INSERT sobre la tabla recien creada.(Tabla Padres),

3º.- Lo mismo con la tabla Hijos.

4º.- Mostramos los resultados conectando una rejilla a la tabla creada que por ejemplo se podría llamar aniversarios.


El resto lo dejo para que lo desarrolles tu mismo.

Un Saludo.