Каталог решений - Получение XML файла с SQL Server средствами ADODB

Возникла передо мной задача обработкой в 1С получить XML, сгенерированный запросом с иcпользованием FOR XML RAW и FOR XML AUTO.

Есть запрос, который генерирует XML файл на SQL сервере. Его нужно было записать в файл, затем обработать.

В статье для примера я сделал запрос, который не связан с данными из базы "SELECT ‘1234567890’ as num1, ‘abcdefghijklmmopqrstuvwxyz’ as str1, ‘абвгдеёжзиклмнопрстуфхцчшщьъэюя’ as str2  for xml raw"

Сначала я использовал стандартную схему с использованием ADODB.Recordset. Дело в том, что XML так получать можно, читая Recordset, и записывая его в текстовый файл, но почему-то начальные буквы слов на кириллице изменялись не различные символы. Я думал, что это проблемы с кодировкой. Перепробовал много вариантов, но решить проблему не удалось.  Желающие могут попробовать. 

Основной цикл получения данных через Recordset выглядит как обычно:

	Поток = Новый COMОбъект("ADODB.Stream");
	Поток.Type = 2; //StreamTypeEnum.adTypeBinary = 1  StreamTypeEnum.adTypeText = 2
	Поток.charset="UTF-8";
	Поток.Open();

	Пока не rs.eof() Цикл
		rsval = rs.Fields(0).Value;
		Поток.Write(rsval);
	КонецЦикла;
	Поток.SaveToFile(ПолноеИмяФайла, 2);  // Записать поток в файл

При получении XML таким способом на выходе в файле получаю строку "1234567890ד   abcdefghijklmmopqrstuvwxyzד   אבגדהו¸זחטךכלםמןנסעףפץצקרש?422;ת?423;?424;?425;C", что явно не соответствует исходному тексту.

Гуглил, читал MSDN, смотрел примеры на C#, VB и прочее и прочее, но так и не удавалось решить проблему. Я даже точно не могу привести источники, которые привели меня к решению проблемы. Но вот эта ветка форума была одной из последних: https://www.sql.ru/forum/717172/adodb-command-object-or-provider-is-not-capable-of-performing-requested-operation-800a0cb3

В результате предлагаю вашему вниманию функцию, которая читает XML с SQL сервера и пишет его в файл:

Функция ПолучитьДанные(cn) Экспорт
	
	QueryText = "SELECT '1234567890' as num1, 'abcdefghijklmmopqrstuvwxyz' as str1, 'абвгдеёжзиклмнопрстуфхцчшщьъэюя' as str2  for xml raw";
	
	myCommand = Новый COMОбъект("ADODB.Command");
	
	objADOStream = Новый COMОбъект("ADODB.Stream");
	
	adTypeText = 2;
	objADOStream.Type = adTypeText; 
	objADOStream.Charset = "UTF-8";
	objADOStream.Open();

	myCommand.ActiveConnection = cn;
	myCommand.Properties("Output stream").Value = objADOStream;	// Output stream связываем с ADODB потоком

	adExecuteStream = 1024;

	myCommand.CommandText = QueryText;
	myCommand.CommandType = 1;	//adCmdText
	myCommand.Execute(QueryText, 0, adExecuteStream);	// Передать поток adExecuteStream - Это важно!

	objADOStream.SaveToFile(ПутьКФайлу, 2);

	objADOStream.Close();

	Сообщить("Файл записан:" +ПутьКФайлу);
	
КонецФункции

На вход в переменной "cn" передается установленное соединение (ADODB.Connection).

Прошу обратить особое внимание, что поток (objADOStream) два раза передается в команду.

Внимание! Для тех, кто скачает обработку, параметры подключение к SQL серверу описаны в функции GetSQLServerConnection() в модуле обработки.