Criando filtro ou consulta Delphi Access

02/02/2020

8

Caros, boa noite !

Gostaria de compartilha uma duvida com os amigos, e se puder me ajudar, agradeço desde já !
tenho sistema de cadastro com banco access , em meu sistema tenho uma consulta por apartamento, EX: ( 010 ), onde me retorna todos os visitantes deste apartamentos, porem me traz tudo do apartamento (010)
EX:
Pesquisar apartamento : 010, " todos os visitantes do apartamento 010 "
/// código ///
DM.ADOQCAD.Close;
DM.ADOQCAD.SQL.Clear;
DM.ADOQCAD.SQL.Add('Select*from clientes where apartamento = '''+Edit3.Text+'''');
DM.ADOQCAD.SQL.Add('Order By nome');
DM.ADOQCAD.Open;

Nome Data
visitante1 - 01/01/2020 - 10h00
visitante1 - 02/01/2020 - 14h00
visitante1 - 03/01/2020 - 12h00
visitante2 - 01/01/2020 - 5h00
visitante2 - 02/01/2020 - 10h00
visitante2 - 03/01/2020 - 1h00
visitante3 - 01/01/2020 - 10h00
visitante3 - 02/01/2020 - 17h00
visitante3 - 03/01/2020 - 18h00

gostaria da ajuda dos amigos para fazer esta consulta com base no apartamento e na data.
EX:
Pesquisar apartamento : 010 Data: 02/01/2020 , " todos os visitantes do apartamento 010, que visitaram no dia 02/01/2020 das 00h00 ate as 23h59"
Nome Data
visitante1 - 02/01/2020 - 14h00
visitante2 - 02/01/2020 - 10h00
visitante3 - 02/01/2020 - 17h00

/// componentes do sistema ///

º Delphi Rad Studio Xe8
º Banco Access 2013
º Nome banco: banco
º Nome da tabela: clientes
º Campo: Nome
º Campo: Data
º ADOConnection: ADOBANCO
º Data module: DM
º ADOQuery: ADOQCAD
º Código Consulta:

DM.ADOQCAD.Close;
DM.ADOQCAD.SQL.Clear;
DM.ADOQCAD.SQL.Add('Select*from clientes where apartamento = '''+Edit3.Text+'''');
DM.ADOQCAD.SQL.Add('Order By nome');
DM.ADOQCAD.Open;

desde já agradeço !!!
Responder

Posts


DM.ADOQCAD.Close;
DM.ADOQCAD.SQL.Clear;
DM.ADOQCAD.SQL.Add('Select*from clientes where apartamento = '''+Edit3.Text+''' and data >= '''+EditDtIni.Text+''' and data <= '''+EditDtFim.Text+''' ');
DM.ADOQCAD.SQL.Add('Order By nome');
DM.ADOQCAD.Open;
Responder
Fala boy,

Faça o seguinte.

Levando em consideração que você tem um campo "APARTAMENTO" e outro "HORA DE VISITA" denominados (Apartamento) e (HoraVisita).

SQL

Select * from Cliente
where Apartamento = :apartamento and HoraVisita between :inicio and :fim

ai você passa os parametros do apartamento depois a hora início e hora final do intervalo.

Abraço

Qualquer ajuda a mais me chame.

Skype: anderson@case13.com.br
Responder

DM.ADOQCAD.Close;
DM.ADOQCAD.SQL.Clear;
DM.ADOQCAD.SQL.Add('Select*from clientes where apartamento = '''+Edit3.Text+''' and data >= '''+EditDtIni.Text+''' and data <= '''+EditDtFim.Text+''' ');
DM.ADOQCAD.SQL.Add('Order By nome');
DM.ADOQCAD.Open;



Olá bom dia !


usando o código acima no botão pesquisar apresenta o seguinte erro ! :


Undeclared identifier ' EditDtIni ' at line 1186
Undeclared identifier ' Text' at line 1186
Undeclared identifier ' EditDtFim' at line 1186
Undeclared identifier ' Text' at line 1186



desde já agradeço !!!

Responder
Fala boy,

Faça o seguinte.

Levando em consideração que você tem um campo "APARTAMENTO" e outro "HORA DE VISITA" denominados (Apartamento) e (HoraVisita).

SQL

Select * from Cliente
where Apartamento = :apartamento and HoraVisita between :inicio and :fim

ai você passa os parametros do apartamento depois a hora início e hora final do intervalo.

Abraço

Qualquer ajuda a mais me chame.

Skype: anderson@case13.com.br


Ola Bom dia !

poderia implementar meu código com seu exemplo !!


DM.ADOQCAD.Close;
DM.ADOQCAD.SQL.Clear;
DM.ADOQCAD.SQL.Add('Select*from clientes where apartamento = '''+Edit3.Text+'''');
DM.ADOQCAD.SQL.Add('Order By nome');
DM.ADOQCAD.Open;


desde já agradeço !
Responder

DM.ADOQCAD.Close;
DM.ADOQCAD.SQL.Clear;
DM.ADOQCAD.SQL.Add('Select*from clientes where apartamento = '''+Edit3.Text+''' and data >= '''+EditDtIni.Text+''' and data <= '''+EditDtFim.Text+''' ');
DM.ADOQCAD.SQL.Add('Order By nome');
DM.ADOQCAD.Open;



Olá bom dia !


usando o código acima no botão pesquisar apresenta o seguinte erro ! :


Undeclared identifier ' EditDtIni ' at line 1186
Undeclared identifier ' Text' at line 1186
Undeclared identifier ' EditDtFim' at line 1186
Undeclared identifier ' Text' at line 1186



desde já agradeço !!!



No caso de edtIni e edtFim usei como exemplo para simular o edit de data inicial e tbm o edit de data final. Vc teria que analisar e implementar de acordo com seus campos.

Abs!
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar