День добрый!
Исходная задача: необходимо писать в DBF-файлы через 1С. Условия таковы, что эти базы рабочие и ежедневно используются программами на FoxPro.
Поэтому использовать стандартный XBase - нельзя. Ибо базы всё время открыты.
Использую следующий код для записи в DBF:


    Connection = Новый COMОбъект("ADODB.Connection");

    Соединение = ("Provider=vfpoledb;  
                 |Data Source=""" +Путь+""";
                  |Extended Properties=DBASE IV;
                         |Codepage=1251;");

    Connection.Open(Соединение);

    ТекстЗапроса = "";
    
    ТекстЗапроса = СоставитьТекстЗапроса(Данные); // составление запроса insert по некоторым данным
    
    Command = Новый COMОбъект("ADODB.Command");
    RecordSet = Новый COMОбъект("ADODB.Recordset");
    Command.ActiveConnection = Connection;
    Command.CommandText = ТекстЗапроса;
    RecordSet = Command.Execute();
    
    Command = Неопределено;

И, собственно, вот в чём проблема: После запуска конфигурации и выполнения первой записи - всё отрабатывает нормально. Но вторая и последующие записывают с некорректной кодировкой.
Не могу понять в чём тут может быть проблема. Пробовал и методы Close() для Connection и Command. Пробовал кодировку записываемых строковых значений менять всё равно получается вот такая белиберда:

Первая запись в базе: "ПРУТОК ДКРНП Л63"
Вторая и последующие: "IDOOIE └EDII E63"

Числа и даты пишутся нормально.

xbase же может только на чтение открывать

(1) нет, у конструктора есть соответствующий параметр. Но только в монопольном режиме, что мне не подходит

(2) только чтение, но в монопольном режиме? это как?

(3) При создании объекта XBase, в конструкторе параметр "ТолькоЧтение" переопределяется на Ложь и можно писать (но только в монопольном режиме)

(4) так тебе писать или читать?

(0)

(0) В заголовке dbf какая кодировка стоит, перед тем как ты туда что-то писать собираешся?

(5) писать

(7) 1251

(9) А после того, как ты сделал первую запись - меняется?

(10) а в какой момент и где это лучше глянуть?

(11) После записи, сразу в файле. 29й байт по-моему.
Надо понять в какой кодировке оно у тебя пишет и кто ее ставит - твой фокспро или изначальная программа

И заодно - какая программа показывает тебе строки в некорректной кодировке? сторонний вьювер или изначальная программа?

(13) 3 программы:
- простое считывание значений через Xbase в 1С
- просмотр базы через FoxPro
- DBFNavigator
- ну и эксцель
Через что ни открывай - везде одна запись корректна - вторая нет

(12) проверил кодировку 866 - не меняется перед и после записей

Так 1251 или 866?

(16) 866 все жё

Поменял в строке соединения codepage=866 - никакого эффекта

Вообще такое ощущение, что после первой записи соединение не закрывается полностью и это вызывает какую-то ошибку...

А где ты брал строку соединения?
Что то в инете они другие

(20) да вот где-то в инете и брал.
Сначала я пробовал писать через microsoft.jet.oledb.4.0 - но он при записи ломал индексы и в Fox-е лечилось только переиндексацией базы.
Строка соединения, походу от него и досталась.

(18) А ты прямо на бою проверяешь или на отдельной базе, куда никто кроме тебя не пишет?
Ну, чтобы исключить параллельные изменения, производимые не тобой.

(21) https://www.connectionstrings.com/visual-foxpro/
Попробуй варианты с "Microsoft Visual FoxPro ODBC Driver"

(22) сейчас отдельная, конечно

Попробовал следующие:

    Соединение =  "Provider=vfpoledb;  
                  |Data Source=""" +Путь+""";
               |Collating Sequence=machine";


    Соединение =  "Provider=vfpoledb;  
                  |Data Source=""" +Путь+""";
                  |Collating Sequence=general";
Нет эффекта.

Попробовал такое:

    Соединение ="Driver={Microsoft Visual FoxPro Driver};
                |SourceType=DBF;
                |SourceDB="+Путь+";
                |Exclusive=No;
                |Collate=Machine;
                |NULL=NO;
                |DELETED=NO;
                |BACKGROUNDFETCH=NO";
    
Ругается, мол нет такого драйвера

(13) в дбф навигаторе есть кнопка dos  и он кажет "правильно"

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

Заработало!

Я сделал две вещи:

- был установлен драйвер фокса версии 9, поставил ещё и 8
- в строке соединения я передавал путь до каталога, где лежат DBF
(думал, что это не важно, т.к. в команде insert указывается имя таблицы)
в итоге стал передавать путь напрямую к файлу DBF

Что из этого сработало - не знаю, но экспериментировать сейчас не хочу, ибо за два дня мозги изрядно поплавились)

Всем спасибо за участие!

Проверил всё-таки: виноват был драйвер