Релиб / ASP / Веб-программирование / Recordset из XML / Latest Posts

RE: Recordset из XML

bazile — Thu, 06 Sep 2007 09:30:38 GMT

[тема перенесена в форум по ASP]

RE: Recordset из XML

karambol — Thu, 06 Sep 2007 09:17:19 GMT

Вопрос снят.

Задача решена с исп-м MSXML2.DOMDocument.

Оказывается ADODB.REcordset без всяких проблем читает MSXML2.DOMDocument :)

Привожу пример исп-я в своем ASP:

[code]

Set objRS = Server.CreateObject("ADODB.RecordSet")

set oXML = Server.CreateObject("MSXML2.DOMDocument")

With CreateObject("ADODB.Stream")
.Type = 2 'adTypeText
.Open
.Charset = "utf-8"
.WriteText(strXML) 'читаем с переменной
'.LoadFromFile("F:\MyRs.xml") 'читаем с файла
sXMLStream= .ReadText
.Close
End With

oXML.loadXML sXMLStream
objRS.Open oXML

...

objRS.Close

[/code]

RE: Recordset из XML

karambol — Thu, 06 Sep 2007 08:59:10 GMT

Хм.. подумал... в принципе можно загнать и не в STREAM а MSXML2.DOMDocument, но опять же... не знаю как из DOMDocument возвратить Recordset. Есть у кого готовые процыдуры? Помогите разобраться плз.

Recordset из XML

karambol — Thu, 06 Sep 2007 08:21:47 GMT

Вот приведена проца, которую использую для чтения Рекордсета из ХМЛ-я.

[code]

Sub Read_XML_Data_1()
Dim rst As ADODB.Recordset
Dim stCon As String, stFile As String
Dim i As Long, j As Long

Set rst = New ADODB.Recordset

stFile = "C:\Report.xml"
stCon = "Provider=MSPersist;"

With rst
.CursorLocation = adUseClient
.Open stFile, stCon, adOpenStatic, adLockReadOnly, adCmdFile
Set .ActiveConnection = Nothing
End With
...
rst.Close
Set rst = Nothing

End Sub

[code/]

Как можно переделать процедуру, чтобы читать не с XML-файла, а ADODB.STREAM?

Вобщем задача даже немного не такая. Надо просто создать рекордсет из XML, но не методом загрузки файла, а сожержимого (при это м содержимое - это тот же XML в переменной или STREAM).

Заранее благодарен.