Ajuda com Dois select no delphi

Delphi

04/12/2013

Boa tarde pessoal
tipo preciso de ajuda pra fazer um select no Delphi que me traga como resultado:
os acessos que um usuário fez em um período determinado entre duas datas.
ja tentei de diversas formas e ainda não consegui.

obs: os usuários estão listados em um box
e há dois edit's para as datas.

me ajudem.
Junior

Junior

Curtidas 0

Respostas

Járabe Emanuel

Járabe Emanuel

04/12/2013

Vc não colocou que componente vc está usando para a seleção, fiz um exemplo abaixo usando a Query da paleta InterBase.

  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Add('Select * from Nome_Tabela ');
  IBQuery1.SQL.Add('where Campo_Data between :DataInicio and :DataFim');
  IBQuery1.ParamByName('DataInicio').AsDate := StrToDate(Edit1.Text);
  IBQuery1.ParamByName('DataFim').AsDate    := StrToDate(Edit2.Text);
  IBQuery1.Open;


Espero ter ajudado.
GOSTEI 0
Junior

Junior

04/12/2013

ajudou muito, só ha um detalhe,
essas duas datas são filtradas dentro de um usuario:
ex: usuario adm:
acessos do dia 01/12/2013 a 30/12/2013

estou usando a paleta ado com mysql
GOSTEI 0
Járabe Emanuel

Járabe Emanuel

04/12/2013

ajudou muito, só ha um detalhe,
essas duas datas são filtradas dentro de um usuario:
ex: usuario adm:
acessos do dia 01/12/2013 a 30/12/2013

estou usando a paleta ado com mysql


Pelo que entendi vc quer filtrar informações dentro de duas datas, sendo esse filtro feito em um usuário especifico.
se for isso mesmo, o código terá uma pequena mudança.
veja como fica com a alteração que vc quer.
  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Add('Select * from Nome_Tabela ');
  IBQuery1.SQL.Add('where (Campo_Data between :DataInicio and :DataFim) and (campo_Nome_Usuario = :Usuario)');
  IBQuery1.ParamByName('DataInicio').AsDate := StrToDate(Edit1.Text);
  IBQuery1.ParamByName('DataFim').AsDate    := StrToDate(Edit2.Text);
  IBQuery1.ParamByName('Usuario').AsString  := 'Nome_do_Usuario';
  IBQuery1.Open;
GOSTEI 0
Junior

Junior

04/12/2013

BRIGADAO VLWW
GOSTEI 0
POSTAR