ADO RS to XML конвертор

[Konst_One]

Конвертор XML для ADODB.Recordset.

[Antonariy]

Что-то не очень понимаю... это обертка над rs.Save adPersistsXML, rs.Load или она что-то еще может?

Будь добр, выложи TFM.

И еще не понял промежуточного RS.Save stm, adPersistXML. Можно сразу RS.Save objXML, adPersistXML

[Konst_One]

Пример сохранения в нормальный XML:

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

Public Sub View( _
    ByRef rs As ADODB.Recordset, _
    Optional ByVal AsModal As Boolean = False, _
    Optional sHTML As String = "", _
    Optional encoding As String = "windows-1251")
    '<EhHeader>
    On Error GoTo Err_debug
    '</EhHeader>
   
Dim xm As vRS2XML.Convertor

        If Len(sHTML) = 0 Then
            Set xm = New vRS2XML.Convertor
            sHTML = xm.ADORS_2_XMLString(rs, xrsEntity, , encoding)
            Set xm = Nothing
        End If
   
99      Me.Visible = True
100     Me.WEB.Navigate2 "about:blank"
        Me.Refresh
        DoEvents
       
        modFiles.FileWrite App.Path & "\report.xml", sHTML
       
166     Me.WEB.Navigate2 App.Path & "\report.xml"
'        On Error Resume Next
190     Me.Show vbModeless, f_ViewDB
   
    '<EhFooter>
lb_out:
        Set xm = Nothing
        Exit Sub

Err_debug:
        MsgBox Err.Number & ":" & Err.Description, vbCritical
        Resume lb_out
    '</EhFooter>
End Sub

[Хакер]

Добавлять в список, или кирпич будет доделан / переделан ?

[Konst_One]

юзай as is