поиск по дате с ... и до ....

[Obey177]

есть база clien1 псевдоним contora поля базы fam im ot data на форме3 компоненты:Datasourse1.Query1.Table .Button.DataTimePicker1.DataTimePic ker2
Нужно чтобы выдавала все записи где data1<=data<=data2
Помогите пжл бьюсь второй день

[BARNEY]

в кнопке пишем

Query1.sql.text:='select * from contora where '
+' data>='''+datetostr(DataTimePicker1.data)+'''  and '
+' data<='''+datetostr(DataTimePicker2.data)+''' '
Query1.active:=true;

[Stilet]

С потолка:

 with Query1 do begin
  sql.text:='select * from contora where data1<=:d and data2>=:d';
  ParamByName('d').AsDateTime:=DataTimePicker1.datetime;
  Open;
 end;

И цепляешь к этому Куери БДГрид.

[Obey177]

вроде квери связал серавно в чем то проблема два кода верхних не работают...
во втором ругается на ParamByName('d').AsDateTime:=DataTi mePicker1.datetime; на DataTimePicker1.datetime

[Obey177]

procedure TForm3.Button2Click(Sender: TObject);

begin

Query1.Close;
Query1.SQL.Clear;
Query1.Params.ParamByName('data1'). ASDate :=DateTimePicker1.Date;
Query1.Params.ParamByName('data2'). ASDate :=DateTimePicker2.Date;
Query1.SQL.Text := 'select * from contora where Data BETWEEN ata1 and ata2';

Query1.Open;

end;
пишет параметра дата1 нет процесс стоп помогите пжл

[Пепел Феникса]

вы значало запрос запишите то, а лишь потом параметры вставляйте.

[Obey177]

пробовал что так что так не получилось всеравно

[Пепел Феникса]

procedure TForm3.Button2Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Text := 'select * from contora where Data BETWEEN :data1 and :data2';
 Query1.Params.ParamByName('data1').ASDate :=DateTimePicker1.Date;
 Query1.Params.ParamByName('data2').ASDate :=DateTimePicker2.Date;
 Query1.Open;
end;

сначало запрос, а лишь потом в него параметры ставим.
а то куда вы параметры вставлять собирались?

[Obey177]

Сообщение от Пепел Феникса

procedure TForm3.Button2Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Text := 'select * from contora where Data BETWEEN :data1 and :data2';
 Query1.Params.ParamByName('data1').ASDate :=DateTimePicker1.Date;
 Query1.Params.ParamByName('data2').ASDate :=DateTimePicker2.Date;
 Query1.Open;
end;

сначало запрос, а лишь потом в него параметры ставим.
а то куда вы параметры вставлять собирались?

да всеравно ошибку выдает непонимаю почему...

[Stilet]

Телепатировать прикажешь?