Чтение 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

См. также

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

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

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

38000 руб.

15.12.2021    33386    250    64    

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

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 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. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27633 руб.

12.06.2017    159440    953    317    

479
Перенос данных из УПП 1.3 в ЗУП 3.1 или из КА 1.1 в ЗУП 3.1. Переносятся начальные остатки, обороты и справочная информация

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

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

58000 руб.

29.10.2018    62307    80    130    

78
Обновление для 1С:УТ 10.3, КА 1.1 и УПП 1.3 на новую ставку НДС 22%

НДС 22% Учетные задачи ККМ Файловый обмен (TXT, XML, DBF), FTP 1С 8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Бухгалтерский учет Налоговый учет НДС Платные (руб)

Готовое обновление для конфигурации 1С:Управление торговлей 10.3, 1С:Комплексная автоматизация 1.1 , 1С:Управление производственным предприятием 1.3 обеспечивающее полную поддержку новой ставки НДС 22%. Для 1С:УТ 10.3 реализована поддержка печати чеков ККМ, а также Правила обмена с 1С:БП 3.0. Решение встраивает необходимые изменения в перечисления и документы, включая торговые операции и печатные формы.

12200 руб.

16.12.2025    8038    85    0    

80
ED для УПП, КА 1.1, УТ 10.3

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

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

16531 руб.

18.02.2016    201928    671    543    

561
Выгрузка УПД в формате XML для ЭДО

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

Данные обработки позволяют выгружать документ УПД в формате xml. (В ФАЙЛ) для ЭДО в 1С: УТ, БП, КА версии ПРОФ и БАЗОВЫЕ. Формат выгрузки 5.03

4270 руб.

25.09.2019    106771    1343    608    

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

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

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

38000 руб.

23.07.2020    67189    313    94    

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

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

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

58000 руб.

15.04.2019    83054    222    173    

160
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. zels 175 11.07.13 14:41 Сейчас в теме
Странно -при редактировании я вижу весь текст, а при просмотре нижняя часть пропадает...
"Хвост" такой:
НБ= Соединение.Execute("Select * from [primer]");
Пока НБ.EOF=0 Цикл
Поле1=НБ.Fields("FLD1").value;
Поле2=НБ.Fields("FLD2").value;
НБ.MoveNext();
КонецЦикла;
НБ=0;
Соединение=0;
+ – Ответить
2. Йожкин Кот 1009 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 175 11.07.13 20:34 Сейчас в теме
(2) Йожкин Кот, можете привести полную строку инициализации?

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

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

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