Переписал  INSERT  без параметризации - результ значительно лучше

	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();
		ID="   12G   ";
		Descr="15-034 MOTOR SUB									";
	ТекстЗапроса="INSERT INTO TmpTable (ID,Descr )   VALUES ('"+ ID + "','"+ Descr+ "')";

	Для ИИ=1 По КоличествоЭлементов Цикл   //
		rc.ВыполнитьСкалярный(ТекстЗапроса);
	КонеЦЦикла;  
    ВремяКонецЗапроса=_GetPerformanceCounter();
	ВремяЗапроса=ВремяКонецЗапроса-ВремяНачалоЗапроса;
	Сообщить("без параметра Запрос вставки "+(ВремяЗапроса/1000)+"с");

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

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

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

 

(kiruha) выложи пожалуста сравнение теста для fox и моего второго варианта
выполненого на одном компьютере
или скажи выложи полностью твой тест с установкой соеденения oledb ( тогда
я твой тест прогоню у себя)
Полностью поддерживаю твою идею о временных быстрых локальных
таблицах ( жедательно настраиваемые на разные бд fox,sqlite и.т.д).
Если граммотно это развить (интегрировать в 1с++) получим  быструю трехзвенку на 1с++.

АХТУНГ!
Думаю, что пока проверку работы параметризированных запросов стоит отложить.
Благодаря этому обсуждению нашел идеологическю ошибку.

Заметил, если устранить идеологическую ошибку, то будет где-то так:

Цитата:

spock писал(а) 08. Октября 2007 :: 09:30:


Для OLE? 100 000? Быстрее выборки?
Когда можно качать сборку?

Остался невыясненным вопрос - почему вставка в Sqllite так медленно.

(spock) Еще есть вопрос по sqlite и BinaryData.Может тоже легко исправить?
Запрос по извлечению данных из 1с+mssql+BinaryData успешно проходит.
Точно такой же Запрос по извлечению данных из 1с+sqlite+BinaryData
вываливается по ошибке
Поле агрегатного объекта не обнаружено (СохранитьВФайл)
Тестовый пример :

	rc = СоздатьОбъект("ODBCRecordSet");
	sql = СоздатьОбъект("ODBCDatabase");
	Имя0 = "SQLite3 ODBC Driver";
	Стр_Открыть = "DSN=sqlite_1c;Driver=SQLite3 ODBC Driver;Database=" + Имя_sql_bd + ";" ;
	Фл1 = sql.Соединение(Стр_Открыть);
	Если Фл1 = 0 Тогда
		Сообщить("Не смогли открыть DSN = " + Имя0);
		Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );
		return;
	КонецЕсли;
	rc.УстБД(sql);
///
	Данные=СоздатьОбъект("BinaryData");
	Стр_0 = " select image  FROM book WHERE numb = 106 ";
	Данные=rc.ВыполнитьСкалярный(Стр_0);
	ИмяФайла = "c:\test1.jpg";
	Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
		ФС.УдалитьФайл(ИмяФайла);
	КонецЕсли;
	Данные.СохранитьВФайл(ИмяФайла);
 

spock писал(а) 09. Октября 2007 :: 06:19:


Кирилл, не могу эффективно "ПолучитьСтроку()"  из временной таблицы. ВыполнитьИнструкцию() создает
каждый раз ТЗ - т.е. на перебор 10 000 строк временной таблицы создается 10 000 ТЗ.

А нельзя ли получать данные не возвращая ТЗ, т.е. чтобы
аналог ВыполнитьИнструкцию(ТекстSQL, ТаблицаРезультатов)
все результаты получал в ТаблицаРезультатов, не создавая новой ТЗ ?
Т.е. у метода Выполнить() был необязательный параметр  [ТаблицаРезультатов]?

Или чтобы результат запроса мог возвращать результат простого типа?
А не только ТЗ с колонкой "return_value"

kiruha писал(а) 09. Октября 2007 :: 17:34:

http://www.1cpp.ru/docum/html/oledb.html#executestatement