[Andrej-zhe]

Доброго времени суток. Если кто то по данной проблеме уже интересовался просьба дать ссылочку на тему.
У меня есть база данных .dbf из которой необходимо выбирать данные за определенные месяца. Пользователь должен будет выбрать нужный период через компаненту DateTimePicker1 и DateTimePicker2. Подскажите код реализации или где можно посмотреть.

[poli-smen]

Сообщение от Andrej-zhe

Доброго времени суток. Если кто то по данной проблеме уже интересовался просьба дать ссылочку на тему.
У меня есть база данных .dbf из которой необходимо выбирать данные за определенные месяца. Пользователь должен будет выбрать нужный период через компаненту DateTimePicker1 и DateTimePicker2. Подскажите код реализации или где можно посмотреть.

Выборку можно сделать SQL-запросом или фильтром.
Пиши, что конкретно не получается, так как в твоём вопросе я проблемы не увидел.

[M.A.D.M.A.N.]

Тебе код запроса нужен?

[Andrej-zhe]

Код:

tblSbor.Close;
Query1.Close;
Query1.DatabaseName:=ExtractFilePath(Application.ExeName);
Query1.SQL.Text:='SELECT * FROM sbor.dbf WHERE dpo BEETWEN ((...) AND (...))';
tblSbor.Open;
Query1.Open;

как запрос надо написать?
Ну и вобще правильно или нет?

[poli-smen]

Сообщение от Andrej-zhe

Код:

tblSbor.Close;
Query1.Close;
Query1.DatabaseName:=ExtractFilePath(Application.ExeName);
Query1.SQL.Text:='SELECT * FROM sbor.dbf WHERE dpo BEETWEN ((...) AND (...))';
tblSbor.Open;
Query1.Open;

как запрос надо написать?
Ну и вобще правильно или нет?

Пробуй так:

Код:

  Query1.SQL.Text := 'SELECT * FROM sbor.dbf WHERE dpo >= :date1 and dpo < :date2';
  Query1.ParamByName('date1').AsDate := Int(DateTimePicker1.Date);
  Query1.ParamByName('date2').AsDate := Int(DateTimePicker2.Date)+1;

[Andrej-zhe]

Не работает, а можно целиком процедуру, а то я в базах данных 0.
Да и еще вот что я не указал а может это важно. У меня файл sbor.dbf формируется из 4-х других файлов может проблема в этом.

[poli-smen]

Сообщение от Andrej-zhe

Не работает, а можно целиком процедуру, а то я в базах данных 0.

У меня так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM sbor.dbf WHERE dpo >= :date1 AND dpo < :date2';
  Query1.ParamByName('date1').AsDate := Int(DateTimePicker1.Date);
  Query1.ParamByName('date2').AsDate := Int(DateTimePicker2.Date)+1;
  Query1.Open;
end;

Сообщение от Andrej-zhe

Да и еще вот что я не указал а может это важно. У меня файл sbor.dbf формируется из 4-х других файлов может проблема в этом.

Не вижу в этом проблемы.