lista DBGrid periodo atual por data

[Livio Neiva]

Modulo 8 lição 07

4 - Ao entrar no form todos os dados são mostrados no DBGrid. quero mostrando apenas os dados referentes ao período atual, esse periodo é atraves de data

Tentei fazer da seguinte maneira so não deu certo,

onde sera que estar erro??

Var global

data1,data2 : string;

function TF_Pagamentos.DataToSql(sdata: string) : string;

begin

result := copy(sdata,7,4) + '/' + Copy(sdata,4,2) + '/' + Copy(sdata,1,2);

end;

tentei fazer no evento OnCreate no formulario Pagamento mais não deu certo.

begin

Data1 := DataToSQL(MaskPeriodo.Text);

Data2 := DataToSQL(MaskA.Text);

MaskPeriodo.Text := DateToStr(Date);

MaskA.Text := DateToStr(Date);

F_DMEXpress.Q_Pagamento.Active := False;

F_DMEXpress.Q_Pagamento.SQL.Clear;

F_DMExpress.Q_Pagamento.SQL.Add('SELECT VENCIMENTO FROM PAGAMENTO');

F_DMExpress.Q_Pagamento.SQL.Add('AND VENCIMENTO BETWEEN '+#39+ data1+#39+' and '+#39+data2+#39);

F_DMEXpress.Q_Pagamento.Active := True;

F_DMExpress.Cds_Pagamento.Refresh;

end;

ele

onde estar erro??

[DiabloX3]

experimentou substituir o AND pelo WHERE?

F_DMExpress.Q_Pagamento.SQL.Add('SELECT VENCIMENTO FROM PAGAMENTO');
F_DMExpress.Q_Pagamento.SQL.Add('WHERE VENCIMENTO BETWEEN '+#39+ data1+#39+' and '+#39+data2+#39);

qualquer coisa tente no FormShow se não der muito certo no Create

abraço

[Daniel Sanches]

4 - Ao entrar no form todos os dados são mostrados no DBGrid. quero mostrando apenas os dados referentes ao período atual, esse periodo é atraves de data

pra você exibir apenas a data atual, é só você filtrar com a instrução SQL:

query.sql.text:= 'select * from TABELA where DATA=:P_DATA';
query.parambyname('P_DADA').value:= date;

abraço !!

[Livio Neiva]

problema resolvido

obrigado!!!