Programa Aniversariantes .. Preciso de ajuda urgente
26/02/2003
0
Por Favor,
Preciso saber qual o comando de sql que eu posso usar para selecionar o dia e o mes do meu banco de dados com o dia e o mes do sistema do computador, o banco está em dbf. Estou fazendo um programa de aniversariantes e gostaria de selecionar apenas os aniversariantes do dia.
Estou a meses tentando terminar esse programa e nao consigo. Ficaria muito grata se alguém me ajudasse. Pois tentei vários comandos e nenhum funcionou.
Obrigado
Vivian
Preciso saber qual o comando de sql que eu posso usar para selecionar o dia e o mes do meu banco de dados com o dia e o mes do sistema do computador, o banco está em dbf. Estou fazendo um programa de aniversariantes e gostaria de selecionar apenas os aniversariantes do dia.
Estou a meses tentando terminar esse programa e nao consigo. Ficaria muito grata se alguém me ajudasse. Pois tentei vários comandos e nenhum funcionou.
Obrigado
Vivian
Viviankb
Curtir tópico
+ 0
Responder
Posts
26/02/2003
Alphablend
Tenta esse select aki....
´select * from tabela where data_aniver = ´+quotedstr(datetostr(now));
tabela é o nome da tabela
data_aniver é o nome do campo onde está a data.
´select * from tabela where data_aniver = ´+quotedstr(datetostr(now));
tabela é o nome da tabela
data_aniver é o nome do campo onde está a data.
Responder
27/02/2003
Anonymous
Tente:
Query.Close;
Query.SQL.Clear;
Query.SQL.Text := ´Select * from tabela where EXTRACT(DAY FROM CampoData) = :DIA
and EXTRACT(MONTH FROM CampoData) = :MES´;
e envie nos parâmetros o dia e a hora do sistema, dessa forma:
Query.ParamByName(´DIA´).AsInteger := StrToInt( FormatDate( ´DD´,Date ) );
Query.ParamByName(´MES´).AsInteger := StrToInt( FormatDate( ´MM´,Date ) );
Query.Open;
Query.Close;
Query.SQL.Clear;
Query.SQL.Text := ´Select * from tabela where EXTRACT(DAY FROM CampoData) = :DIA
and EXTRACT(MONTH FROM CampoData) = :MES´;
e envie nos parâmetros o dia e a hora do sistema, dessa forma:
Query.ParamByName(´DIA´).AsInteger := StrToInt( FormatDate( ´DD´,Date ) );
Query.ParamByName(´MES´).AsInteger := StrToInt( FormatDate( ´MM´,Date ) );
Query.Open;
Responder
Clique aqui para fazer login e interagir na Comunidade :)