Grey77 писал(а) 03. Декабря 2017 :: 11:53:


Может все таки так должно быть?

WHERE (Цены.ТипЦен = :Цена1 OR Цены.ТипЦен = :Цена2)
AND Цены.PARENTEXT IN (SELECT val FROM tmpНоменклатура)

В остальном вроде все в порядке.

Grey77 писал(а) 03. Декабря 2017 :: 14:51:


Что не работает то?

P.S. Ну совсем все обленились
тут обработка https://cloud.mail.ru/public/M94W/xuUqxQ7ke

Надоело вылетать при закрытии обработки с ТабличнымиПолями на SQLiteDataProvider. Стал копаться. Оказалось что база закрывается до того как будут уничтожены все Поставщики и подготовленные запросы.

На уровне 1sqlite не решил, возможно найду как обойти...

Но, пока копался, обновил движок sqlite до 3.22.0 и слегка изменил 1sqlite.

Изменение в 1sqlite такое:

1. База.Закрыть() теперь не процедура, а функция и возвращает 1 в случае успешного закрытия или 0 в том случае если не закрыты ПоставщикиДанных или подготовленные запросы.

2. Зачем это? А затем что База.Открыта() вернет 0 т.к. База.Закрыть() не проверяет закрылась ли она. Поведение База.Открыта() не менял.
Возможно стоит изменить поведение База.Открыта() , но из-за совместности с оригинальной версией оно не менялось.
И когда база закрылась, sqlite очищает wal и shm файлы, а без этого они распухают, и это не есть хорошо.

3. База.Закрыть(ВариантЗакрытия) принимает параметр ВариантЗакрытия 1 (по умолчанию, как и раньше) или 2 и закрывает базу в соответствии с https://www.sqlite.org/c3ref/close.html
Параметр 2 скорее для отладки - с ним падает на ТабличномПоле стабильнее, но возможно пригодится в каких-то случаях.

ВК, как всегда, тут: https://cloud.mail.ru/public/9znr/ZJ6ULE9aR

А для удаления Поставщиков в ПриЗакрытии(), чтобы не падало, работает такой код:

Процедура УдалитьПостащиков()

	Таблица		= СоздатьОбъект("ИндексированнаяТаблица");
	Поставщик	= СоздатьОбъект("ПоставщикДанныхИТ");
	Поставщик.ИндексированнаяТаблица = Таблица;

	Информатор=СоздатьОбъект("Информатор");
	Свойства=Информатор.ПолучитьТаблицуСвойств(Контекст);
	Свойства.ВыбратьСтроки();
	Пока Свойства.ПолучитьСтроку() = 1 Цикл
		Переменная="";
		Сервис.ПолучитьПеременнуюКонтекста(Контекст,Свойства.NameEng,Переменная);
		Если ТипЗначенияСтр(Переменная)="ТабличноеПоле" Тогда
			Переменная.ПоставщикДанных = Поставщик;
			Переменная.ОбновитьСтроки();
			Переменная = "";
		КонецЕсли;
	КонецЦикла;

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

Явные преимущества в новом движке выявил? По сравнению с движком в предыдущем релизе 1sqlite.

Я увидел еще одну возможность, о которой не знал:

https://www.sqlite.org/csv.html

Но там нужна библиотека, она есть в исходниках: https://www.sqlite.org/src/artifact?ci=trunk&filename=ext/misc/csv.c

Ты бы не мог её скомпилить и выложить?

Спасибо. А родную не получится собрать?

Оно-то да. Просто тот модуль типа официальный и новый, а то, что ты дал - CSVTable - это один из самых первых модулей загрузки из CSV.

И документации - 0! Пришлось изучать исходники....

Функция CSV2SQLite(ПутьКфайлу, ИмяКолонкиИзПервойСтроки=0, ДопОпции=4, Разделитель=";", СимволКавычек="'", В_ИТЗ=0)

	//Примечания: - Имена колонок не должны содержать символы: $

	//см. исходники: https://github.com/softace/sqliteodbc/blob/master/csvtable.c
	// *
	// * * CSVTable(argv[1],<argv[2]>,<argv[3]>,<argv[4]>,<argv[5]>,<argv[6]>,...,<argv[X]>) * * *
	// *
	// * Argument vector contains:
	// *
	// * argv[0] - name of table to create (required)
	//
	// * argv[1] - filename (required)
	// * argv[2] - number, when non-zero use first line as column names,
	// *           when negative use given type names (optional)
	// * argv[3] - number, when non-zero, translate data (optional):
	// *
	// * 		Translation flags:
	// *
	// * 		1  - convert ISO-8859-1 to UTF-8
	// * 		2  - perform backslash substitution
	// * 		4  - convert and collapse white-space in column names to underscore
	// * 		10 - convert \q to single quote, in addition to backslash substitution
	// *
	// * argv[4] - column separator characters (optional)
	// * argv[5] - string quoting characters (optional)
	// * argv[6] - column/type name for first column (optional)
	// *   ..
	// * argv[X] - column/type name for last column (optional)
	// *

	Перем База,Запр,тЗапр,ТЗ;
	База = СоздатьОбъект("SQLiteBase");
	База.Открыть(":memory:");
	База.РазрешитьЗагрузкуРасширений(1);
	запр = База.НовыйЗапрос();

	тЗапр = "SELECT load_extension('sqlite3_mod_csvtable.dll')";
	запр.ВыполнитьЗапрос(тЗапр);
	тЗапр = "CREATE VIRTUAL TABLE tableName USING CSVTable('"+ПутьКфайлу+"', "+ИмяКолонкиИзПервойСтроки+", "+ДопОпции+", '"+Разделитель+"','"+СимволКавычек+СимволКавычек+"')";
	запр.ВыполнитьЗапрос(тЗапр);
	тЗапр = "SELECT * FROM tableName";
	Если В_ИТЗ=1 Тогда
		ТЗ=СоздатьОбъект("ИндексированнаяТаблица");
		запр.ВыполнитьЗапрос(тЗапр,ТЗ);
	Иначе
		ТЗ=запр.ВыполнитьЗапрос(тЗапр);
	КонецЕсли;
	База = 0;
	Возврат ТЗ;
КонецФункции 

sqlite3_mod_csvtable.dll надо положить в BIN

Спасибо! Пошел разбираться...