&НаКлиенте

Функция ПодключитьCOM()

    стрПодключения = "Srvr=""12.34.56.78"";Ref=""ImyaBazi"";Usr=""Администратор"";Pwd="""";";

    Попытка

                        Соединение = Новый COMОбъект("V83.COMConnector");

                        Сообщить("Ок");

                        Возврат Соединение.Connect(стрПодключения);

    Исключение

        Сообщить(ОписаниеОшибки());

                        Возврат Неопределено;                  

    КонецПопытки;

КонецФункции

&НаКлиенте

Процедура Тест(Команда)

            Соединение = ПодключитьCOM();

            Запрос = Соединение.NewObject("Запрос");

            Запрос.Текст = "ВЫБРАТЬ

                           |        Города.Наименование КАК Наименование

                           |ИЗ

                           |        Справочник.Города КАК Города";

            Результат = Запрос.Выполнить();

            Выборка = Результат.Выбрать();

            Выгрузка = Результат.Выгрузить();

            Пока Выборка.Следующий() цикл

                        Сообщить(Выборка.Наименование);

            КонецЦикла;

КонецПроцедуры