Auto-Update Currency Exchange rates in Access 2010

I need my database to have updated information about currency exchange rates.
Is there a function or API that gets that information from an internet server?
HikarusAsked:
Who is Participating?
 
Jeffrey CoachmanConnect With a Mentor MIS LiasonCommented:
The other issue is how often you will need the most recent exchange rates.
Exchange rates are updated every 5 minutes in most cases.

See here as well:
http://www.programmableweb.com/api/currency-rates
0
 
Gustav BrockCIOCommented:
From this site daily files can be obtained:

http://www.xe.com/dfs/product.php

/gustav
0
 
HikarusAuthor Commented:
yes, but manually.... I need an automatic way to access the info from the internet...
It's the first time I try something like this, so I have no idea of how to proceed. A sort of XML perhaps?...
0
Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

 
HikarusAuthor Commented:
... and I need a way to read it from a function in Access...
0
 
Gustav BrockCIOCommented:
> yes, but manually....

No, you can download the file or:

<quote>
Only you have access to your Datafeed. The Datafeed serves up a currency rate file in response to a standard HTTP GET request made by your server - a process many of our clients automate. When you register for the service, we assign you a unique URL where you can access the data, and you register the IP range from which you will make your request. If a request to that unique URL does not match the IP address you registered, the feed will block the access.
</quote>

I don't have an account so I don't know the details, but you can create a trial account and get all the support you need.

It's quite easy to download a file:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) _
  As Long


Public Function DownloadFile( _
  ByVal strURL As String, _
  ByVal strLocalFilename As String) _
  As Long
  
' Download file or page with public access from the web.
' 2004-12-17. Cactus Data ApS, CPH.

' Usage, download a file:
' lngRet = DownloadFile("http://www.databaseadvisors.com/Graphics/conf2002/2002ConferencePicsbySmolin/images/dba02smolin27.jpg", "c:\happybassett.jpg")
'
' Usage, download a page:
' lngRet = DownloadFile("http://www.databaseadvisors.com/conf2002/conf200202.asp", "c:\dbaconference.htm")

' Returns 0 if success, error code if not.
' Error codes:
' -2146697210 "file not found".
' -2146697211 "domain not found".

' Limitation.
' Does not check if local file was created successfully.

  Dim lngRetVal As Long
    
  lngRetVal = URLDownloadToFile(0, strURL & vbNullChar, strLocalFilename & vbNullChar, 0, 0)
  
  DownloadFile = lngRetVal
  
End Function

Open in new window

/gustav
0
 
HikarusAuthor Commented:
Seems interesting. I'm going to check it out.
Sorry I'm taking so long to reply, but I´m very busy lately :(
0
 
Graemewebber4technologiesCommented:
just wondering how you went with this? and if you got it to work?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.