От хочу скористатись обробкою [необходимо зарегистрироваться для просмотра ссылки] у ОС Windows 7 x32. Все установив, що вказано у статті. Можливо хтось нею користувався і вже знає про цю помилку - при відкритті цієї обробки помилка:
Цитата
глОлеДБ = СоздатьОбъект("OLEDBData");
{D:\1\EXTFORMS\1.ERT(584)}: Неудачная попытка создания объекта (OLEDBData)
Зрозуміло, що проблема у "конекті" до Microsoft FoxPro драйвера. При інсталяції під адміном вказав, що потрібно встановити для всіх користувачів (про це вичитав у інеті). Що ще може бути?
Ще викладу текст процедури у якій проходить "конект" до драйвера:
//======================================================================
Процедура ПриОткрытии()
глОлеДБ = СоздатьОбъект("OLEDBData");
Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
Рез = глОлеДБ.Соединение(Соединение);
гЗапрос = глОлеДБ.СоздатьКоманду();
гЗапрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");
// Устанавливаем время ожидания захвата таблиц , если во время выполнения запроса кто то проводит документы
// Очень полезная функция - аналогична времени ожидания в 1С
гЗапрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
// Убираем буфепизацию, чтобы данные возвращаемые запросам всегда были актуальны
гЗапрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");
гЗапрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");// Отключили блокировки
ТаблицаССылок = СоздатьОбъект("ИндексированнаяТаблица");
ТаблицаССылок.НоваяКолонка("Объект");
ТаблицаССылок.НоваяКолонка("ВидОбъекта");
ТаблицаССылок.НоваяКолонка("ТипОбъекта");
ТаблицаССылок.НоваяКолонка("ОбъектИд");
ТаблицаССылок.НоваяКолонка("Отметка");
ТаблицаССылок.ДобавитьИндекс("Объект","*Объект");
ТаблицаССылок.ДобавитьИндекс("Отметка","*Отметка");
_Форма=СоздатьОбъект("Форма");
_Форма.УстановитьФорму(Форма);
РасшФормы = СоздатьОбъект("РасширениеФормы");
РасшФормы.УстановитьФорму(Форма);
СтарВысота=0;СтарШирина=0;
метаВорк = СоздатьОбъект("MetaDataWork");
КонецПроцедуры // ПриОткрытии
Добавив загрузку 1С++.dll
попытка
ЗагрузитьВнешнююКомпоненту("1cpp.dll");
Сообщить("Компонента 1С++ загружена!");
Исключение
Сообщить("Пытались, но не загрузили компоненту 1С++ :(");
КонецПопытки;
глОлеДБ = СоздатьОбъект("OLEDBData");
Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
Рез = глОлеДБ.Соединение(Соединение);
Тепер помилка:
Цитата
Рез = глОлеДБ.Соединение(Соединение);
{D:\1\EXTFORMS\1.ERT(595)}: FAILED! IDataInitialize::GetDataSource(): Не найден указанный модуль.