Visual Basic, VB .NET, ASP, Active X, Access, SQL Server

XML: Criando um Recordset Desconectado de uma String XML


Adicione uma referência a MSXML e então inclua este código em um módulo. Apenas chame a função XMLStringToRecordset passando um documento XML válido. (Nota: o formato do documento deve estar de acordo com o formato definido pela Microsoft).

Public Function XMLStringToRecordset(strXML As String) As Recordset
    Dim objStream As ADODB.Stream
    Dim oRecordset As ADODB.Recordset
   
    Set objStream = New ADODB.Stream
   
    objStream.Open
    objStream.WriteText strXML
    objStream.position = 0
   
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open objStream
   
    objStream.Close
    Set objStream = Nothing

    Set XMLStringToRecordset = oRecordset

    Set oRecordset = Nothing
End Function