Проблема с диапазоном дат

[Yur@]

Ошибка несоответствия типов данных в выражении условия отбора
В Ассess поле 'RDate' имеет тип дата/время

procedure TForm3.Button2Click(Sender: TObject);
var startdate,finishdate:TDateTime;
begin
startdate:=DateTimePicker1.Date;
finishdate:=DateTimePicker2.Date;
dm.ADOQuery6.Active:=false;
dm.ADOQuery6.SQL.Text:='select * from client where rdate between "'+DateToStr(startdate)+'" and "'+DateToStr(finishdate)+'"';
dm.ADOQuery6.ExecSQL;
dm.ADOQuery6.Active:=true;
end;

Выбирал 'краткий формат даты' типа dd.mm.yyyy ....Не помогло
Подскажите, в чём проблема?

[artemavd]

Так попробуй:

procedure TForm3.Button2Click(Sender: TObject);
var startdate,finishdate:TDateTime;
begin
startdate:=DateTimePicker1.Date;
finishdate:=DateTimePicker2.Date;
dm.ADOQuery6.Active:=false;
dm.ADOQuery6.SQL.Clear; //желательно очищать текст предыдущего запроса
dm.ADOQuery6.SQL.Text:='select * from client where rdate between '+QuotedStr(startdate)+' and '+QuotedStr(finishdate);
dm.ADOQuery6.ExecSQL; //эта строка лишняя. Что-то одно.
dm.ADOQuery6.Active:=true;
end;

[Yur@]

artemavd
Не катит =(
Incompatible types: 'String' and 'TDateTime'

[artemavd]

А так:

procedure TForm3.Button2Click(Sender: TObject);
var startdate,finishdate:TDateTime;
begin
startdate:=DateTimePicker1.Date;
finishdate:=DateTimePicker2.Date;
dm.ADOQuery6.Active:=false;
dm.ADOQuery6.SQL.Clear; //желательно очищать текст предыдущего запроса
dm.ADOQuery6.SQL.Text:='select * from client where rdate between '+QuotedStr(DateToStr(startdate))+' and '+QuotedStr(DateToStr(finishdate));
dm.ADOQuery6.ExecSQL; //эта строка лишняя. Что-то одно.
dm.ADOQuery6.Active:=true;
end;

[Yur@]

Тоже не подходит
"Ошибка несоответствия типов данных в выражении условия отбора"

[artemavd]

Какого типа у вас поле, где хранится дата?

[Yur@]

тип 'Дата/Время'
Если поставить тип 'Текстовой',то значения будут выходить за границы, указанные в DateTimePicker1,2

[soleil@mmc]

во-первых, надо делать не ExecSQL, а Open!
а во-вторых, зачем столько танцев с бубнами если можно написать сразу подставив даты?!

procedure TForm3.Button2Click(Sender: TObject);
var startdate,finishdate:TDateTime;
begin
if dm.ADOQuery6.Active then
  dm.ADOQuery6.Close;
dm.ADOQuery6.SQL.Text:='select * from client where rdate between :p0 and :p1';
dm.ADOQuery6.ParamByName('p0').AsDateTime := DateTimePicker1.Date;
dm.ADOQuery6.ParamByName('p1').AsDateTime := DateTimePicker2.Date;
dm.ADOQuery6.Open;
end;