Ajuda Delphi X Sql Server

Delphi

04/02/2004

Tenho uma query e gostaria de mudar uma data inicial e final via formulario há como?
Segue abaixo a query:
select
left(arrivedtime,11) as ´DATA´, count(*) as ´Quantidade´,
sum( case when substring(tonumber,1,7) = ´0115533´ then 1 else 0 end) as ´com 011´,
sum(CASE WHEN substring(tonumber,1,2) = ´33´ then 1 else 0 end) as ´sem 011´
from CDR where
-- Gostaria de mudar linhas abaixo via formulario
arrivedtime > ´2004-01-01 00:00:00´
and arrivedtime < ´2004-01-31 23:59:59.999´
campo abaixo
and tonumber <> ´´
and (substring(tonumber,1,11) = ´01155333321´
or substring(tonumber,1,11) = ´01155333322´
or substring(tonumber,1,11) = ´01155333329´
or substring(tonumber,1,6) = ´333321´
or substring(tonumber,1,6) = ´333322´
or substring(tonumber,1,6) = ´333329´)
group by left(arrivedtime,11)
ORDER by left(arrivedtime,11)


Salomao.coelho

Salomao.coelho

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

04/02/2004

Colega,

No caso, você poderia soltar dois componentes DateTimePicker e utilizar parâmetros, exemplo:

select 
left(arrivedtime,11) as ´DATA´, count(*) as ´Quantidade´, 
sum( case when substring(tonumber,1,7) = ´0115533´ then 1 else 0 end) as ´com 011´, 
sum(CASE WHEN substring(tonumber,1,2) = ´33´ then 1 else 0 end) as ´sem 011´ 
from CDR where 
-- Gostaria de mudar linhas abaixo via formulario 
arrivedtime BETWEEN :inicio and :termino 
campo abaixo 
and tonumber <> ´´ 
and (substring(tonumber,1,11) = ´01155333321´ 
or substring(tonumber,1,11) = ´01155333322´ 
or substring(tonumber,1,11) = ´01155333329´ 
or substring(tonumber,1,6) = ´333321´ 
or substring(tonumber,1,6) = ´333322´ 
or substring(tonumber,1,6) = ´333329´) 
group by left(arrivedtime,11) 
ORDER by left(arrivedtime,11)


No Delphi:

  With Query1 do
    Close;
    ParamByName(´Inicio´).AsDateTime := DateTimePicker1.DateTime;
    ParamByName(Termino).AsDateTime := DateTimePicker2.DateTime;
    Open;
  end;



GOSTEI 0
POSTAR