Como realizar esta consulta entre datas e horas?

26/02/2020

Ol� boa tarde a todos, estou com um problema em minha consulta, eu tenho cadastro de ouvintes, e quero consultar quantos ouvintes participaram do dia a tal ao dia tal da hora tal a hora tal, s� que a consulta que fa�o, elimina as participa��es de uma determinada hora, de todos os dias.

por exemplo, quero saber quantos ouvintes participaram de ontem do meio dia, at� hoje 18 hrs, mas algo esta errado na minha consulta abaixo.

S� que com a consulta realizada, ele n�o mostra as grava��es de ontem depois das 18 at� meia noite, ele mostra as de ontem de meio dia as 18, e hoje ele mostra depois do meio dia at� as 18..

O que seria?

          close;
          sql.Clear;
          sql.Add('select inscricao_id, inscricao_idouvinte, inscricao_idpromocao, ');
          sql.Add('inscricao_datacadastro, inscricao_horacadastro, tbouvinte.ouvinte_nome, ');
          sql.Add('tbouvinte.ouvinte_celular, tbouvinte.ouvinte_telefone from tbinscricao ');
          sql.Add('LEFT JOIN tbouvinte ');
          sql.Add('on(tbinscricao.inscricao_idouvinte = tbouvinte.ouvinte_id) ');
          sql.Add('WHERE inscricao_idpromocao like :pPromocao and ');
          sql.Add('inscricao_datacadastro BETWEEN :pData1 AND :pData2 ');
          sql.Add('and inscricao_horacadastro between :phora1 AND :phora2 ');
          sql.Add('ORDER BY inscricao_datacadastro, inscricao_horacadastro');
                  ParamByName('pPromocao').Value   := edt_promocao.EditValue;
                  ParamByName('pData1').Value      := dtinicial.Date;
                  ParamByName('pData2').Value      := dtfinal.Date;
                  ParamByName('pHora1').Value      := strtotime(timetostr(hrinicial.Time));
                  ParamByName('pHora2').value      := strtotime(timetostr(hrfinal.Time));
          open;

Agrade�o a todos.

J�nior Pinheiro

Curtir t�pico + 0

Responder

Posts

26/02/2020

Emerson Nascimento

tente assim:

close;
sql.Clear;
sql.Add('select inscricao_id, inscricao_idouvinte, inscricao_idpromocao, ');
sql.Add('inscricao_datacadastro, inscricao_horacadastro, tbouvinte.ouvinte_nome, ');
sql.Add('tbouvinte.ouvinte_celular, tbouvinte.ouvinte_telefone from tbinscricao ');
sql.Add('LEFT JOIN tbouvinte ');
sql.Add('on(tbinscricao.inscricao_idouvinte = tbouvinte.ouvinte_id) ');
sql.Add('WHERE inscricao_idpromocao like :pPromocao ');
sql.Add('and (inscricao_datacadastro >= :pData1 AND inscricao_horacadastro >= :phora1) ');
sql.Add('and (inscricao_datacadastro <= :pData2 AND inscricao_horacadastro <= :phora2) ');
sql.Add('ORDER BY inscricao_datacadastro, inscricao_horacadastro'
ParamByName('pPromocao').Value   := edt_promocao.EditValue;
ParamByName('pData1').Value      := dtinicial.Date;
ParamByName('pData2').Value      := dtfinal.Date;
ParamByName('pHora1').Value      := strtotime(timetostr(hrinicial.Time));
ParamByName('pHora2').value      := strtotime(timetostr(hrfinal.Time));
open;

Responder

Gostei + 0

27/02/2020

J�nior Pinheiro

N�o funcionou, deu a mesma coisa.

Responder

Gostei + 0

27/02/2020

Emerson Nascimento

veja se assim funciona:

close;
sql.Clear;
sql.Add('select inscricao_id, inscricao_idouvinte, inscricao_idpromocao, ');
sql.Add('inscricao_datacadastro, inscricao_horacadastro, tbouvinte.ouvinte_nome, ');
sql.Add('tbouvinte.ouvinte_celular, tbouvinte.ouvinte_telefone from tbinscricao ');
sql.Add('LEFT JOIN tbouvinte ');
sql.Add('on(tbinscricao.inscricao_idouvinte = tbouvinte.ouvinte_id) ');
sql.Add('WHERE inscricao_idpromocao like :pPromocao ');
sql.Add('and (inscricao_datacadastro+inscricao_horacadastro BETWEEN :pDtHr1 AND :pDtHr2) ');
sql.Add('ORDER BY inscricao_datacadastro, inscricao_horacadastro');
ParamByName('pPromocao').Value   := edt_promocao.EditValue;
ParamByName('pDtHr1').Value      := dtinicial.Date + hrinicial.Time;
ParamByName('pDtHr2').Value      := dtfinal.Date + hrfinal.Time;
open;

Responder

Gostei + 0

01/03/2020

J�nior Pinheiro

Emerson obrigado pela sua ajuda, a �nica coisa que mudei para funcionar foi o par�metro, de value para AsDateTime.

Obrigado mesmo.

Responder

Gostei + 0