Database Search

TechHome

• ADO Reading XML Data
• Creating User-Defined Types Using XML Document Object Model
• DBF to XML Converter
• Edit an Existing XML File
• Get First Column of Data from an Excel Spreadsheet
• MSXML Transformation via OLE
• Read XML Row by Row Based on Namespace String
• Replace Existing Element with New Data
• Soundex UDF
• Uses XML DOM and DHTML to Create a DSO-like editable HTML display
• XML Recordset and Excel Named Ranges
• XML Recordset Editing Script
• XML Recordset Primer
• XML Recordset to MDB
• XPATH and XML Parsing

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ADO Reading XML Data

 Keywords: ADO Read XML Data ADODB.Connection ADODB.Recordset

;Reading XML Data

#DefineFunction WalkXML(rs)
    While! rs.EOF
        For i = 0 To rs.Fields.Count - 1
            ;Pause( "XML" ,  "<":rs.Fields(i).Name:">"  )
            If rs.Fields(i).Name <> "$Text"
                type = rs.Fields(i).Type
                If type == 136; adChapter
                    adoChildRS = rs.Fields(i).Value
                    WalkXML(adoChildRS)
                Else
                    Pause( "" , "rs.Fields(" : i : ") = " : rs.Fields(i).Name : " = " : rs.Fields(i).Value )
                EndIf
            EndIf
        Next
        rs.MoveNext
    EndWhile
 Return
#EndFunction

strSource =  'C:\TEMP\Data\XML\SimpleXML.xml'



conn = CreateObject( "ADODB.Connection" )
rs = CreateObject( "ADODB.Recordset" )

conn.Open("Provider=MSDAOSP;Data Source=MSXML2.DSOControl;")

rs.Open (strSource, conn )

WalkXML( rs )

rs.Close
conn.Close
Exit

Article ID:   W18154

Filename:   ADO Reading XML Data.txt

File Created: 2013:04:23:11:23:18

Last Updated: 2013:04:23:11:23:18