Object to use for sending URL / retrieving XML

[Brian]

How do I get XML results from a URL into a set of variables (or controls on a
form, or anywhere else I can use them within Access)?

I need to build an interface to the Washington State tax code URL interface
as a small part of a much larger application that has been running for
several years. Their site accepts address-related arguments as part of the
URL, then returns XML results. Here is the URL, using their example address
(probably their office), so there is nothing confidential here:

http://dor.wa.gov/AddressRates.aspx?output=xml&addr=6500 Linderson
way&city=&zip=98501

It returns this in my browser:

<?xml version="1.0" encoding="UTF-8" ?>
- <response loccode="3406" localrate="0.02" rate="0.085" code="0">
<addressline houselow="6400" househigh="6506" evenodd="E"
street="LINDERSON WAY SW" state="WA" zip="98501" plus4="0000" period="Q22010"
code="3406" rta="N" ptba="Thurston PTBA" cez="" />
<rate name="TUMWATER" code="3406" staterate="0.065" localrate="0.02" />
</response>

I need to capture the response fields from XML into variables. I think I can
figure out how to use the object once I can see its methods, but I am not
even sure what object to use to make the call.

 

[Stefan Hoffmann]

hi Brian,

How do I get XML results from a URL into a set of variables (or controls on a
form, or anywhere else I can use them within Access)?

Use

http://msdn.microsoft.com/en-us/library/ms759148(VS.85).aspx

for downloading your file and parse it using

http://msdn.microsoft.com/en-us/library/ms763742(VS.85).aspx

e.g.

http://msdn.microsoft.com/en-us/library/aa468547.aspx


mfG
--> stefan <--

 

[Brian]

Thanks. I ended up with this:

'make the call
Dim AddressLookup as String
AddressLookup =
http://dor.wa.gov/AddressRates.aspx?output=xml&addr=6500 ; Linderson
way&city=&zip=98501
Dim URLCall As Object
Set URLCall = CreateObject("MSXML2.XMLHTTP")
URLCall.Open "POST", AddressLookup, False
URLCall.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"
URLCall.Send (AddressLookup)

etc...