[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).

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

фанат

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

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

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

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