Сложный (общий случай)

Функция

Функция ов=0,Опции="CURSOR NOFILTER") Экспорт
// Опции="ARRAY" временная таблица в оперативной памяти

// Опции="CURSOR NOFILTER" временная таблица , только чтение,read-only, во временных файлах ? (не нашел)
// один индекс

// Опции="CURSOR READWRITE" временная таблица , можно добавлять записи (WRITE), во временных файлах ?
// (не нашел)     несколько индексов

// Опции="TABLE" прямая запись в таблицу. В целях избежать случайной порчи данных здесь не использую :)
//...

// По сообщению с форума sql.ru на вопрос о разнице между CURSOR и ARRAY
// FoxPro стремится все разместить в памяти (курсор). И если таблица очень маленькая то разницы между
//массивом и таблицей в Вашем случае нет...
	ОлеДБКоманда = глОлеДБ.СоздатьКоманду();

	// ....
	МД = СоздатьОбъект("MetaDataWork");  
	Если  ПустоеЗначение(СписокТекстовыхПараметров)=0 Тогда
		Для Счетчик=1 По СписокТекстовыхПараметров.РазмерСписка() Цикл
			ТекПредставление="";
			;
			МД.УстановитьТекстовыйПараметр(ТекПредставление,ТекЗначение);
		КонецЦикла;
	КонецЕсли;
	ПодзапросSQL=МД.ОбрМетаСКЛ(ТекстЗапроса);

//	ВрТекстЗапроса=ПодзапросSQL;
	// Знак "'" не  поддерживается, поэтому заменяем на скобки
	Скобка="[";
	номпозиции=Найти(ПодзапросSQL,"'");
	Пока номпозиции<>0 Цикл  
		1);
		Если Скобка="[" Тогда   Скобка="]"
		Иначе  Скобка="["
		КонецЕсли;
		номпозиции=Найти(ПодзапросSQL,"'");
	КонецЦикла;


	//Разделитель строк не поддерживается поэтому убираем,
	//строки больше 255 симолов не поддерживаются , поэтому удлиняем при помощи CHR(13)
    ВрТекстЗапроса="";
	Для Счетчик=1 По СтрКоличествоСтрок(ПодзапросSQL) Цикл
		ТекСтрока=СтрПолучитьСтроку(ПодзапросSQL,Счетчик);
	//	Сообщить(ТекСтрока);
		ТекСтрока=" "+СокрЛП(ТекСтрока)+" ";
		Если Счетчик=1 Тогда
			ВрТекстЗапроса=ВрТекстЗапроса+ТекСтрока;
		Иначе  
			Если СокрЛП(ТекСтрока)<>"" Тогда
			ПереносСтрокиФоксПро="'+"+CHR(13)+"'";
			ВрТекстЗапроса=ВрТекстЗапроса+ПереносСтрокиФоксПро+ТекСтрока;
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
//	Сообщить(ВрТекстЗапроса);
	//Даты с "'" и с "[" не поддерживаются
	номпозиции=Найти(ВрТекстЗапроса,"{d"); // {d [2006-01-01]}
	Пока  номпозиции<>0 Цикл

			Начало=Лев(ВрТекстЗапроса,номпозиции-1);
			ДатаПар=Сред(ВрТекстЗапроса,номпозиции+4,10);
			Конец=Сред(ВрТекстЗапроса,номпозиции+16);

			ВрТекстЗапроса=Начало+"{^ "+ДатаПар+"}"+Конец;
			номпозиции=Найти(ВрТекстЗапроса,"{d");
	КонецЦикла;

//	Сообщить(ВрТекстЗапроса);  
    Если Опции="ARRAY" Тогда
		ТипТабл="ARRAY"; ДобПар="";
    ИначеЕсли  Опции="CURSOR NOFILTER" Тогда
	   ТипТабл="CURSOR"; ДобПар="NOFILTER";
	Иначе	//  CURSOR READWRITE
		 ТипТабл="CURSOR"; ДобПар="READWRITE";
	КонецЕсли;

    ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('SELECT  * INTO "+ТипТабл+"  "+
			ИмяВременнойТаблицы+" "+ДобПар+" from ("+ВрТекстЗапроса+ ")as WW  ')");
	ОлеДБКоманда.Закрыть();
	Возврат ТЗ.ПолучитьЗначение(1,"return_value");
КонецФункции  

