Рабочее

[MyPrecious]

help1c.com/faq/view/479.html

Пример подключения к базе 1С 7.7 из 1С 8.0-8.1
Код 1C v 8.0 - 8.1
// Переменная База - строка содержащая путь к базе 1С 7.7
// Возвращает переменную содержащую в себе COM-объект 1С 7.7

Функция ПодключитьсяКOLE(База)
	Попытка
		v7 = Новый COMObject("V1CEnterprise.Application");
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат Null;
	КонецПопытки;
	
	Попытка
		Открыта = v7.Initialize(v7.RMTrade, "/D""" + База+ """ /M ", "NO_SPLASH_SHOW");
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат Null;
	КонецПопытки;
	
	Если Не Открыта Тогда
		Сообщить(ОписаниеОшибки());
		Возврат Null;
	КонецЕсли;
	
	Возврат v7;
КонецФункции

Экземпляр COM-объекта 1С 7.7 уничтожается (по завершению работы с ним) следующим образом:
Код 1C v 8.0 - 8.1

 v7 = "";

  

Тоже гуд. Но я всегда стараюсь с такими вещами работать через:
Код 1C v 8.0 - 8.1

 Попытка
   [...]
Исключение
   [...]
КонецПопытки;  

Чтобы была возможность обработки исключительных ситуациях - максимум автоматизации. Минимум интерактивного вмешательства.


Пример получения данных в 8-ке из 7-ки запросом:

Код 1C v 8.0 - 8.1

	V7 = Новый ComОбъект("V77s.Application");
    Открыта = V7.Initialize(V7.RMTrade,"/d\\basa1c\Work","NO_SPLASH_SHOW");
	Если Открыта Тогда
		Запрос = V7.CreateObject("OdbcRecordSet");
		ТЗ = "
		|S_elect СпрТ.id [Элем $Справочник.Города]
		|from $Справочник.Города СпрТ (nolock)
		|where СпрТ.isMark = 0";
		ТЗн = Запрос.ВыполнитьИнструкцию(ТЗ);
		ТЗн.ВыбратьСтроки();
		Пока ТЗн.ПолучитьСтроку()= 1 Цикл
			Сообщить(ТЗн.Элем.Наименование+" "+Формат(Тзн.Элем.Код, "Ч(0)9.0"))
		КонецЦикла
	КонецЕсли

;

Простой пример подключения

Код 1C v 8.0 - 8.1
// в v 8.1 подключаюсь к семерочной базе

	База= Новый COMObject("v77.Application");
	Открыта=База.Initialize(Опер.RMTrade," /d"+Путь+" /N" + СокрЛП(Пользователь)+ " /P" +СокрЛП(Пароль),"");

	СпрСотр = База.CreateObject("Справочник.Сотрудники");
	Если СпрСотр.Выбрать("Укажите откуда берем остатки:") = 0 Тогда
		Предупреждение("Не указано место остатков!");
		Возврат;
	КонецЕсли;