RecordSet=СоздатьОбъект("ODBCRecordSet");
      obBinaryData= СоздатьОбъект("BinaryData");
     
      ТекстЗапроса="
      |Select *
      |FROM $Справочник.Агенты as спрАгенты (NOLOCK)
      |";                                          
     
      RecordSet.ВыполнитьXML(ТекстЗапроса,obBinaryData);

выдает ошибку "Запрос не XML"

Не удается отобразить страницу XML
Не удается просмотреть ввод XML с использованием списка стилей . Исправьте ошибку и затем нажмите кнопку "Обновить"или повторите попытку позднее.




В текстовом комментарии обнаружен недопустимый знак. Ошибка при обработке ресурса ''file:///C:/1.xml''. Строка 1,Положение...

<

 

- так для любого запроса не получается просмотреть результирующий XML с помощью IE

Snif писал(а) 06. Октября 2006 :: 08:32:

Чтобы получился xml-файл:
1)в начало файла нужно записать заголовок xml файла и начальный тэг корневого элемента;
например:
<?xml version="1.0" encoding="windows-1251" ?>
<SomeData>

2)потом наполнять файл результатами xml запросов;

3)в конец файла записать завершающий тэг корневого элемента.
например:
</SomeData>

Замечание 1.
У объекта BinaryData есть свойство Кодировка определяющее кодировку для операций чтения/записи.
Загрузка результата запроса в переданный объект идет также с учетом значения этого свойства. На сколько я помню, объект ODBCRecordset может записать xml результат в BinaryData только когда он в кодировке 1251 или Unicode.

Замечание 2.
Результат запроса всегда возвращается в Unicode. При необходимости (свойство Кодировка) ODBCRecordset его конвертирует в 1251.

Замечание 3.
Кодировка объекта BinaryData, конечно же, должна быть согласована с содержимым заголовка xml файла. Это ответственность программиста.

Snif писал(а) 06. Октября 2006 :: 12:02:

Дык ведь, именно это я и имел в виду под корневым элементом. В моем примере SomeData и есть элемент верхнего уровня.

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

Запрос=СоздатьОбъект("ODBCRecordset");
Запрос.ВыполнитьXML("select top 100 * from $Справочник.Товары as Товары (nolock) for xml raw", БД);

БД.ЗаписатьСтроку("
|</SomeData>");
 

http://f.foto.radikal.ru/0610/9922a07c33f2.jpg ;

spock писал(а) 06. Октября 2006 :: 15:07:

..наливай!