P.S. Временная таблица будет сохранена, пока не разорвана ссесия,
поэтому ее желательно уничтожать.

ОлеДБКоманда.Выполнить("EXECSCRIPT('USE IN TmpTable ')"); 

Еще возможно :

Пример 4. Уложить список объектов.
Тривиально

Пример 5. Все и Все вошедшие в запрос.
Через Distinct к временной таблице и декартово произведение.
Довольно большая нагрузка при декартовом произведении на сетку, поэтому целесообразно во
временные таблицы на клиенте и только потом произведение.

Пример 6.
Вычисления (как планировалось через sqlite ) - наверно возможно, но нужна быстрая выгрузка из ТЗ во временную
таблицу на уровне ядра...
Можно конечно добавлять записи в цикле (для CURSOR READWRITE)

ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('INSERT INTO TmpTable (ID )   VALUES (["+ID+"])')"); 

Но данный код выполняется настолько долго , что теряется смысл оптимизации
(просто Выполнить() не спасает...)

Переменные памяти.

ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('PUBLIC МояПеременная')");
ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('STORE [  1YWY   ] TO МояПеременная')"); 

В первой строке объявили переменную памяти.
Во второй задали значение '  1YWY   ' (это ID документа)

Теперь эту переменную можно использовать

ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("Select *  from TmpTable where TmpTable.IDDOC=МояПеременная"); 

Создание временной таблицы в памяти

ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('CREATE CURSOR TmpTable (МойСтолбец Character(9) NOT NULL) ')");
ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('PUBLIC МояПеременная')");
ТЗ = ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('STORE [  1YWY   ] TO МояПеременная')");

ОлеДБКоманда.ВыполнитьИнструкцию("EXECSCRIPT('INSERT INTO TmpTable (МойСтолбец)   VALUES(МояПеременная)')");  

kriblya писал(а) 01. Февраля 2009 :: 21:14:



Тривиально имеется ввиду уложить простые типы
создаем таблицу
Цитата:

И в цикле пихаем список
Цитата:
- параметрически или непараметрически - до 100 элементов это неважно.
Укладывать можно хоть числа, хоть даты, хоть строки любой длины и т.д - в отличии от стандартного метода.
Когда таблица не нужна ее уничтожают
Цитата:

Или она уничтожается автомат, при разрыве ссесии

Более сложный случай укладки справочника с элементами групп списка.

kriblya писал(а) 02. Февраля 2009 :: 08:51:

Я что-то типа такого писал, вроде достаточно быстро работало

	  ФильтрТоваров	  = "";
	  Для Ном=1 По СписокНоменклатуры.РазмерСписка() Цикл
		    ФильтрТоваров    = окНоменклатуры.ПолучитьЗначение(ном))+"'";
	  КонецЦикла;

	  Запрос.Выполнить("EXECSCRIPT('CREATE CURSOR NomList(ID Character(9))')");
	  Запрос.ВыполнитьИнструкцию("INSERT INTO NomList
		    |SELECT спр.ID
		    |FROM	$Справочник.Номенклатура as спр
		    |LEFT JOIN $Справочник.Номенклатура as спр1 on (спр1.ID=спр.ParentID)
		    |LEFT JOIN $Справочник.Номенклатура as спр2 on (спр2.ID=спр1.ParentID)
		    |LEFT JOIN $Справочник.Номенклатура as спр3 on (спр3.ID=спр2.ParentID)
		    |LEFT JOIN $Справочник.Номенклатура as спр4 on (спр4.ID=спр3.ParentID)
		    |LEFT JOIN $Справочник.Номенклатура as спр5 on (спр5.ID=спр4.ParentID)
		    |WHERE (спр.IsFolder=2)AND(
		    |(спр.ID in("+ФильтрТоваров+"))or
		    |(спр1.ID in("+ФильтрТоваров+"))or
		    |(спр2.ID in("+ФильтрТоваров+"))or
		    |(спр3.ID in("+ФильтрТоваров+"))or
		    |(спр4.ID in("+ФильтрТоваров+"))or
		    |(спр5.ID in("+ФильтрТоваров+"))
		    |)"); 

kriblya писал(а) 02. Февраля 2009 :: 20:37:

ага, 5 уровней
на скорость глобально не тестил, но должно быть быстрее чем сбор элементов+укладка.
да и фильтры у меня не просто на вхождение, условий может целая куча накладываться, одним запросом как минимум удобнее