MSSQL2008: как сохранить файл в поле типа XML?

[Antonariy]

На IIS из html-формы приходит xml-файл в utf-8 с соответствующей процессинговой инстркцией (ПИ), его нужно записать в базу в поле типа xml.

Код: Выделить всё

rs!Data = ReadFile("F:\ImportExport\3.xml")

Public Function ReadFile(path As String) As String
Dim r() As Byte
    Open path For Binary As #1
    ReDim r(LOF(1) - 1)
    Get #1, , r
    Close #1
    ReadFile = StrConv(r, vbUnicode)
End Function

При присвоении значения выдается ошибка "невозможно сменить кодировку". Если из текста файла вырезать ПИ, то файл проглотится, но с кодировкой windows-1251, поэтому в дальнейшем из такого документа лезут кракозябры.

bcp, openrowset и SQLXMLBulkLoad не подходят, нужно решение на чистом ADODB 2.8

[alibek]

А почему не используется ADODB.Stream? Ну или хотя бы методы AppendChunk.

[Antonariy]

ADODB.Stream как прикручивается? Я знаю только как его использовать с Parameters("Output Stream"), а упоминаний про input stream не нашел.
Про AppendChunk забыл, попробую.

[Antonariy]

AppendChunk

"Операция не допускается в данном контексте"
Вообще в watch все value-свойства у этого поля выдают "произошли ошибки при выполнении многошаговой операции", а size = -1.

ADD: rs.Save тоже не работает с таким полем.

[NashRus]

Похоже надо utf-16.

[Antonariy]

Не похоже совсем, впрочем в этом я виноват, предоставил не все данные.
Начну заново:

На IIS из html-формы приходит xml-файл в utf-8, содержащий процессинговую инструкцию (ПИ) <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>, его нужно записать в базу без обращения к файловой системе, поэтому bcp, openrowset и SQLXMLBulkLoad не подходят.

Запись текста в ADODB.Recordset в поле типа XML не удается, в одном случае "произошли ошибки при выполнении многошаговой операции" (со значением этого поля вообще невозможно работать, а рекордсет с таким полем — сохранить на диск), в другом "не удается сменить кодировку" (это было под другим сервером, MSSQL2005).

Запись в поле типа ntext удается, но не удается sp_xml_preparedocument, завершается с той же ошибкой про кодировку:

Код: Выделить всё

declare @XMLDoc xml, @iDoc int

--[Data] [ntext]
select top 1 @XMLDoc = Data from tblTest

EXECUTE sp_xml_preparedocument @iDoc OUTPUT,  @XMLDoc , '<ns1:root xmlns:ns1="http://tempuri.org"/>'
EXECUTE sp_xml_removedocument @iDoc

/*
Сообщение 9402, уровень 16, состояние 1, строка 7
Синтаксический анализ XML: строка 1, символ 56 [i](это ?[u]>[/u])[/i], невозможно переключить кодировку
*/

Если вырезать ПИ, то sp_xml_preparedocument срабатывает, но считает, что текст в кодировке windows-1251.

При этом openrowset загоняет файл с ПИ в xml-поле корректно и без вопросов.

[HandKot]

Antonariy, попробуйте

Код: Выделить всё

    Dim cn As ADODB.Connection
    Dim st As ADODB.Stream
    Dim cmd As ADODB.Command
   
    Set st = New ADODB.Stream
    With st
        .Open
        .Type = adTypeText
        '.Charset = "UTF-8"
        .LoadFromFile "test.xml"
    End With
   
    Set cn = New ADODB.Connection
    cn.Provider = "SQLOLEDB"
    cn.ConnectionString = "Server=MyServer;Database=myBase;Integrated Security=SSPI;"
    cn.CursorLocation = adUseClient
    cn.Open
   
    Set cmd = New Command

    Set cmd.ActiveConnection = cn
    cmd.CommandText = "insert into dbo.Table_xml(DATA) values (?)"
    cmd.CommandTimeout = 240
    cmd.CommandType = adCmdText
    cmd.CreateParameter "xml", adVarChar, adParamInput
    cmd.Parameters(0) = st.ReadText
   
    cmd.Execute
     
    Set cmd.ActiveConnection = Nothing
    Set cmd = Nothing

где DATA - столбец типа XML
сохранял такой файл в кодировке UTF-8

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<root>
<item name="item1" > item_name </item>
</root>

но в поле сохраняется все строки, кроме первой

[Antonariy]

Ограничение есть на размер параметра? Файл может быть размером в пару сотен мегабайт.

[HandKot]

не знаю и не пробовал, проверьте.

а так по МСДН

CreateParameter Method (ADO)
...
Size
Optional. A Long value that specifies the maximum length for the parameter value in characters or bytes.

и по stream ограничения вроде нет

[Antonariy]

Сделал через ADODB.Stream.

[HandKot]

а по размеру не проверяли?
насколько большой файл можно залить?

[Antonariy]

Не проверял, но любой. Не вижу повода для ограничений.

Для Command ntext-параметр задать нельзя, а из тех, что можно, это nvarchar(max) = 4000, поэтому возникли сомнения насчет этого безымянного параметра.