Xml zLog para Container

Question

Como faço para converter o xml gravado na tabela Z_LOG para um container. Estou utilizando a função SetXml, mas sem sucesso.

select dados from z_log where datahora > to_date('25-01-2016','DD-MM-YYYY') and rownum <=1

 

Preciso demonstrar as alterações realizadas na base, ora poderá ser em 1 campo, ora em mais, essas informações ficam gravadas no XML da Z_LOG.

Exemplo:

 

    Dim query As Object
    Set query = NewQuery

    query.Add("select dados from z_log where datahora > to_date('25-01-2016','DD-MM-YYYY')")
    query.Active = True

    Dim container As CSDContainer
    Set container = NewContainer

    Dim S As String

    S = query.FieldByName("DADOS").AsString

    container.SetXML(S,True,True, True )

    For i = 0 To container.FieldCount - 1
        MsgBox (container.Fields(i).AsString)
    Next i

    Set query = Nothing
    Set container = Nothing

 

 

 

Answer 1

O Formato do xml de auditoria não é compatível com container.