artbear писал(а) 08. Октября 2008 :: 10:35:


Да.
Но все таки решил проверить и провел тест

перем  V7,локОлеДБКоманда,локОлеДБ;
Процедура КнопкаВыполнитьНажатие(Кнопка)
			ТекстЗапроса = "
		|select СпрТ.id as id
		|from $Справочник.Номенклатура as СпрТ
		|";
		ТЗн = локОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);
		ТЗн.ВыбратьСтроки();

		Пока ТЗн.ПолучитьСтроку()= 1 Цикл
			 id=ТЗн.id;

		КонецЦикла ;


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

Последняя колонка - это процент общего времени выполнения
Цитата:


Обращение к свойствам com-объекта ТЗн занимают в сумме 96%
Собственно запрос 3.5% от общего времени
Если бы было 10 полей, что достаточно типично,
то собственно запрос наверно займет 1/300 от общего времени выполнения

Здесь Dmitro писал специальную компоненту
GameWithFire
для быстрой загрузки в ТЗ из ADO.
правда от 13 2007

Alex_Bob писал(а) 09. Октября 2008 :: 13:38:


Примерчик?

Цитата:

Поищи на форуме itland или на этом форуме по названию ВК.

Я решал такую задачу (регулярный перенос данных из 77 в 8).
Сделал так: из 8ки прямыми запросами к бд 77 через ADO.
Для быстрого и удобного получения результата прямого запроса использовал ранее написанную ради шутки GameWithFire, немного доработал ее, чтобы получать не только объект ТаблицаЗначений, а сразу объект РезультатЗапроса.

По поводу проблемы имен объектов базы 77.
Текст запроса собирается конкатенацией. Конфигурацию 8ки научил получать и хранить сведения о метаданных, именах объектов БД, идентификаторах.
Хранится все в виде вложенных объектов типа Структура. Текст запроса писать достаточно удобно.
Получение (или обновление) информации о метаданных 77 идет подключением к ИБ 77 по ОЛЕ и использованием 1с++ (MetaDataWork) для получения внутренних идентификаторов.

Вроде все просто.

DmitrO писал(а) 12. Октября 2008 :: 06:08:


А можно посмотреть пример реализации этого механизма (обработку), именно с использованием GameWithFire?

По просьбам трудящихся, процедура, которая формирует объект Структура, содержащая метаданные 77 для составления прямых запросов.

Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) Экспорт
	МД = Новый Структура;

	Состояние("Подключение к " + КаталогИБ);

	V7 = Новый COMОбъект("V77.Application");
	Если V7.Initialize(V7.RMTrade, "/d"""+КаталогИБ+""" /n"+ИмяПользователяV7+" /p"+ПарольПользователяV7, "NO_SPASH_SHOW") = 0 Тогда
		Сообщить("Нет доступа к информационной базе.");
		Возврат Ложь;
	КонецЕсли;

	MDW = V7.CreateObject("MetaDataWork");

	MD = V7.Метаданные;

	Состояние("Загрузка справочников..");
	Ст1 = Новый Структура;
	МД.Вставить("Справочник", Ст1);
	Для Номер1 = 1 По MD.Справочник() Цикл
		МДСправочник = MD.Справочник(Номер1);
		Ст2 = Новый Структура;
		Ст1.Вставить(МДСправочник.Идентификатор, Ст2);
		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДСправочник));
		Для Номер2 = 1 По МДСправочник.Реквизит() Цикл
			МДРеквизит = МДСправочник.Реквизит(Номер2);
			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));
		КонецЦикла;
	КонецЦикла;

	Состояние("Загрузка перечислений..");
	Ст1 = Новый Структура;
	МД.Вставить("Перечисление", Ст1);
	Для Номер1 = 1 По MD.Перечисление() Цикл
		МДПеречисление = MD.Перечисление(Номер1);
		Ст2 = Новый Структура;
		Ст1.Вставить(МДПеречисление.Идентификатор, Ст2);
		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДПеречисление));
		Для Номер2 = 1 По МДПеречисление.Значение() Цикл
			МДЗначение = МДПеречисление.Значение(Номер2);
			Ст2.Вставить(МДЗначение.Идентификатор, V7.EvalExpr("_idtostr("+MDW.ИДОбъекта(МДЗначение)+")")+"   ");
		КонецЦикла;
	КонецЦикла;

	Состояние("Загрузка документов..");
	Ст1 = Новый Структура;
	МД.Вставить("Документ", Ст1);
	Для Номер1 = 1 По MD.Документ() Цикл
		МДДокумент = MD.Документ(Номер1);
		Ст2 = Новый Структура;
		Ст1.Вставить(МДДокумент.Идентификатор, Ст2);
		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДДокумент));
		Для Номер2 = 1 По МДДокумент.РеквизитШапки() Цикл
			МДРеквизит = МДДокумент.РеквизитШапки(Номер2);
			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));
		КонецЦикла;
		Для Номер2 = 1 По МДДокумент.РеквизитТабличнойЧасти() Цикл
			МДРеквизит = МДДокумент.РеквизитТабличнойЧасти(Номер2);
			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));
		КонецЦикла;
	КонецЦикла;

	Состояние("Загрузка регистров..");
	Ст1 = Новый Структура;
	МД.Вставить("Регистр", Ст1);
	Для Номер1 = 1 По MD.Регистр() Цикл
		МДРегистр = MD.Регистр(Номер1);
		Ст2 = Новый Структура;
		Ст1.Вставить(МДРегистр.Идентификатор, Ст2);
		Ст2.Вставить("ИД", MDW.ИДОбъекта(МДРегистр));
		Для Номер2 = 1 По МДРегистр.Измерение() Цикл
			МДИзмерение = МДРегистр.Измерение(Номер2);
			Ст2.Вставить(МДИзмерение.Идентификатор, MDW.ИДОбъекта(МДИзмерение));
		КонецЦикла;
		Для Номер2 = 1 По МДРегистр.Ресурс() Цикл
			МДРесурс = МДРегистр.Ресурс(Номер2);
			Ст2.Вставить(МДРесурс.Идентификатор, MDW.ИДОбъекта(МДРесурс));
		КонецЦикла;
		Для Номер2 = 1 По МДРегистр.Реквизит() Цикл
			МДРеквизит = МДРегистр.Реквизит(Номер2);
			Ст2.Вставить(МДРеквизит.Идентификатор, MDW.ИДОбъекта(МДРеквизит));
		КонецЦикла;
	КонецЦикла;

	Константы.МетаданныеУдаленнойИБ.Установить(Новый ХранилищеЗначения(МД));
	Возврат Истина;
КонецФункции
 

Формируется конечно не быстро, но Структура - объект сериализуемый, поэтому ее надо просто хранить в ХранилищеЗначения в базе 8ки, и восстанавливать перед каждым переносом данных, а не формировать заново. Обновлять ее можно периодически при изменении конфигурации, ито если изменения влияют на перенос данных.

Обратите внимание: все идентификаторы объектов в 10ой системе, а идентификаторы значений перечислений в 36ой.