Чтение dbf-файла через ODBC Foxpro драйвер

11.07.13

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

Иногда возникает потребность прочитать dbf-файл, который xbase не понимает.

В 1С предприятии есть замечательный объект XBase, при помощи которого можно читать и записывать dbf-файлы. Увы, этот объект понимает не все форматы dbf и тогда на помощь приходят ODBC-драйверы. Вот пример чтения файла c:\primer.dbf с использованием FoxPro ODBC Driver (скачать можно отсюда: http://download.microsoft.com/download/vfoxodbcdriver/Install/6.1/W9XNT4/EN-US/VFPODBC.msi

СтрокаПодключения="DRIVER={Microsoft FoxPro VFP Driver (*.dbf)};SourceDB=C:\; SourceType=DBF; Exclusive=No;BackgroundFetch=Yes;Collate=Russian;Null=No;Deleted=Yes;";
Соединение = Новый COMОбъект("ADODB.Connection");
Попытка
    Соединение.Open(СтрокаПодключения);
Исключение
    Сообщить("Ошибка установки соединение");
    Соединение=0;
    Возврат;
КонецПопытки;
НБ= Соединение.Execute("Select * from [primer]");  // здесь указывается имя файла (без расширения), а папка указывается в строке подключения 
Пока НБ.EOF=0 Цикл 
    Поле1=НБ.Fields("FLD1").value; 
    Поле2=НБ.Fields("FLD2").value; 
    НБ.MoveNext(); 
КонецЦикла; 
НБ=0; 
Соединение=0;

+29 –1

См. также

SALE! 10%

ED для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ. Новые

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 руб.

12.06.2017 143319 821 297

428

SALE! 10%

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.20.x), также подходят для релиза 11.5 (11.5.19.x).

~~35000~~ 31500 руб.

23.07.2020 53407 236 73

192

SALE! 10%

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.237.x) и БП 3.0 (3.0.166.x). Правила подходят для версии ПРОФ и КОРП.

~~35000~~ 31500 руб.

15.12.2021 24819 174 51

132

SALE! 10%

Перенос данных из ERP 2 / КА 2 в ЗУП 3. Переносятся остатки, документы и справочники

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

~~53111~~ 47800 руб.

03.12.2020 37239 99 66

SALE! 10%

Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

~~48278~~ 43450 руб.

25.02.2015 172009 307 258

384

SALE! 10%

Перенос данных и обмен из УТ 10.3 в УТ 11 / КА 2 / ERP 2. Переносятся документы, справочники и остатки

Перенос данных 1C Взаиморасчеты Оптовая торговля Логистика, склад и ТМЦ Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Управленческий учет Платные (руб)

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Предлагаем качественное и проверенное временем решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам. При выходе новых релизов конфигураций 1C оперативно выпускаем обновление переноса данных.

~~55778~~ 50200 руб.

24.04.2015 195870 155 244

284

SALE! 10%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

~~55778~~ 50200 руб.

15.04.2019 72788 184 151

125

SALE! 10%

Перенос данных из ERP 2/ КА 2 / УТ 11 в УПП 1.3 / КА 1.1 / УТ 10.3. Переносятся все возможные документы и справочники

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

~~53111~~ 47800 руб.

28.11.2015 83614 32 126

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. zels 174 11.07.13 14:41 Сейчас в теме

Странно -при редактировании я вижу весь текст, а при просмотре нижняя часть пропадает...
"Хвост" такой:
НБ= Соединение.Execute("Select * from [primer]");
Пока НБ.EOF=0 Цикл
Поле1=НБ.Fields("FLD1").value;
Поле2=НБ.Fields("FLD2").value;
НБ.MoveNext();
КонецЦикла;
НБ=0;
Соединение=0;

2. Йожкин Кот 1008 11.07.13 16:14 Сейчас в теме

Рекомендую использовать Microsoft OLE DB Provider for Visual FoxPro 9.0 вместо предложенного, т.к. некоторые функции поддерживаются только в нем.
ссыль на скачивание
http://www.microsoft.com/en-us/download/details.aspx?id=14839

4. zels 174 11.07.13 20:34 Сейчас в теме

(2) Йожкин Кот, можете привести полную строку инициализации?

Вроде нет проблемы прочитать dbf, но пришлось потратить 2 часа, чтобы получить работающий пример (то драйвера не идут, то строка иницализации дает ошибку, то кодировка не та). У меня WindowsXP, на других операционках не проверял.

5. Йожкин Кот 1008 12.07.13 17:00 Сейчас в теме

(4) Строка инициализации для ВСЕХ провайдеров ADODB делается просто: создаем пустой файл с расширением udl, "запускаем" его и выбираем в конструкторе нужного провайдера и его настройки. Сохраняем файл, открываем его блокнотом и копируем строку инициализации.

ЗЫ: с кодировкой могут быть проблемы только в одном случае - в заголовке файла dbf не выбран (не верно выбран) код кодировки. Самый правильный способ исправления - исправить заголовок и не нужно никаких танцев с бубном, правок системных библиотек и реестра.

6. Ёпрст 1065 12.07.13 17:05 Сейчас в теме

(4)

    КаталогИБ = "D:\Bases\Торговля\"; // тут свой путь воткнешь + в системе должен быть установлен vfp провайдер, вот отсюда, к примеру:
    //  http://www.microsoft.com/downloads/details.aspx?FamilyId=E1A87D8F-2D58-491F-A0FA-95A3289C5FD4&displaylang=en
    ОлеДБ = Новый COMОбъект("ADODB.Connection");
    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ + ";Mode=ReadWrite;Collating Sequence=MACHINE";
    ОлеДБ.Open(Соединение);
    Command = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection = ОлеДБ;
    ТекстЗапроса = "
        |select
		|  Спр.descr as Номенклатура,
        |  Спр.sp85 as Артикул,
        |  sum(Рег.sp411) as Остаток
        |from rg405 as Рег
        |left join sc84 as Спр on Спр.id = Рег.sp408
        |where Рег.period= {d '2012-07-01'} 
        |group by Спр.descr,Спр.sp85
        |order by Спр.descr
        |";
    Command.CommandText = ТекстЗапроса;     
    RecordSet = Новый COMОбъект("ADODB.RecordSet");     
    RecordSet = Command.Execute();
    Если not RecordSet.EOF() Тогда
        RecordSet.MoveFirst();
        Пока RecordSet.EOF() = 0 Цикл
            Сообщить(RecordSet.Fields.Item("Номенклатура").Value + " "+RecordSet.Fields.Item("Артикул").Value+" "+RecordSet.Fields.Item("Остаток").Value);
            RecordSet.MoveNext();  
        КонецЦикла;
    КонецЕсли;

Показать

здесь немного неверный синтаксис запроса - не задействован индекс

3. Ёпрст 1065 11.07.13 16:24 Сейчас в теме

и только в фоксе можно задействовать индекс в тексте запроса.

7. yuraos 1005 17.07.13 10:35 Сейчас в теме

А в чем новизна статьи?
Есть множество статей, предлагающих читать (и писать) через ADO
что угодно и куда угодно.
Не мешало бы бы пару ссылок в статью вставить.

8. zels 174 17.07.13 11:53 Сейчас в теме

Когда мне понадобилось загрузить данные из dbf, я подумал - нет проблем (больше десятка раз грузил через xbase). А тут открываю этот dbf-файл, а в некоторых полях записано "неопределено"... Значит, надо через ODBC действовать (через ВИД не катит, т.к. конфигурация закрыта). Я не нашел в инете четкой инструкции, как подключить и загрузить данные через ODBC-драйвер (да еще и вопрос - какой драйвер использовать)! На инфостарте тоже не нашел (хотя, может, плохо искал). В общем, через два часа получил работающий вариант и решил его опубликовать, дабы другие не тратили эти два часа (они могут ох как понадобиться для другого).

Я не претендую на приоритет или копирайт, я просто написал рецепт, который работает в определенных условиях. А статьи по ADO найти не проблема... Но когда я искал пути решения, мне нужен был именно рецепт, а не рассуждения про широкие возможности ADO, ODBC и ссылки на другие интересные статьи (я их немало прочел, даже не возьмусь кого-то особо выделить)...

Если кто знает, дайте ссылку на аналогичную публикацию (мне и другим только польза будет). Мне кажется, статьи типа "самодостаточный рецепт" имеют право на существование. Одно дело обзорная статья, описывающая возможности технологии вообще (даже с частым примером) и другое дело - как применить эту технологию для решения этой конкретной задачи (возникают тонкости, никак не описанные в статье). Читаешь статьи, где упоминаются ADO, OLEDB, MDAC, JET4.0, ODBC и другие "страшные" слова, скачиваешь драйверы, устанавливаешь, подключаешься - и НЕ РАБОТАЕТ. Вот для тех, кому важен результат, а не процесс и разборки, я и написал эту статью.

(7) yuraos, если у Вас есть готовый рецепт чтения dbf через ADO - напишите статью, я и другие только спасибо скажем. Тогда по словам "dbf, ODBC" будет показываться моя статья, а по "dbf, ADO" - Ваша и каждый желающий сможет быстро найти то, что ему надо.

9. yuraos 1005 17.07.13 13:37 Сейчас в теме

(8)
лады!
выложи ка на ветке проблемный дбф-ник.
а я его попробую прочитать ... и ссылочку потом кину с помощью чего можно.

10. zels 174 17.07.13 13:56 Сейчас в теме

Прикрепил образец

Прикрепленные файлы:

_prpves.dbf

11. yuraos 1005 17.07.13 18:36 Сейчас в теме

(10)
прочиталось на ура с первого раза!
---
возвращаю назад архивчик, в котором:
..\_prpves.rar\_prpves\
_prpves.dbf - исходный файлец;
1Cv81.dt - выгрузка демобазы - можно развернуть и под 8.2 (после чего конвертнуть);
_prpves.selx - запрос для консоли, которых читает dbf-ник;
_prpves.txt - инструкция, что делать;

12. yuraos 1005 17.07.13 18:38 Сейчас в теме

(11)
и обещанные ссылочки:
http://infostart.ru/public/169973/
http://infostart.ru/public/177179/

13. zels 174 17.07.13 20:37 Сейчас в теме

(11) yuraos, спасибо

Я вижу, что Ваше решение "мощнее" и уверен - все работает правильно. Но мне кажется, что мой пример легче воспринимается для задачи "чтение dbf-файла" (хотя тут я, конечно, абсолютно субъективен) и поэтому я полагаю, что каждый вариант найдет своего пользователя.
Увы, сейчас я даже не могу сказать - видел я эти примеры или нет (когда искал на инфостарте чтение dbf). Может, я их и видел, но они не ассоциировались с моей проблемой (когда ищешь подходящее решение среди множества ссылок, глубоко вникать просто некогда).

14. yuraos 1005 22.07.13 06:25 Сейчас в теме

(13)
наконец тебе шар вкатил!
---
а то эти умники из тех-поддержки условие сделали:
чтобы "минус" поставить - надо файл скачать!!!
а у тебя и скачивать то нечего...
---
вставишь ссылки на имеющиеся статьи по теме - сниму.

15. zels 174 22.07.13 14:38 Сейчас в теме

(14) yuraos, чихать мне на твой шар - плюсов больше, значит есть польза. Ты не меня - ты себя минусуешь.

16. yuraos 1005 22.07.13 18:22 Сейчас в теме

(15) уважаемый, я смотрю у вас хронический насморк на коллег-разработчиков
...
будемс иметь ввиду.

17. zels 174 22.07.13 19:02 Сейчас в теме

(16) yuraos, не надо заниматься подтасовками и подменять свой шар коллегами-разработчиками.

Оставьте свое сообщение

E-mail:

Автор:

Сергей Зеленовский (zels)

Рейтинг: 174

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 194046

Создание 11.07.13 15:18

Обновление 11.07.13 14:49

Статистика:

Просмотры 36845

Загрузки 0

Рейтинг 28

Комментарии 18

Характеристики:

Код открыт Не указано

Рубрики Файловый обмен (TXT, XML, DBF), FTP

Кому Программист

Тип файла Нет файла

Платформа Платформа 1С v8.3

Конфигурация Не имеет значения

Операционная система Windows

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)