ajuda com Query IBquery, Interbase
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.
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
Curtidas 0