Импорт Данных из dbf в DBGrid

@dega · Регистрация: 18.11.2015

Студворк — интернет-сервис помощи студентам

Всем добрый день! Необходимо по работе написать приложение для выгрузки данных из dbf. Никогда не имел дело с базами данных - поэтому много вопросов.
1) Как загрузить dbf(там только одна таблица со множеством строк) в DBGrid(на рис.) вроде как понял - через ADOConnection, ADOTable и DATASource. Но мне нужно подгружать и работать в дальнейшем только с определенными полями -'NC', 'DOT', 'GOR'. То есть пользователю не нужно самому фильтровать данные, он только нажимает кнопку и программно заданные поля подгружаются, которые потом там фильтруются по значениям выбранных полей, а затем выгружаются в текстовые файлы. Везде указываются фильтры через Edit-ы, Combo-Box-ы. А мне просто нужно подгружать определенные поля таблицы. Туплю над этим уже пару дней.
2) Если я как-то все-таки подгружу нужные колонки в программу, то как мне привести к нужному виду поле 'DOT'(дата): '198412' привести к стандартному виду '01.12.1984'?
2) Могу ли я значения определенного поля умножить на число в DBGrid-е?

@qwertehok · 25.11.2015, 18:32

1. Правой кнопкой по ADOTable щелкни. Вроде самый верхний пункт будет Fields Editor

2. а в dbf оно какой тип имеет?

3. да

@dega · 25.11.2015, 19:52 **[ТС]**

Если честно, то я не знаю как проверить тип данных в dbf. Я не создаю эти базы. Они ко мне приходят и мне нужно вытащить определенные данные оттуда.

@qwertehok · 25.11.2015, 20:43

dega,
а вам на работе можно говорить

Сообщение от dega

я не знаю

у нас за это премии лишают

не знаете - узнайте

@ZfoxAK · 26.11.2015, 04:27

Сообщение от dega

Они ко мне приходят и мне нужно вытащить определенные данные оттуда.

Открой Excel-ем, включи автофильтр и выбирай данные

@dega · 26.11.2015, 07:13 **[ТС]**

Сообщение от qwertehok

1. Правой кнопкой по ADOTable щелкни. Вроде самый верхний пункт будет Fields Editor

У меня файл dbf открывается через OpenDialog. То есть каждый раз может быть разный файл. Указывая нужные для подгрузки поля в Fields Editor'е возникает ошибка с указанием драйвера - наверное из-за того, что в этом случае должен быть один и тот же файл и постоянный доступ к нему. У меня разные файлы с одинаковой структурой и именами полей - нет жесткой привязки к одной базе.

Сообщение от qwertehok

2. а в dbf оно какой тип имеет?

Судя по формату YYYYMMDD - тип данных ДАТА. Только у меня 'DD' в dbf отсутствует.

Добавлено через 21 секунду

Сообщение от ZfoxAK

Открой Excel-ем, включи автофильтр и выбирай данные

Мне нужно ведь, потом выгрузить данные в текстовых файлах. Пользователь не будет перед использованием моей программы фильтровать екселем, который будет виснуть при обработке 10000-50000 строк(а есть файлы, где их может быть больше). Нужен универсальный готовый инструмент. Просто нет опыта в работе с базами.

@qwertehok · 26.11.2015, 09:51

dega,
1. если в файле одни и те же поля то тогда ошибки быть не может. нужно просто коннект закрывать и открывать когда известно имя файла

2. разверните дату в удобный формат руками

@Bit_Man · 26.11.2015, 10:44

попробуй с TDBF

@ZfoxAK · 26.11.2015, 11:46

Сообщение от dega

который будет виснуть при обработке 10000-50000 строк

У меня файл Excel-ский состоит из 110 000 записей на 4-х страница, и не виснет.

Сообщение от dega

Мне нужно ведь, потом выгрузить данные в текстовых файлах.

Потом после чего? какие действия будут производится до выгрузки

Сообщение от dega

Но мне нужно подгружать и работать в дальнейшем только с определенными полями -'NC', 'DOT', 'GOR'.

ADOQuery и с помощью запроса ограничиваешь набор данных требуемыми полями и если требуется тот записями.

Сообщение от dega

Могу ли я значения определенного поля умножить на число в DBGrid-е?

нет, так как DBGrid не содержит данных, а только отображает их.

@dega · 26.11.2015, 12:52 **[ТС]**

Сообщение от qwertehok

2. разверните дату в удобный формат руками

А с помощью какой функции это прописывается?

Добавлено через 11 минут

Сообщение от ZfoxAK

Потом после чего? какие действия будут производится до выгрузки

Отдельные поля - это данные измерения в определенных единицах. Мне их нужно математически преобразовать в удобные. Вообще подгружаются два файла dbf, которые мне нужно обработать, чтобы выгрузить в тектстовом формате, например:

1408 01.12.1984 13.231 2.543 0.000 0.482 0.000 0.000
1408 01.01.1985 12.453 2.865 0.000 0.542 0.000 0.000
1408 01.02.1985 11.376 3.632 0.000 0.507 0.000 0.000
........................................ ....
и т.д.
Отдельные поля остаются без изменений, а некоторые потом будут посредством математических выражений преобразовываться.

@qwertehok · 26.11.2015, 13:19

dega,
какая у вас версия Delphi?

если xe и выше - скиньте dbf файл, я покажу как с ним работать

@dega · 26.11.2015, 14:05 **[ТС]**

