Не получается выполнить Update с помощью адо, делаю так:
DBConn = CreateObject("ADODB.Connection");
    DBConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" +
        "Data Source=" + СокрЛП(ВыбКаталог) + база + ";" +
        "Extended Properties=""DBASE IV;"";");

DBConn.Execute("UPDATE [tabl#DBF] SET FIO='Петров Василий Пупкин' WHERE KOD=131559");

При исполнении кода запись не обновляется пишет:
Microsoft JET Database Engine: Ключ поиска не найден ни в одной записи.

Если дело в индексе, как без индекса можно обновить, дело в том что индексный файл есть, но я не знаю его структуру, как посмотреть как поля называются в этом индексе.

Таблицы создвались не мной, я их только использую.

Пытался открывать базу встроенными средствами, но не открывает для записи, база уже открыта для чтения. В общем это был бы самый приемлемый вариант, но не работает. Если убрать условие от обновляет все записи, не смотря на то что база у других пользователей открыта.
В общем хотелось бы как нибудь эту проблему решить, может и не через адо.

есть уверенность, что код - числовое поле ?

ну и vfpoledb как-то привычнее

чем Jet.OLEDB

(2) Ну вот с ним не пробовал, надо попробовать. Дело в том при простом переборе записей select доходя до конца опять таки дает ошибку, как буд то условие на конец набора не отрабатывает. Надо попробовать с vfpoledb

на а поле KOD - числовое у тебя ?

Код - число

не получается, Провайдера скачал и установил. Система windows10 при попытке создать объект:

DBConn = СоздатьОбъект("OLEDBData");
{C:\3\1\ВК\ПРОБА!!!.ERT(29)}: Неудачная попытка создания объекта (OLEDBData)

куда копать?

Кстати, эксперементировал с
DBConn = CreateObject("ADODB.Connection");
    DBConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" +
        "Data Source=" + СокрЛП(ВыбКаталог) + база + ";" +

        "Extended Properties=""DBASE IV;"";");

Набор = DBConn.Execute("Select * From [tabl#DBF] WHERE KOD=131559");

пока  Набор.EOF=0 Цикл    
    КОД=    Набор.Fields("KOD").value;
    ФИО=  Набор.Fields("FIO").value;
    
    
    Сообщить("Код="+КОД+" ФИО="+ФИО);
    
    Набор.MoveNext();
КонецЦикла;

Выводит нужную запись но на MoveNext() падает!

Что такое, непонятно...

(7) разобрался

(0) не работает только на одной таблице DBF, как назло на самой нужной. На других проверял - все работает.
При команде Select с условием тормозится на этой строке:

РС.MoveNext(); //Переходим к след. записи DBF
{C:\3\1\ВК\ПРОБА!!!.ERT(89)}: Microsoft JET Database Engine: Ключ поиска не найден ни в одной записи.

На других таблицах все нормально отрабатывает. Почему? где смотреть? Открывал таблицу в Фоксе, все нормально открывается.

пересоздать индексы?

(12) Что это даст!

