|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Выборка данных из dbf
Доброго времени суток. Если кто то по данной проблеме уже интересовался просьба дать ссылочку на тему.
У меня есть база данных .dbf из которой необходимо выбирать данные за определенные месяца. Пользователь должен будет выбрать нужный период через компаненту DateTimePicker1 и DateTimePicker2. Подскажите код реализации или где можно посмотреть. |
#2
|
||||
|
||||
Цитата:
Пиши, что конкретно не получается, так как в твоём вопросе я проблемы не увидел. |
#3
|
||||
|
||||
Тебе код запроса нужен?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
Код:
tblSbor.Close; Query1.Close; Query1.DatabaseName:=ExtractFilePath(Application.ExeName); Query1.SQL.Text:='SELECT * FROM sbor.dbf WHERE dpo BEETWEN ((...) AND (...))'; tblSbor.Open; Query1.Open; как запрос надо написать? Ну и вобще правильно или нет? Последний раз редактировалось Andrej-zhe, 11.10.2012 в 11:49. |
#5
|
||||
|
||||
Цитата:
Код:
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; |
#6
|
|||
|
|||
Не работает, а можно целиком процедуру, а то я в базах данных 0.
Да и еще вот что я не указал а может это важно. У меня файл sbor.dbf формируется из 4-х других файлов может проблема в этом. Последний раз редактировалось Andrej-zhe, 11.10.2012 в 16:06. |
#7
|
||||
|
||||
Цитата:
Код:
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; Цитата:
|