Consulta de Datas Especiais

Delphi

08/01/2004

Tenho uma Tabela de cadastro de Funcionários
e uma tabela de ferias
pois cadastro o funcionário e todo o ano em acrecento a data de ferias ou seja se um funcionário tirou 5 ferias em tão tem 5 datas de ferias em seu cadastro

e agora o dep. pessoal me pediu para criar um relatório de Funcionário que irá tirar Ferias do Mês

Coloquei um LisBox com todos os meses de Jan a Dez
e como eu faço a consulta para que clique apenas no mês desejado e aparece os funcionarios e a data da ferias do respectivo ano 2004.

Ex. Quero saber os funcionários que tiraram ferias no mes de Janeiro/04 então clico no listBox do Mes de Janeiro e aparece

--------------- Janeiro 2004 ---------------

Fulano 05/01/2004
Siclano 08/01/2004
Beltrano 25/01/2004

-----------------------------------------------


Silvio

Silvio

Curtidas 0

Respostas

Delphistar

Delphistar

08/01/2004

vc pode criar uma query + ou - assim:

SELECT FERIAS.*, FUNCIONARIOS.NOME
FROM FERIAS
INNER JOIN FUNCIONARIOS ON (FUNCIONARIOS.CODIGO = FERIAS.CODFUNC)
WHERE EXTRACT(MONTH FROM FERIAS.DATA) = :MES AND EXTRACT(YEAR FROM FERIAS.DATA) = :ANO


depois eh soh passar os valores para os parametros MES e ANO


GOSTEI 0
Fabio.hc

Fabio.hc

08/01/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Query1.Close;
   Query1.SQL.Text:=´select * from ferias where extract(month from data)=:mes and extract(year from data)=:ano´;
   Query1.Params[0].Value:=ListBox1.ItemIndex+1;
   Query1.Params[1].Value:=strtoint(copy(datetostr(date),7,4));
   Query1.Open;
end;
end;



GOSTEI 0
Silvio

Silvio

08/01/2004

Se faço para consultar em uma base de dados no Paradox ela funciona corretamente :D mas se utilizo para consulta em base de dados SQL server ela da mensagem de erro ´Genereal SQL error Incorrect syntax near the keyword ´from´ ´ :(

o que devo fazer para solucionar este problema :lol:


GOSTEI 0
POSTAR