1C mysql без com соединения !

Процедура ВыгрузитьСейчасНажатие(Элемент)

 Connection = Новый COMОбъект("ADODB.Connection");
 Если Connection.State = 0 Тогда	
        SRV = ЭтаФорма.ЭлементыФормы.ДанныеАдрессБазыДанных.Значение;
        DB = ЭтаФорма.ЭлементыФормы.ДанныеИмяБазыДанных.Значение;
        UID = ЭтаФорма.ЭлементыФормы.ДанныеПользовательБазыДанных.Значение;
        PWD = ЭтаФорма.ЭлементыФормы.ДанныеПарольБазыДанных.Значение;      
        JointSrv = 
				"
				|DRIVER={MySQL ODBC 5.3 Unicode Driver};
                |SERVER=" + SRV + ";
				|UID=" + UID + ";
                |PASSWORD=" + PWD + ";
				|DATABASE=" + DB + ";
				|";
        Попытка
            Connection.Open(JointSrv);
			ЭтаФорма.ЭлементыФормы.СтатусВыгрузкиВБазуДанных.Значение = "Успешное подключение !" +Символы.ПС+ "Начало Выгрузки !";
        Исключение
            Connection = Неопределено;
			ЭтаФорма.ЭлементыФормы.СтатусВыгрузкиВБазуДанных.Значение = "Ошибка подключения !";
        КонецПопытки;	
КонецЕсли;		
		
		
		Запрос = Новый Запрос;
		Запрос.Текст =
		"ВЫБРАТЬ РАЗЛИЧНЫЕ
		|	ВложенныйЗапрос.Номенклатура,
		|	ВложенныйЗапрос.Наименование,
		|	ВложенныйЗапрос.Артикул,
		|	ВложенныйЗапрос.Производитель,
		|	СУММА(ВложенныйЗапрос.Остаток) КАК Остаток,
		|	СУММА(ВложенныйЗапрос.Цена) КАК Цена
		|ИЗ
		|	(ВЫБРАТЬ РАЗЛИЧНЫЕ
		|		ВложенныйЗапрос.Номенклатура КАК Номенклатура,
		|		СУММА(ВложенныйЗапрос.Остаток) КАК Остаток,
		|		ВложенныйЗапрос.Наименование КАК Наименование,
		|		ВложенныйЗапрос.Артикул КАК Артикул,
		|		ВложенныйЗапрос.Производитель КАК Производитель,
		|		СУММА(ВложенныйЗапрос1.Цена) КАК Цена
		|	ИЗ
		|		(ВЫБРАТЬ РАЗЛИЧНЫЕ
		|			ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
		|			СУММА(ТоварыНаСкладахОстатки.КоличествоОстаток) КАК Остаток,
		|			ТоварыНаСкладахОстатки.Номенклатура.Наименование КАК Наименование,
		|			ТоварыНаСкладахОстатки.Номенклатура.Артикул КАК Артикул,
		|			ТоварыНаСкладахОстатки.Номенклатура.Производитель КАК Производитель
		|		ИЗ
		|			РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки
		|		ГДЕ
		|			ТоварыНаСкладахОстатки.КоличествоОстаток > 0
		|		
		|		СГРУППИРОВАТЬ ПО
		|			ТоварыНаСкладахОстатки.Номенклатура,
		|			ТоварыНаСкладахОстатки.Номенклатура.Наименование,
		|			ТоварыНаСкладахОстатки.Номенклатура.Артикул,
		|			ТоварыНаСкладахОстатки.Номенклатура.Производитель) КАК ВложенныйЗапрос
		|			ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ РАЗЛИЧНЫЕ
		|				ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура,
		|				СУММА(ЦеныНоменклатурыСрезПоследних.Цена * 1.33) КАК Цена
		|			ИЗ
		|				РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
		|			ГДЕ
		|				ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦенРозница
		|			
		|			СГРУППИРОВАТЬ ПО
		|				ЦеныНоменклатурыСрезПоследних.Номенклатура) КАК ВложенныйЗапрос1
		|			ПО ВложенныйЗапрос.Номенклатура = ВложенныйЗапрос1.Номенклатура
		|	
		|	СГРУППИРОВАТЬ ПО
		|		ВложенныйЗапрос.Номенклатура,
		|		ВложенныйЗапрос.Наименование,
		|		ВложенныйЗапрос.Артикул,
		|		ВложенныйЗапрос.Производитель) КАК ВложенныйЗапрос
		|ГДЕ
		|	ВложенныйЗапрос.Цена > 0
		|
		|СГРУППИРОВАТЬ ПО
		|	ВложенныйЗапрос.Номенклатура,
		|	ВложенныйЗапрос.Наименование,
		|	ВложенныйЗапрос.Артикул,
		|	ВложенныйЗапрос.Производитель";
		
		Запрос.Параметры.Вставить("ТипЦенРозница",справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Закупочная продажа", Истина));
		
Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() цикл
	
	Наименование = Строка(Выборка.Номенклатура);
	Артикул = Строка(Выборка.Артикул);	
	Количество = Число(Выборка.Остаток);
	Цена = Строка(Формат(Выборка.Цена, "ЧГ="));
 
	Connection.Execute (                         
	"                                  
	|INS ERT INTO tested SE T 
	|name = '" + Наименование + "', 
	|article = '" + Артикул + "', 
	|quantity = '" + Количество + "',
	|price = '" + Цена + "'");
	                                                                                                        

конеццикла;
		
		
		
		
				   

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