How to call a Prestashop API out of MsAccess's VBA?

[Tim van Steenbergen]

Hi All,

What do I need to do to call a Prestashop-API out of MsAccess's VBA?

This is my API to call:


UC6LNYDTDALI117JFTC3EMSGJ5CP2E09@demo.tieka.nl/prestashop_underfashion15/api
It will show the categories of my Prestashop.

Best regards,
Tim van Steenbergen

[June7]

What is a Prestashop-API? Prestashop is an on-line business software, what does API mean in this usage? I only know it as 'Application Programming Interface'. Do you just want to open a web page?

You might try Prestashop forum: http://www.prestashop.com/forums/. Unfortunately no page from the forum will open for me.

Google: vb open prestashop api

[Tim van Steenbergen]

Got it!
Add
Microsoft XML, v4.0
Microsoft HTML Object Library
to your References
and then say:

Option Compare DatabaseOption Explicit


Private Function get_categorylist()


On Error GoTo Err_get_categorylist


Dim strResult As String
Dim URL_base As String
Dim str_POST As String
Dim XMLHttpRequest As XMLHTTP


Set XMLHttpRequest = New MSXML2.XMLHTTP
str_POST = "http://UC6LNYDTDALI117JFTC3EMSGJ5CP2E09@demo.tieka.nl/prestashop_underfashion15/api/categories/"
Debug.Print str_POST
XMLHttpRequest.Open "GET", str_POST, False


XMLHttpRequest.Send


MsgBox XMLHttpRequest.responseText


Exit_get_categorylist:
Exit Function


Err_get_categorylist:
MsgBox "get_categorylist - " & err.Description & " " & err.Number
Resume Exit_get_categorylist
End Function


Private Sub Command0_Click()
Call get_categorylist
End Sub

[June7]

Congratulations! Thanks for sharing the solution.