GARANTIR DESCONTO

Fórum ajuda com Query IBquery, Interbase #343769

27/07/2007

0

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

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar