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

11.07.13

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

+29 –1
Иногда возникает потребность прочитать 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! 15%

Обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с ED

Перенос данных 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. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

26280 руб.

12.06.2017    142256    803    297    

423
Перенос данных из УПП 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 руб.

15.12.2021    24373    172    51    

131
Перенос данных из УТ 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).

35000 руб.

23.07.2020    52013    229    72    

187
Обмен УПП 1.3, КА 1.1, УТ 10.3 с EnterpriseData (универсальный формат обмена) ED2

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

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

15300 руб.

18.02.2016    187222    591    513    

529
Перенос данных из Парус 10 в ЗГУ ред.3

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

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    10957    13    8    

15
Выгрузка-загрузка любых данных из 1С (и измененных) в XML между похожими конфигурациями (ФАЙЛ, HTTP, COM) ЛЮБЫХ баз 1С 8.1-8.3 с обработкой и поиском данных по произвольным полям поиска

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

Что же Вы получаете? 2 способа обмена объектами – с ОДИНАКОВОЙ структурой и с ОТЛИЧАЮЩЕЙСЯ! Забудьте о том, что не могли ранее перенести данные между базами, из-за того, что изменилась структура объектов в одной из них с обновлением конфигурации – теперь это в прошлом! Теперь не помеха для обмена изменение состава реквизитов объекта (измерений, ресурсов)/состава табличных частей/реквизитов табличных частей/типов реквизитов! А так же получаете быстрый алгоритм обмена, с возможностью указания уровня выгрузки объектов по ссылкам! 3 способа обмена - ФАЙЛ, HTTP, COM: Система слежения за дублями предопределенных элементов при загрузке; Система поиска связей объектов для выгрузки; Отборы для каждого объекта конфигурации в отдельности; Динамическая замена произвольных ссылок при обмене; Выбор регистров движений для выгрузки. (Обновление от 27.06.2024, версия 9.1 - 10.1)

16800 руб.

28.08.2012    209289    304    281    

657
EnterpriseData УТ 11.0, УТ 11.1, УТ 11.2, УТ 11.3, УТ 11.4, 11.4.5

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

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

20580 руб.

13.09.2021    21716    37    32    

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

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

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

35000 руб.

24.06.2020    63849    55    27    

86
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. zels 173 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
Artem N; Ёпрст; +2 – Ответить
4. zels 173 11.07.13 20:34 Сейчас в теме
(2) Йожкин Кот, можете привести полную строку инициализации?

Вроде нет проблемы прочитать dbf, но пришлось потратить 2 часа, чтобы получить работающий пример (то драйвера не идут, то строка иницализации дает ошибку, то кодировка не та). У меня WindowsXP, на других операционках не проверял.
+ – Ответить
5. Йожкин Кот 1008 12.07.13 17:00 Сейчас в теме
(4) Строка инициализации для ВСЕХ провайдеров ADODB делается просто: создаем пустой файл с расширением udl, "запускаем" его и выбираем в конструкторе нужного провайдера и его настройки. Сохраняем файл, открываем его блокнотом и копируем строку инициализации.

ЗЫ: с кодировкой могут быть проблемы только в одном случае - в заголовке файла dbf не выбран (не верно выбран) код кодировки. Самый правильный способ исправления - исправить заголовок и не нужно никаких танцев с бубном, правок системных библиотек и реестра.
grayskin; +1 – Ответить
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();  
        КонецЦикла;
    КонецЕсли;
Показать


здесь немного неверный синтаксис запроса - не задействован индекс
user598891_ua4fas; AzagTot; YuSharov; +3 – Ответить
3. Ёпрст 1065 11.07.13 16:24 Сейчас в теме
и только в фоксе можно задействовать индекс в тексте запроса.
+ – Ответить
7. yuraos 1003 17.07.13 10:35 Сейчас в теме
А в чем новизна статьи?
Есть множество статей, предлагающих читать (и писать) через ADO
что угодно и куда угодно.
Не мешало бы бы пару ссылок в статью вставить.
+ – Ответить
8. zels 173 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" - Ваша и каждый желающий сможет быстро найти то, что ему надо.
by_1Cnik; olegtymko; +2 – Ответить
9. yuraos 1003 17.07.13 13:37 Сейчас в теме
(8)
лады!
выложи ка на ветке проблемный дбф-ник.
а я его попробую прочитать ... и ссылочку потом кину с помощью чего можно.
+ – Ответить
10. zels 173 17.07.13 13:56 Сейчас в теме
Прикрепил образец
Прикрепленные файлы:
_prpves.dbf
+ – Ответить
11. yuraos 1003 17.07.13 18:36 Сейчас в теме
(10)
прочиталось на ура с первого раза!
---
возвращаю назад архивчик, в котором:
..\_prpves.rar\_prpves\
_prpves.dbf - исходный файлец;
1Cv81.dt - выгрузка демобазы - можно развернуть и под 8.2 (после чего конвертнуть);
_prpves.selx - запрос для консоли, которых читает dbf-ник;
_prpves.txt - инструкция, что делать;
+ – Ответить
12. yuraos 1003 17.07.13 18:38 Сейчас в теме
(11)
и обещанные ссылочки:
http://infostart.ru/public/169973/
http://infostart.ru/public/177179/
+ – Ответить
13. zels 173 17.07.13 20:37 Сейчас в теме
(11) yuraos, спасибо

Я вижу, что Ваше решение "мощнее" и уверен - все работает правильно. Но мне кажется, что мой пример легче воспринимается для задачи "чтение dbf-файла" (хотя тут я, конечно, абсолютно субъективен) и поэтому я полагаю, что каждый вариант найдет своего пользователя.
Увы, сейчас я даже не могу сказать - видел я эти примеры или нет (когда искал на инфостарте чтение dbf). Может, я их и видел, но они не ассоциировались с моей проблемой (когда ищешь подходящее решение среди множества ссылок, глубоко вникать просто некогда).
+ – Ответить
14. yuraos 1003 22.07.13 06:25 Сейчас в теме
(13)
наконец тебе шар вкатил!
---
а то эти умники из тех-поддержки условие сделали:
чтобы "минус" поставить - надо файл скачать!!!
а у тебя и скачивать то нечего...
---
вставишь ссылки на имеющиеся статьи по теме - сниму.
+ – Ответить
15. zels 173 22.07.13 14:38 Сейчас в теме
(14) yuraos, чихать мне на твой шар - плюсов больше, значит есть польза. Ты не меня - ты себя минусуешь.
+ – Ответить
16. yuraos 1003 22.07.13 18:22 Сейчас в теме
(15) уважаемый, я смотрю у вас хронический насморк на коллег-разработчиков
...
будемс иметь ввиду.
+ – Ответить
17. zels 173 22.07.13 19:02 Сейчас в теме
(16) yuraos, не надо заниматься подтасовками и подменять свой шар коллегами-разработчиками.
Spacer; +1 – Ответить
Оставьте свое сообщение