在1列中过滤2个日期

问题描述

这是我的代码，我不知道问题出在哪里，所以请帮我修理一下谢谢



我尝试过：



程序TForm1.Button1Click（发件人：TObject）;

开始

ADODataSet1.Close ;

ADODataSet1.CommandText：='[Date]> ='+ quotedStr（DateToStr（Date1.date））+'和'+'[Date]< ='+ QuotedStr（DateToStr（ Date2.Date））;

ADODataSet1.Active：= True;

ADODataSet1.Requery（）;

end;



程序TForm1.Button2Click（发件人：TObject）;

开始

ADODataSet1.Close;

结束;

end。

Hi this is my code and I don't know where is the problem so help me please to fix it thanks

What I have tried:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Close;
ADODataSet1.CommandText :='[Date]>='+quotedStr(DateToStr(Date1.date))+'and'+'[Date]<='+QuotedStr(DateToStr(Date2.Date));
ADODataSet1.Active := True;
ADODataSet1.Requery();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Close;
end;
end.

推荐答案

这篇关于在1列中过滤2个日期的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！