Доброе время суток!
Имеется:
Win Server 2012 R2;
1С 7.70.027;
Файловая (.DBF);
1cpp (3.2.2.0);

Нужно:
- подключиться к базе MySQL;
- получить данные;
- сохранить результат в файл .xml

Казалось бы - что сложного? Но у меня "затык" на сохранении в файл .xml Как же мне сохранить результат выборки?

[code]
Процедура ВыгрузитьВxml()
     
     ЗагрузитьВнешнююКомпоненту("1cpp.dll");
     
     ИмяСервера      = "localhost";
     ИмяБазы            = "belcash";
     Пользователь= "root";
     Пароль            = "";
     
     ЗаписыватьОшибкиВЖурналРегистрации = 0;
     
     ConnectionString=
     "DRIVER=MySQL ODBC 5.1 Driver;"      +
     "SERVER="      + ИмяСервера      + ";"      +
     "DataBase="      + ИмяБазы            + ";"      +
     "UID="            + Пользователь      + ";"      +
     "PWD="            + Пароль            + ";"
     ;
     
     _Recordset = СоздатьОбъект("ODBCRecordset");
     Connection = СоздатьОбъект("ODBCDatabase");
     Если Connection.Соединение(ConnectionString) = 1 Тогда
           _Recordset.УстБД(Connection);
     Иначе
           Ошибка = "Не установлен Источники данных (ODBC): MySQL ODBC Driver";
           Если ЗаписыватьОшибкиВЖурналРегистрации = 1 Тогда
                 ЗаписьЖурналаРегистрации(Ошибка,"Ошибка","Ошибка выполнения",,5);
           КонецЕсли;
           Сообщить(Ошибка, "!!!");
           Возврат;
     КонецЕсли;
           
     ТекстЗапроса = "SELECT * FROM plu FOR XML raw";
     
     РезультатВыполненияЗапроса = _Recordset.ВыполнитьXML(ТекстЗапроса,);
     Если ПустаяСтрока(РезультатВыполненияЗапроса) = 1 Тогда
           Ошибка = "Запрос не выполнен";
           Если ЗаписыватьОшибкиВЖурналРегистрации = 1 Тогда
                 ЗаписьЖурналаРегистрации(Ошибка,"Ошибка","Ошибка выполнения",,5);
           КонецЕсли;
           Сообщить(Ошибка, "!!!");
           Возврат;
     КонецЕсли;
КонецПроцедуры
[/code]

Исправил процедуру:

Процедура ВыгрузитьВxml()

	ЗагрузитьВнешнююКомпоненту("1cpp.dll");

	ИмяСервера	= "localhost";
	ИмяБазы		= "belcash";
	Пользователь= "root";
	Пароль		= "";

	ЗаписыватьОшибкиВЖурналРегистрации = 0;

	ConnectionString=
	"DRIVER=MySQL ODBC 5.1 Driver;"	+
	"SERVER="	+ ИмяСервера	+ ";"	+
	"DataBase="	+ ИмяБазы		+ ";"	+
	"UID="		+ Пользователь	+ ";"	+
	"PWD="		+ Пароль		+ ";"
	;

	_Recordset = СоздатьОбъект("ODBCRecordset");
	Connection = СоздатьОбъект("ODBCDatabase");
	Если Connection.Соединение(ConnectionString) = 1 Тогда
		_Recordset.УстБД(Connection);
	Иначе
		Ошибка = "Не установлен Источники данных (ODBC): MySQL ODBC Driver";
		Если ЗаписыватьОшибкиВЖурналРегистрации = 1 Тогда
			ЗаписьЖурналаРегистрации(Ошибка,"Ошибка","Ошибка выполнения",,5);
		КонецЕсли;
		Сообщить(Ошибка, "!!!");
		Возврат;
	КонецЕсли;

	ТекстЗапроса = "SELECT * FROM plu for xml raw";

	BinaryData = СоздатьОбъект("BinaryData");
	BinaryData.ПодключитьсяКФайлу("d:\Base1c\11.xml");
	BinaryData.Кодировка = 3;
	BinaryData.ЗаписатьМПБ();
	BinaryData.ЗаписатьСтроку("<?xml version=""1.0"" encoding=""UTF-16"" ?>
	|<SomeData>");
	_Recordset.ВыполнитьXML(ТекстЗапроса, BinaryData);
	BinaryData.ЗаписатьСтроку("
	|</SomeData>");

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

Ошибка при выполнении:
(65)}: State HY010, native 0, message [Microsoft][Диспетчер драйверов ODBC] Ошибка последовательности функций

При изменении последних строк с:

_Recordset.ВыполнитьXML(ТекстЗапроса, BinaryData);
BinaryData.ЗаписатьСтроку("
	|</SomeData>");
 

на:

стр =_Recordset.ВыполнитьXML(ТекстЗапроса);
BinaryData.ЗаписатьСтроку(стр);
BinaryData.ЗаписатьСтроку("
	|</SomeData>");
 

тип ошибки не изменяется.

Файл 11.xml содержит, соответственно, строки:
<?xml version="1.0" encoding="UTF-16" ?>
<SomeData>

Где-то я лопухнулся...

для порядку сделай так
BinaryData.ПодключитьсяКФайлу("d:\Base1c\11.xml", 2, 2);

попробуй, для начала, вместо
SELECT *
получить только одно поле

При выгрузке в .csv такой код отрабатывает:

КаталогСохраненияCSV = "d:/Base1c/";

	ТекстЗапросаВcsv = "SELECT Code FROM plu INTO OUTFILE '" + КаталогСохраненияCSV + "plu.csv'
	|FIELDS TERMINATED BY ';'
	|ESCAPED BY '\\'
	|OPTIONALLY ENCLOSED BY '""'
	|LINES TERMINATED BY '\n'
	|";

	_Recordset.ВыполнитьИнструкцию(ТекстЗапросаВcsv);
	Возврат;
 

trad писал(а) 01. Февраля 2021 :: 09:10:

Использовал информацию с https://stackoverflow.com/questions/2847674/xml-output-from-mysql
По Вашей ссылке не смог найти export to xml, только load xml. Возможно, плохо искал?

trad писал(а) 02. Февраля 2021 :: 06:14:


При использовании cmd:
d:\belcash\mysql\bin\mysql.exe -u root belcash --xml < d:\Base1c\data.sql > d:\Base1c\11.xml
где содержание data.sql  - это просто запрос select Code from plu
Файл 11.xml создается и имеет выбранные данные.
Но при попытке использовать

СтрокаКоманды = "d:\belcash\mysql\bin\mysql.exe -u root belcash --xml < d:\Base1c\data.sql > d:\Base1c\11.xml";
ЗапуститьПриложение(СтрокаКоманды);
 

в Процедуре - файл 11.xml не формируется.

вместо ЗапуститьПриложение
попробуй КомандаСистемы