asked on
Set myxml = CreateObject("Microsoft.XMLHTTP")
Set myxsl = CreateObject("MSXML2.DOMDocument")
myxsl.Load ("myfile.xsl")
Set mydoc = CreateObject("MSXML2.DOMDocument")
CommandText = "Select <<fields>> From <<table>>"
Set qry = DBConn.Execute(CommandText, , adCmdText)
If qry.BOF And qry.EOF Then
Else
qry.MoveFirst
Do While Not qry.EOF
'******************************
'myXMLquery is defined here
'******************************
mydoc.loadXML myXMLquery
Dummy = LogIt("mydoc.loadXML loaded")
If mydoc.parseError.ErrorCode Then
Dummy = LogIt("mydoc.parseError.ErrorCode = " & mydoc.parseError.ErrorCode)
Else
myxml.Open "GET", "http://<<otherserver>>", False
Dummy = LogIt("myXML.Open successful")
myxml.setRequestHeader "Content-type", "text/xml"
myxml.Send mydoc
Dummy = LogIt("XML document sent")
Set myresponse = myxml.responseXML
Dummy = LogIt("XML response received")
'******************************
'now process the response
'******************************
myresponse.transformNodeToObject myxsl, mydoc
'results stored in a database here
End If
qry.MoveNext
Loop
End If
qry.Close
Set qry = Nothing
Set mydoc = Nothing
Set myxml = Nothing
Set myxsl = Nothing
Set myresponse = Nothing
ASKER
Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.
TRUSTED BY
ASKER
Any other ideas are still welcome. Otherwise, I will accept the above as the solution.