Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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 &
"s>"
        strXML = strXML & vbNewLine & ""
    Else
Open the first entity tag.
 strXML = strXML & vbNewLine & "<" & strRoot &
"s>"
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.
 .MoveNext
            Loop
Close the entity.
 strXML = strXML & vbNewLine & ""
            .Close
        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.

 

 

Sitemap