Fórum Data...novamente #264244

Colega
uso o Ib e esse codigo funciona, pesquiso todos os aniversariantes do mes que escolho

tenho um combobox nele escrito todos os meses, dai escolho um, e clico no button para pesquisar dai mostra no dbgrid o resultado

tah ae o codigo

no button

procedure TfrmPesRelAniver.SpeedButton1Click(Sender: TObject);
var
ClassGeral : TClassGeral;
begin
if cmbMes.ItemIndex > (-1) then
begin
ClassGeral := TClassGeral.Create;
ClassGeral.P_ExecutaPesRelAniver(´CLIENTE´, INTTOSTR(cmbMes.ItemIndex + 1))
dbgPesAniver.DataSource := DMGeral.dtsGeral;
ClassGeral.Free;
end
else
Application.MessageBox(´Escolha o mˆs!´,´Aviso´, MB_ICONEXCLAMATION);
end;

e a procedure para executar o sql
procedure P_ExecutaPesRelAniver(pSTabela, pSMes : String);

procedure TClassGeral.P_ExecutaPesRelAniver(pSTabela, pSMes: String);
var
sSql : String;
begin
sSql := ´´;
if pSTabela = ´CLIENTE´ then
begin
sSql := (´SELECT CD_CLIENTE AS CODIGO, RS_CLIENTE AS NOME, DT_FUNDACAO AS FUNDACAO, FN_CLIENTE AS FONE ´);
sSql := sSql + (´FROM CLIENTE ´);
sSql := sSql + (´WHERE EXTRACT(MONTH FROM DT_FUNDACAO) = ´ + pSMes);
sSql := sSql + (´ ORDER BY RS_CLIENTE, DT_FUNDACAO´);
end
DMGeral.sdsGeral.Close;
DMGeral.cdsGeral.Close;
with DMGeral.sdsGeral do
begin
CommandType := ctQuery;
CommandText := sSql;
Open;
end;
DMGeral.cdsGeral.Open;
DMGeral.sdsGeral.Open;
end;

flw