Выборка данных из dbf

Andrej-zhe · #1 11.10.2012, 10:39

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

poli-smen · #2 11.10.2012, 11:17

Цитата:

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

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

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

M.A.D.M.A.N. · #3 11.10.2012, 11:17

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

Andrej-zhe · #4 11.10.2012, 11:23

Код:

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 · #5 11.10.2012, 12:07

Цитата:

Сообщение от 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 · #6 11.10.2012, 15:58

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

poli-smen · #7 11.10.2012, 16:44

Цитата:

Сообщение от 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-х других файлов может проблема в этом.

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

Andrej-zhe · #8 11.10.2012, 16:53

Вот так ругается
---------------------------
Project1
---------------------------
Incompatible record structures.

File or directory does not exist.

File: C:\Users\...\_QSQL000.DBF

Table does not exist.
---------------------------
ОК
---------------------------

почему он обращается не к файлу sbor.dbf а к какому то временному получается.

poli-smen · #9 11.10.2012, 17:05

Цитата:

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

Вот так ругается
---------------------------
Project1
---------------------------
Incompatible record structures.

File or directory does not exist.

File: C:\Users\...\_QSQL000.DBF

Table does not exist.
---------------------------
ОК
---------------------------

Файл sbor.dbf на диске присутствует?
Путь к этому файлу прописан в Query1.DatabaseName?
Поле DPO в этой таблице существует?
Тип этого поля действительно Date?

Цитата:

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

почему он обращается не к файлу sbor.dbf а к какому то временному получается.

Как формируется файл sbor.dbf из тех 4-х файлов?

Andrej-zhe · #10 11.10.2012, 17:10

файл на диске присутствует
путь к файлу прописат в Query1.DatabaseName
поле существует
тип поля integer - поменять нет возможности иначе придется менять и в др файлах из которых формируется сбор

а вот таким запросом формируется файл

Код:

Query1.SQL.Text:='SELECT o.dpo, m.nist, m.fio,  m.date_wz, m.dp, m.dw, d.name, d.kodn, m.otd FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z, mklh.dbf m WHERE (d.type = o.type and d.subtype = o.subtype and d.kod = o.kod) AND'+
'(d.type = z.type and d.subtype = z.subtype and d.kod = z.kod) AND (o.n =  m.nk and o.otd = m.otd)';

poli-smen · #11 11.10.2012, 17:27

Цитата:

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

файл на диске присутствует

поле существует
тип поля integer - поменять нет возможности иначе придется менять и в др файлах из которых формируется сбор

Если поле integer, то с чего вдруг в нём хранится дата?

poli-smen · #12 11.10.2012, 17:30

Цитата:

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

а вот таким запросом формируется файл

Код:

Query1.SQL.Text:='SELECT o.dpo, m.nist, m.fio,  m.date_wz, m.dp, m.dw, d.name, d.kodn, m.otd FROM duh.dbf d, oper.dbf o, oper_ozo.dbf z, mklh.dbf m WHERE (d.type = o.type and d.subtype = o.subtype and d.kod = o.kod) AND'+
'(d.type = z.type and d.subtype = z.subtype and d.kod = z.kod) AND (o.n =  m.nk and o.otd = m.otd)';

Это формируется не файл, а выборка. А как эта выборка сохраняется на диск в файл sbor.dbf?

Andrej-zhe · #13 11.10.2012, 17:31

ну вот хранится незнаю как и почему.
тогда вот так формируется наверное

Код:

Query1.Open;
if Query1.RecordCount>0
  then
  begin
  tblSbor.TableName:='sbor.dbf';
  tblSbor.Open;
  while not Query1.Eof do
    begin
    tblSbor.Insert;
    tblSbor.FieldByName('nist').Value:=Query1.FieldByName('nist').Value;
    tblSbor.FieldByName('kodn').Value:=Query1.FieldByName('kodn').Value;
    tblSbor.FieldByName('name').Value:=Query1.FieldByName('name').Value;
    tblSbor.FieldByName('dpo').Value:=Query1.FieldByName('dpo').Value;
    tblSbor.FieldByName('otd').Value:=Query1.FieldByName('otd').Value;
    tblSbor.FieldByName('fio').Value:=Query1.FieldByName('fio').Value;
    tblSbor.FieldByName('date_wz').Value:=Query1.FieldByName('date_wz').Value;
    tblSbor.FieldByName('dp').Value:=Query1.FieldByName('dp').Value;
    tblSbor.FieldByName('dw').Value:=Query1.FieldByName('dw').Value;
    tblSbor.Post;
    Query1.Next;
    end;
  end
  else ShowMessage('Ни одной записи не найдено');

Andrej-zhe · #14 12.10.2012, 15:24

да все спс выборка делается, подскажите а как сделать выгрузку в excel полного файла и тех данных которые отображаются после выборки. Вобщем как отправить в excel данные которые в данный момент отображены в программе?

poli-smen · #15 12.10.2012, 15:37

Цитата:

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

да все спс выборка делается, подскажите а как сделать выгрузку в excel полного файла и тех данных которые отображаются после выборки. Вобщем как отправить в excel данные которые в данный момент отображены в программе?

Попробуй >>этот<< пример.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Andrej-zhe (12.10.2012)