Fórum Filtragem de Registro por Datas #592278
08/04/2018
0
Ou seja, ao Invés de usar uma QUERY, usar uma TABELA.
// TOTAL SOCORRO
with Sql_Total_socorro do
begin
close;
sql.Clear;
sql.Add('select * from tbl_local');
sql.Add('where data between :data_ini and :data_fim ');
ParamByName('data_ini').Value:=FormatDateTime('yyyy-mm-dd',data_ini.date);
ParamByName('data_fim').Value:=FormatDateTime('yyyy-mm-dd',data_fim.date);
open;
FetchAll;
end;
Adailso Cosme
Curtir tópico
+ 0Posts
08/04/2018
Jerson Boer
(Data >= X AND Data <= Y) AND (....)
Sem colocar "where", somente os parâmetros de filtro.
Gostei + 0
09/04/2018
Adailso Cosme
Sou novo ....
Gostei + 0
13/04/2018
Adailso Cosme
filtro:string;<br />
begin<br />
Filtro := ''Select * From tbl_local'';<br />
Filtro := Filtro+'' where data between :data_ini and :data_fim'';<br />
dm.tbl_local.SQL.Clear;<br />
dm.tbl_local.SQL.ADD(Filtro);<br />
dm.tbl_local.ParamByName(''data_ini'').Value:=FormatDateTime(''yyyy-mm-dd'',data_ini.date);<br />
dm.tbl_local.ParamByName(''data_fim'').Value:=FormatDateTime(''yyyy-mm-dd'',data_fim.date);<br />
dm.tbl_local.Open;<br />
end;<br />
<br />
<br />
JÁ TENTEI.......
Gostei + 0
13/04/2018
Emerson Nascimento
Os campos da tabela são tipo data? timestamp?
Quando trabalhar com datas, não use a propriedade Value. Seja mais específico:
Use AsDateTime ou AsSQLTimeStamp (em conjunto com a função DateTimeToSQLTimeStamp, da unit SqlTimSt)
dm.tbl_local.ParamByName(''data_ini'').AsDateTime := data_ini.date;
dm.tbl_local.ParamByName(''data_fim'').AsDateTime := data_fim.date;ou
dm.tbl_local.ParamByName(''data_ini'').AsSQLTimeStamp := DateTimeToSQLTimeStamp(data_ini.date);
dm.tbl_local.ParamByName(''data_fim'').AsSQLTimeStamp := DateTimeToSQLTimeStamp(data_fim.date);Gostei + 0
13/04/2018
Adailso Cosme
Gostei + 0
13/04/2018
Adailso Cosme
No DBGrid ficam perfeitas...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)