البحث في ال SQL عن طريق Delphi

[you_per7]

السلام عليكم
استخدم مكون DateTimePicker بدلا من EDIT

كود :

procedure TForm1.Button7Click(Sender: TObject); begin with ADOQuery1 do begin Close; SQL.Clear; SQL.text :=('SELECT * FROM TABLE where DATE between #'+FormatDateTime('mm/dd/yyyy',DateTimePicker1.date)+'#'+'and #'+FormatDateTime('mm/dd/yyyy',DateTimePicker2.date)+'#') ; Open; end; end;