ADOQuery

[ЛисЁНЫШ]

Здравствуйте!Помогите пожалуйста!!
На форме находится компоненты DBGrid1,ADOTable1, ADOConnection1, DataSource1, ADOQuery1 также 2 компонента DateTimePicker.
Необходимо организовать фильтрацию по полю DATA. Пользователь должен с помощью компонентов DateTimePicker вводит дату начальную и конечную при нажатии кнопки должны остаться только те записи которые входят в диапазон между 2 датами.
я написала вот такой ко, но у меня выходит ошибка. Помогите разобраться с ошибкой.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('SELECT * FROM smo1 WHERE DATA BETWEEN :first_date AND :last_date');

ADOQuery1.Parameters.ParamByName('first_date').value:=DateToStr(DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('last_date').value:=DateToStr(DateTimePicker2.Date);
ADOQuery1.Active:=true;
end;

[Serge_Bliznykov]

для начала...
какая СУБД?
в таблице smo1 поле DATA есть?
Какого оно типа? (в структуре)

[soleil@mmc]

небось что-то не то с форматом подставляемой даты
и если это дата, то зачем тогда делать это ParamByName('first_date').value:=Da teToStr(DateTimePicker1.Date);?

[ЛисЁНЫШ]

БД формат '.DBF'. В бд есть поле 'data' типа 'data'

Переделала, получилось вот так:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('SELECT * FROM smo1 WHERE DATA BETWEEN :first_date AND :last_date');

ADOQuery1.Parameters.ParamByName('first_date').value:=DateTimePicker1.DateTime;
ADOQuery1.Parameters.ParamByName('last_date').value:=DateTimePicker2.DateTime;
ADOQuery1.Active:=true;
end;

ошибка не выходит, но зато ничего не происходит, не работает.

[Serge_Bliznykov]

Сообщение от soleil@mmc

то зачем тогда делать это ParamByName('first_date').value:=DateToStr

soleil@mmc, +1 (за внимательность ).
действительно. раз уж использовать параметры, так использовать!

ADOQuery1.Parameters.ParamByName('first_date').value:=trunc(DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('last_date').value:=trunc(DateTimePicker2.Date);

__________________
добавлено

В бд есть поле 'data' типа 'data'

ну, тогда типа "Date", а не data ...

а в таблице точно есть записи, отвечающие условиям?!

посмотрите, я в код добавил trunc(...) возможно, что это поможет... (это позволит отбросить от даты временную состовляющую, есло она там есть, конечно!


и ещё, а какой провайдер используете для подключения к DBF ? (приведите вашу ConnectionString, пожалуйста)

[ЛисЁНЫШ]

провайдер - Microsoft Visual FoxPro OLE DB Provider

добавила:

ADOQuery1.Parameters.ParamByName('f irst_date').value:=trunc(DateTimePi cker1.Date);
ADOQuery1.Parameters.ParamByName('l ast_date').value:=trunc(DateTimePic ker2.Date);

и у меня снова выходит таже ошибка

[SERG1980]

Сообщение от ЛисЁНЫШ

БД формат '.DBF'. В бд есть поле 'data' типа 'data'

Переделала, получилось вот так:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('SELECT * FROM smo1 WHERE DATA BETWEEN :first_date AND :last_date');

ADOQuery1.Parameters.ParamByName('first_date').value:=DateTimePicker1.DateTime;
ADOQuery1.Parameters.ParamByName('last_date').value:=DateTimePicker2.DateTime;
ADOQuery1.Active:=true;
end;

ошибка не выходит, но зато ничего не происходит, не работает.

1. А У вас в ADOQuery добавлены эти параметры(first_date,last_date)
2. Попробуйте обращаться к параметрам не через Value а через AsDate

ADOQuery1.Parameters.ParamByName('first_date').AsDate:=DateTimePicker1.Date;
ADOQuery1.Parameters.ParamByName('last_date').AsDate:=DateTimePicker2.Date;

и в компонентах DateTimePicker св-во Time сотрите (будут одни нули) а иначе он помимо даты и время учитывает

[Serge_Bliznykov]

ЛисЁНЫШ, Вы не выкладываете Ваш проект и Ваш DBF файл, поэтому получается лечение "по фотографии" ;(

во вложении рабочий проект. с исходниками.
тестовый DBF файл прилагается.
смотрите пример, тестируйте...
ищите, где и что у Вас не так.
будут проблемы — милости просим.

[ЛисЁНЫШ]

ВСЕ ВСЕМ БОЛЬШОЕ СПАСИБО!!У МЕНЯ ВСЕ ЗАРАБОТАЛО