Код

	ОлеДБКоманда = глОлеДБ.СоздатьКоманду();

	// Создаем курсор с полями ID и  Descr
	ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('CREATE CURSOR TmpTable (ID Character(9) ,Descr Character(70)) ')");

	//1. Тест вставки
	ОлеДБКоманда = глОлеДБ.СоздатьКоманду();
	ВремяНачалоЗапроса=_GetPerformanceCounter();
	ТекстЗапроса="INSERT INTO TmpTable (ID,Descr )   VALUES (?,?)";
	//Зн_ХХХ = СоздатьОбъект("OLEDBCommand");
	//Зн_ХХХ.
	ОлеДБКоманда.ДобПараметр(1,129,9,0,);
	ОлеДБКоманда.ДобПараметр(1,129,70,0,);
	ОлеДБКоманда.Подготовить(ТекстЗапроса);
	Для ИИ=1 По КоличествоЭлементов Цикл   //
		ID="   12G   ";
		Descr="15-034 MOTOR SUB									";
		ОлеДБКоманда.УстановитьПараметр(1, ID);
		ОлеДБКоманда.УстановитьПараметр(2, Descr);
		ОлеДБКоманда.Выполнить();
	КонеЦЦикла;
    ВремяКонецЗапроса=_GetPerformanceCounter();
	ОлеДБКоманда.ОтменитьПодготовку();
	ВремяЗапроса=ВремяКонецЗапроса-ВремяНачалоЗапроса;
	Сообщить("Запрос вставки OLE DB c параметром "+(ВремяЗапроса/1000)+"с");

	// 2. Тест выборки
	ВремяНачалоЗапроса=_GetPerformanceCounter();
	ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("SELECT  WW.ID,WW.Descr  from TmpTable as WW  ");
	ВремяКонецЗапроса=_GetPerformanceCounter();
	ВремяЗапроса=ВремяКонецЗапроса-ВремяНачалоЗапроса;
	Сообщить("Запрос выборки длился "+(ВремяЗапроса/1000)+"с");

	//Просмотр ТЗ
	Сообщить("Кол строк "+ТЗ.КоличествоСтрок());
	ТЗ.ВыбратьСтроку();

	//Очищение памяти от временной таблицы
	ОлеДБКоманда.Выполнить("EXECSCRIPT('USE IN TmpTable ')");