Ничего.. :(
Разобрался..

(11) Индексы как то влияют?
Я беру любую другую таблицу без индекса, на ней все прекрасно работает, на этой не хочет.

еще попробуй на vbscript,у меня подключение к парадокс из 1с так и не заработало,хотя из vbscript тот же код работал
просто,1с изначально задает параметры доступа к данным и при загрузке ado dll,они эти рараметры получпют и работают по другому,нежкли без инициализации

на вот, должно помочь
https://cloud.mail.ru/public/HwQs/gJuwjL5Vj

(17) Вот спасибо! Сейчас попробую, отпишусь. Пока меня небыло на форуме... На своем компе, локально, записал все эти DBF. установил провайдер VPF, подключился через ADO и о счастье, все заработало! Ну проблему numerec это есть подсказки, все решил. Переношу все на рабочий комп, ставлю, опять таки провайдер, подключаюсь - не работает! Строка подключения не нравится из за параметра Deleted. убрал, Адо коннектится но при выполнении команды Select выдает что какая то переменная не определена. В общем танцы с бубнами да и только. Сейчас буду пробовать с 1C++, и задача то простая. Есть в дбф поля которые надо обновить. При этом приходится просить всех выйти из базы, войти монопольно и тогда! можно чтото с этим сделать. А как же разделенный доступ? Про штатные средства... там видимо никак. Вот и приходится изыскивать варианты с АДО

(18) проще не использовать дбф.
Проще базу в 1sqlite например, создать

там нужно тогда всего лишь загрузить 1 вк 1sqlite.dll и всё.

ну и дальше ужо - инсерт/апдеейт/делете + транзакции.

если из 1с не работает,напишите тоже самое на VbScript и запускайте из командной строки

(17) Попробовал на локалке, запрос проходит. Сейчас перенесу на рабочий комп, там попробую.
Кстати Я смотрел 1sqlite не разобрался как делать запрос к произвольному DBF. Везде примеры доступа к DBF 1c. А так вкусная штуковина. Если есть пример с этой DLL буду очень благодарен. У меня не 1с база, в том то и дело. Я не могу менять структуру таблиц. Мне надо только организовать взаимодействие с ней пользователей на приемлемом уровне в разделенном режиме. Поскольку я работаю с 1с77 уже довольно давно, то пробую эту платформу использовать. Так быстрее всего получается, но вот завис на проблеме.

(22) Учту, это может быть выходом!

(17) На рабочем компе вот так ругается:
FAILED! ICommandText::Execute(): Variable 'CFG_SBFIO' is not found.

Не пойму в чем дело, видимо придется через VbScript

У меня и переменной такой нет нигде

(23) к произвольному дбф - никак. Да и не зачем. Нужно всего лишь создать базу на sqlite, в ней нужные таблички и уже с ними работать.

ну а перегнать данные из дбф в базу на sqllite - пару секунд

(29) А обратно? Мне нельзя трогать структуру таблиц, База переодически выгружается в стороннюю организацию. Это старый досовский CLIPPER. Да и новый интерфейс написать без опыта работы с этими данными сложновато. Проблема основная в отсутствии выборок нужных, вот тут 1с и подходит, но кроме в этих выборках удобно менять какие либо данные и сразу записывать в таблицы.

(30) и обратно так-же, пара сек.

А вообще, если программа открывает Dbf-файл, то она ставит блокировки, вполне возможно, что ADO их видит и не хочет писать в файл, который уже кем-то открыт, тогда как в свободный файл оно пишет без проблем.

(32) Даже просто таблицу не открывает! никто в ней не работает

через vfp и 1с++ можно отключить блокировки к дбф и писать/читать одновременно

(34) В данном случае пробовал присланный пример не хочет читать НД (25)

(35) помести в каталог без русских букв в названии

чтоб полный путь к файлу был полностью английским

(37) цифры и английские буквы. Переделал подключение на VBS ошибка таже. Я так думаю чтото на этом компе не то... Если у меня работает, а на этом компе не работает. Провайдер переустанавливал, еще тут стоит вижуал фокс 9.0. что не так? не пойму.

та поделка, что выше, при обращении к другому дбф файлу, выдаёт ошибки ?

(38) Vbs запускать через SysWow64, чтобы работало в 32-битах.

(40) Система 32 битная

(39) На других файлах пробовал, там все работает без проблем. И через адо и через пример. и vbscript
Что может быть не то с этим файлом?

Файл секретный или выложить можешь ?

Выложить не могу, к сожалению :-(

Тогда проверь заголовок побайтно на соответствие стандарту dbf и проверь, что записи этому стандарту соответствуют.
Возможно, что число с плавающей точкой записано неправильно.
У меня, например, парсер на php успешно жрал кривые dbf-файлы, выгружаемые кем-то на Си, хотя в записи числа с плавающей точкой запятая была не там где нужно, и только Excel его не хотела открывать.

(45) Вот, Excel его гдето на половине обрывает, записи не все выходят в таблицу. А фокс читает весь. Сейчас буду смотреть его вертеть.

(46) Тогда точно, что ошибка в плавающей точке.
Если очень хочется посмотреть, можно накатать программу для чтения Dbf-файла через чтение двоичных данных и проверить форматы.
Файл у тебя битый - однозначно - проверь формат и исправь - всё будет работать.

Кстати, фокс читает содержимое полей в текстовом виде и выводит на экран, для него $ в цифрах не приводит к ошибке, как для Excel.

достаточно в дбф редакторе открыть и сохранить.

(49) При этом, часто, неправильно записанные данные теряются.

Таблицу исправил, без индекса все работает. С индексом не хочет. Sql пытается использовать индекс. Я посмотрел в индексном файле выражения по которым он строится и выяснил, что одно из выражений индекса зависит от внутренней переменной программы - CFG_SBFIO. Можно как то выполнить SQL выражение без использования индекса? т.к. если индекс удалить, то все работает.

Кстати с индексом не открывает ни фокс ни xBASE

Если ты файл подправил,а индекс-нет,то что ждать
к сожалению,формат индексов у разных программ разный,и,возможно,что адо просто не знает,что за индекс используется

(53) Индексы создает программа базы. Я не могу его исправить.
ADO пытается открыть таблицу с индексом сразу. А можно ее как то настроить, чтобы она таблицу открывала без использования индекса? Есть у нее такие параметры?

(54)а что это тебе даст-прочитать сможешь,но для этогл можно просто скопировать файл в другое место,а записать-только поля,не используемые в индексе,иначе может случиться чудо,и данные в файле сильно пострадают

(55) На данный момент так и приходится делать. Копирую файл, командой апдейт меняю нужные мне поля, копирую файл обратно. В программе делаю реиндекс. Вот хотелось отказаться от переноса файла, его изменения. Все это сопровождается просьбами пока освободить программу на момент этих манипуляций. Было желание отказаться от этих манипуляций, т.к. те поля что меняются не влияют на индекс. Но тут то индекс и подвел. С индексом таблица не открывается. А как без индекса открыть не знаю.