ajuda com Query IBquery, Interbase

Delphi

27/07/2007

Delphianos, nao estou conseguindo executar uma consulta simples

Interbase:
Tabela VENDAS
Campos: ID, DATA, TOTAL

SQL da IBQuery: Select DATA, TOTAL from VENDAS


Botão:
with DM.QY_VendasPeriodo do
begin
Close;
SQL.Clear;
SQL.Add(´Select DATA, SUM(TOTAL) as TOTAL from VENDAS ´ +
´Where (DATA >= :DtInicial and DATA <= :DtFinal) ´ +
´Group by DATA´);
ParamByName(´DtInicial´).AsDate := JvDateEdit1.Date;
ParamByName(´DtFinal´).AsDate := JvDateEdit2.Date;
Prepare;
Open;

If DM.QY_VendasPeriodo.RecordCount = 0 then
Application.MessageBox(´Não vendas nesse período.´,
´Não há vendas´,MB_OK+MB_ICONINFORMATION)
else FQR_RelaPrecos2.QuickRep1.Preview;

end;


Não vem nada, nunca trabalhei com Interbase. Agradeço desde já qualquer ajuda.

Paulo F.


Pauloroger

Pauloroger

Curtidas 0
POSTAR