Код

Процедура Тест()
перем КоличествоЭлементов;
    КоличествоЭлементов=10000;

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

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

	//1. Тест вставки
	ОлеДБКоманда = глОлеДБ.СоздатьКоманду();
	ВремяНачалоЗапроса=_GetPerformanceCounter();
	ТекстЗапроса="INSERT INTO TmpTable (ID,Descr )   VALUES (?,?)";

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

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

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

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

Код

	rc = СоздатьОбъект("ODBCRecordSet");
	sql = СоздатьОбъект("ODBCDatabase");
	Имя0 = "sqlite_1c";
	//Имя_sql_bd = ":memory:";
	Стр_Открыть = "DSN=sqlite_1c;Driver=SQLite3 ODBC Driver;Database=" + Имя_sql_bd + ";" ;
	Фл1 = sql.Соединение(Стр_Открыть);
	Если Фл1 = 0 Тогда
		Сообщить("Не смогли открыть DSN = " + Имя0);
		Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );
		return;
	КонецЕсли;
	rc.УстБД(sql);
	Стр_0 = "CREATE TEMP  TABLE IF NOT EXISTS TmpTable(ID CHAR ,Descr  CHAR)";
	rc.ВыполнитьИнструкцию(Стр_0);
	КоличествоЭлементов=10000;



	ВремяНачалоЗапроса=_GetPerformanceCounter();
	ТекстЗапроса="INSERT INTO TmpTable (ID,Descr )   VALUES (?,?)";

	rc.ДобПараметр(1,14,9,0,);
	rc.ДобПараметр(1,14,70,0,);
	rc.Подготовить(ТекстЗапроса);
	Для ИИ=1 По КоличествоЭлементов Цикл   //
		ID="   12G   ";
		Descr="15-034 MOTOR SUB									";
		rc.УстПараметр(1, ID);  
		rc.УстПараметр(2, Descr);
		rc.Выполнить();
	КонеЦЦикла;  
    ВремяКонецЗапроса=_GetPerformanceCounter();
	ВремяЗапроса=ВремяКонецЗапроса-ВремяНачалоЗапроса;
	Сообщить("Запрос вставки "+(ВремяЗапроса/1000)+"с");

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

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

	rc.Закрыть();
	sql.Закрыть();