Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Web
Expertise: Intermediate
Aug 15, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Build an XML Document for a Recordset on the Fly

(Note: This tip assumes that you have an ActiveConnection setup to your DSN.)

This function creates an XML document from an ADO Recordset, programmatically.

 Public Function CreateXML(strRoot As String,
strSQLStatement As String, Optional
strConnectionString As String) As String

    Dim rstADO As ADOR.Recordset
    Dim fld As ADOR.Field
    Dim strXML As String
    If IsMissing(strConnectionString) Then
        strConnectionString = "ActiveConnectionString"
    End If
    Set rstADO = New ADOR.Recordset
    rstADO.Open strSQLStatement, strConnectionString,
adOpenStatic, adLockReadOnly, adcmdText
Begin the XML declaration. This is required and indicates an XML document.
 strXML = ""
Check for available records.
 If rstADO.EOF And rstADO.BOF Then
Produce an empty element if there's no data.
 strXML = strXML & vbNewLine & "<" & strRoot &
        strXML = strXML & vbNewLine & ""
Open the first entity tag.
 strXML = strXML & vbNewLine & "<" & strRoot &
Loop through the recordset and output them to XML with rstADO until .EOF. Begin the element.
 strXML = strXML & vbNewLine & "<" &
strRoot & ">" 
Dump each field of the recordset for each fld in .Fields.
 strXML = strXML & vbNewLine & "<"
& fld.Name & ">"
                    strXML = strXML & fld.Value
                    strXML = strXML & ""
                Next fld
Close the element.
 strXML = strXML & vbNewLine & ""
Move the next Record.
Close the entity.
 strXML = strXML & vbNewLine & ""
        End With
        Set fld = Nothing
        Set rstADO = Nothing
    End If
    CreateXML = strXML
End Function
Venkat Alladi
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date