J'ai ce code et je ne sais pas où exactement le problème est. S'il vous plaît aidez-moi et merci beaucoup

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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.