0
Zoeh
24.01.22
✎
16:40
|
ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"1cpp.dll");
БазаДанных = СоздатьОбъект("ODBCDataBase");
БазаДанных.Соединение("
|DRIVER=Microsoft Visual FoxPro Driver;
|Deleted=No;
|Null=No;
|Collate=RUSSIAN;
|BackgroundFetch=No;
|Exclusive=No;
|SourceType=DBF;
|SourceDB=" + КаталогИБ());
РекордСет=СоздатьОбъект("ODBCRecordset");
РекордСет.УстБД(БазаДанных);
.........
РекордСет.УстБД1С();
ТекстЗапроса = "
|SELECT
| Спр.Code as Код,
| Спр.Descr as Наименование
|FROM
| $Справочник.Номенклатура as Спр";
ТЗДолгов = РекордСет.ВыполнитьИнструкцию(ТекстЗапроса);
Сообщить(ТЗДолгов);
Сообщить(типЗначенияСтр(ТЗДолгов));
=
0
Число
ИБ=СоздатьОбъект("ODBCDataBase");
ИБ.ПрисоединитьИБ("\\server\КаталогИБ\");
рс=СоздатьОбъект("ODBCRecordset");
рс.УстБД(ИБ);
Результат=рс.ВыполнитьИнструкцию(ТекстЗапроса);
данный вариант валит в ошибку
State IM001, native 0, message [Microsoft][Диспетчер драйверов ODBC] Драйвер не поддерживает данную функцию
|
|
4
Ёпрст
гуру
24.01.22
✎
18:55
|
и, для скорости, если используется фокс, нужно правильно писать условия и соединения в тексте запроса, что б использовался нужный индекс.
А так, в твоём случае, проще писать через использование sqllite
|
|