Присоединяюсь к другой базе 1с следующим образом

БД     = СоздатьОбъект("ODBCDataBase");
Запрос = СоздатьОбъект("ODBCRecordSet");
     
СтрокаСоединения = "Driver={SQL ПарольSQL+";";
     
Попытка
     БД.ПрисоединитьИБ(КаталогБазы,Пользователь,Пароль,СтрокаСоединения);
           Запрос.УстБД(БД);
Исключение
     Сообщить("Нет доступа к базе ОУ!");
     Сообщить(ОписаниеОшибки());            
     Возврат;
КонецПопытки;      

Делаю простейший запрос по выборке документов. Сами данные выбираются верно, но типизация вида документов производиться не по присоединенной базе, а по текущей. Что я забыл сделать?

Не агрегатный объект другой базы, а всего лишь верный вид агрегатного объекта (вид документа). А в чем тогда смысл УстБД?

Beginner писал(а) 12. Сентября 2008 :: 08:49:

Только что проверил. У меня такой код работает верно.

бд=СоздатьОбъект("ODBCDataBase");
бд.ПрисоединитьИБ("C:\Bases\test\","Новый1","");

ТекстЗапроса="
|select
| docno Номер,
| iddocdef [Вид $ВидДокумента]
|from _1sjourn j (nolock)
|";
рс=СоздатьОбъект("ODBCRecordset");
рс.УстБД(бд);
Рез=рс.ВыполнитьИнструкцию(ТекстЗапроса);
Рез.ВыбратьСтроку();
 

У меня таже проблема и пример кода не прокатывает....? Как можно получить вид документа строкой в чужой базе?

Не правильно выразился, не показывает представление Вида документа

trad писал(а) 14. Октября 2008 :: 05:28:


1с++ = 2.5.0.7

trad писал(а) 14. Октября 2008 :: 06:55:


Все получилось была версия 2.5.0.5, заменил на 2.5.0.7, пасиб

может, кому поможет?

Имеется глобальный гЗапрос = СоздатьОбъект("ODBCRecordSet") работающий с базой по умолчанию
Нужно залинковаться к некой бух.базе.

Параметры бух.базы хранятся в основной базе:
     ПрефиксБазы=СокрЛП(ВыбФирма.ИмяБухБазы)+".dbo.";
     ПрефиксМД=СокрЛП(ВыбФирма.ПутьКБухБазе);
     Если Прав(ПрефиксМД,1)<>"\" Тогда
           ПрефиксМД=ПрефиксМД+"\";
     КонецЕсли;
     ПрефиксМД=ПрефиксМД+"1Cv7.MD";

Внимание! Если внешняя база лежит на другом сервере, сервера должны быть залинкованы.
ИмяБухБазы тогда должно быть таким:
ИмяБухБазы="BuxServer.BuxBaza"

Готовим требуемые алиасы внешней базы:
     БухМета=СоздатьОбъект("MetaDataWork");
     БухМета.ПрисоединитьМД(ПрефиксМД);
     БухКли=ПрефиксБазы+БухМета.ОбрМетаСКЛ("$Справочник.Контрагенты");
     БухИнн=БухМета.ОбрМетаСКЛ("$Справочник.Контрагенты.ИНН");


Строим запрос:
лТекстЗапроса="SELECT
|кбух.descr as ИмяБух,
|кбаз.descr as ИмяБаз
|from
|$Справочник.Контрагенты as кбаз (nolock)
|inner join "+БухКли+" as кбух (nolock)
|on
|$кбаз.ИНН = кбух."+БухИнн+"
|";

ТабРезульт=гЗапрос.ВыполнитьИнструкцию(лТекстЗапроса);

Запрос, конечно, написал только что на коленке, т.к. пояснять смысл монстра из реальной программы - проще повеситься.
Но вроде должен работать и выдавать соответствие названий клиентов в двух базах при условии совпадения у них ИНН