Сообщение от qwertehok

какая у вас версия Delphi?
если xe и выше - скиньте dbf файл, я покажу как с ним работать

Delphi XE7. Скину как буду дома.

@dega · 26.11.2015, 17:33 **[ТС]**

Сообщение от qwertehok

скиньте dbf файл, я покажу как с ним работать

Вот сам файл dbf

@qwertehok · 26.11.2015, 20:39

dega,
какие поля выводить?
какие фильтры делать?

@xxbesoxx · 27.11.2015, 00:41

Сообщение от dega

Судя по формату YYYYMMDD - тип данных ДАТА.

если для отображение в Grid-е нормально формате то так

Delphi
1
Adoquery.Fields[2].DisplayFormat := 'dd.mm.yyyy';

А если выгрузить в Excel на формате даты то так

Delphi
1
Sheet.Cells[index, 2] := FormatDateTime('dd.mm.yyyy',Adoquery.Fields[2].AsDateTime);

В чем проблема ?

Добавлено через 4 минуты

Сообщение от qwertehok

какая у вас версия Delphi?

Какая версия Delphi и какой у него Windows не имеет эту значения .!!! Когда человеку интересно отображать дата нормальном формате и экспортировать его в Excel-е

@northener · 27.11.2015, 01:29

xxbesoxx, нет у ТС в данной таблице полей с типом DATE/DATETIME/TIMESTAMP и т.п.
Есть только поля типа CHARACTER и NUMERIC.

Сообщение от dega

то как мне привести к нужному виду поле 'DOT'(дата): '198412' привести к стандартному виду '01.12.1984'?

Первые четыре символа это год. вторые два это месяц.

@dega · 27.11.2015, 12:49 **[ТС]**

Сообщение от qwertehok

dega,
какие поля выводить?
какие фильтры делать?

Поля 'NC', 'DOT', 'QNPLNAK/(DRMNC*0.905)', 'QBM'

@qwertehok · 28.11.2015, 18:46

вот как-то так

2 способа обработки dbf
1. разбираем dbf сами. но тут минус - строковые поля с русским текстом почему-то неправильно конвертятся
2. с помощью ODBC цепляемся и с помощью FDConnection\FDQuery получаем данные.
далее можно вывести в грид (закоментировал) или в FDMemTable. Если выводить построчно memtable, конечно, быстрее. можно даже еще быстрее если полноcтью перелить структуру Query в MemTable

Delphi
1
memdbf.Data := q.Data;

Но дальше я не понял как добавить вычисляемое поле.

ЗЫ при попытке вычислить значение напрямую в запросе попадаем на ограничения dBase. описания их SQL я не нашел, поэтому в запросе это сделать не получилось ((

@dega · 29.11.2015, 15:38 **[ТС]**

Спасибо вам большое. Буду теперь разбираться.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

Импорт Данных из dbf в DBGrid

Решение

Решение

@dega 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 23

	Импорт Данных из dbf в DBGrid 25.11.2015, 13:08. Показов 3410. Ответов 18 Метки нет (Все метки) Всем добрый день! Необходимо по работе написать приложение для выгрузки данных из dbf. Никогда не имел дело с базами данных - поэтому много вопросов. 1) Как загрузить dbf(там только одна таблица со множеством строк) в DBGrid(на рис.) вроде как понял - через ADOConnection, ADOTable и DATASource. Но мне нужно подгружать и работать в дальнейшем только с определенными полями -'NC', 'DOT', 'GOR'. То есть пользователю не нужно самому фильтровать данные, он только нажимает кнопку и программно заданные поля подгружаются, которые потом там фильтруются по значениям выбранных полей, а затем выгружаются в текстовые файлы. Везде указываются фильтры через Edit-ы, Combo-Box-ы. А мне просто нужно подгружать определенные поля таблицы. Туплю над этим уже пару дней. 2) Если я как-то все-таки подгружу нужные колонки в программу, то как мне привести к нужному виду поле 'DOT'(дата): '198412' привести к стандартному виду '01.12.1984'? 2) Могу ли я значения определенного поля умножить на число в DBGrid-е? Миниатюры 0

@qwertehok 5963 / 4539 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	25.11.2015, 18:32
	Сообщение было отмечено dega как решение Решение 1. Правой кнопкой по ADOTable щелкни. Вроде самый верхний пункт будет Fields Editor 2. а в dbf оно какой тип имеет? 3. да 1

@dega 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 23
	25.11.2015, 19:52 [ТС]
	Если честно, то я не знаю как проверить тип данных в dbf. Я не создаю эти базы. Они ко мне приходят и мне нужно вытащить определенные данные оттуда. 0

@qwertehok 5963 / 4539 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	26.11.2015, 09:51
	dega, 1. если в файле одни и те же поля то тогда ошибки быть не может. нужно просто коннект закрывать и открывать когда известно имя файла 2. разверните дату в удобный формат руками 0

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	26.11.2015, 10:44
	попробуй с TDBF 0

@qwertehok 5963 / 4539 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	26.11.2015, 13:19
	dega, какая у вас версия Delphi? если xe и выше - скиньте dbf файл, я покажу как с ним работать 0

@qwertehok 5963 / 4539 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	26.11.2015, 20:39
	dega, какие поля выводить? какие фильтры делать? 1

@dega 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 23
	29.11.2015, 15:38 [ТС]
	Спасибо вам большое. Буду теперь разбираться. 0