We help IT Professionals succeed at work.

Auto-Update Currency Exchange rates in Access 2010

Hikarus
Hikarus asked
on
1,291 Views
Last Modified: 2016-04-27
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?
Comment
Watch Question

CERTIFIED EXPERT
Most Valuable Expert 2015
Distinguished Expert 2018

Commented:
From this site daily files can be obtained:

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

/gustav

Author

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?...

Author

Commented:
... and I need a way to read it from a function in Access...
CERTIFIED EXPERT
Most Valuable Expert 2015
Distinguished Expert 2018

Commented:
> 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
MIS Liason
CERTIFIED EXPERT
Most Valuable Expert 2012
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

Commented:
Seems interesting. I'm going to check it out.
Sorry I'm taking so long to reply, but I´m very busy lately :(
GraemeGPTouring

Commented:
just wondering how you went with this? and if you got it to work?
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.