Como exibir aniversariantes daqui a 6 meses - usando Query
Assim consigo exibir os aniversariantes por mes
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from dCli where extract(month from DataNasc) = :mes´);
Query1.ParamByName(´mes´).AsInteger := StrToInt(Edit1.Text);
Query1.Open;
No Edit1.text o usuário irá entre com o mes desejado.
Mas agora necessito mostrar todos clientes que fazem aniversariantes daqui a 6 seis meses...
[color=blue:80ee548b29][b:80ee548b29]Como fazer isso?[/b:80ee548b29][/color:80ee548b29] :?:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from dCli where extract(month from DataNasc) = :mes´);
Query1.ParamByName(´mes´).AsInteger := StrToInt(Edit1.Text);
Query1.Open;
No Edit1.text o usuário irá entre com o mes desejado.
Mas agora necessito mostrar todos clientes que fazem aniversariantes daqui a 6 seis meses...
[color=blue:80ee548b29][b:80ee548b29]Como fazer isso?[/b:80ee548b29][/color:80ee548b29] :?:
Walfrido
Curtidas 0
Respostas
Lucas Silva
09/11/2004
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from dCli where extract(month from DataNasc) = :mes´);
Query1.ParamByName(´mes´).AsInteger := [b:de7cecaf95]StrToInt(Edit1.Text)+6; [/b:de7cecaf95]
Query1.Open;
GOSTEI 0
Laercioguerco
09/11/2004
Usar funções de linguagem proprietária de Banco de Dados não é uma boa idéia. Isto porque, compromete seu código com um serto SGBD.
Utilize neste caso, operadores, no lugar da função Extract.
... Where Data Between :DataIni AND :DataFim ...
Utilize neste caso, operadores, no lugar da função Extract.
... Where Data Between :DataIni AND :DataFim ...
GOSTEI 0
Gandalf.nho
09/11/2004
Usar funções de linguagem proprietária de Banco de Dados não é uma boa idéia. Isto porque, compromete seu código com um serto SGBD.
Utilize neste caso, operadores, no lugar da função Extract.
... Where Data Between :DataIni AND :DataFim ...
Só que essa sugestão não funciona no caso dele pq considera a data toda (inclusive ano) e não só o mês como ele quer...
GOSTEI 0