powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / макрос в Excel, использующий dbf
2 сообщений из 2, страница 1 из 1
макрос в Excel, использующий dbf
    #36022261
Marina_pn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В Excel, через макрос, выполняется заполнение ячеек данными из файла dbf , формируемого досовской программой, с кодовой страницей 866.
Доступ к dbf организован в макросе через OLEDB

Dim rs As Object
Dim conn As Object

Set rs = CreateObject("ADODB.Recordset")
Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.Path + ";Extended Properties=DBASE III"
conn.Open

rs.Open "select nomp, nazn, s, sp, dat from platt.dbf", conn

С какого-то момента данные в ячейках перестали отображаться адекватно (т.е. «абракадабра» - так бывает, когда неверная кодовая страница). Сделала нулевую кодовую страницу (вместо 866)– результат тот же. При этом на другом компе все нормально.
Т.е. что-то произошло на уровне системы (реестра). Можете что-нибудь посоветовать, кроме переустановки системы?
...
Рейтинг: 0 / 0
макрос в Excel, использующий dbf
    #36096556
pparfen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Marina_pn, добрый день
Помогло следующее - установка MS Visual FoxPro ODBC DRIVER
изменил строку
.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" + ThisWorkbook.Path + ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO"
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / макрос в Excel, использующий dbf
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]