====== 4.2 Čitanje podataka s VBA ======
Dohvaćanje podataka tablice putem REST API-ja.
===== Potpuni primjer =====
Sub UcitajKlijente()
Dim http As Object
Dim url As String
Dim json As String
url = "http://localhost:5000/api/v1/dsn/demo/tables/Customers?$top=10"
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
http.setRequestHeader "Accept", "application/json"
http.send
If http.Status = 200 Then
json = http.responseText
Debug.Print json
Else
MsgBox "Greška: " & http.Status
End If
End Sub
===== S filterom =====
url = "http://localhost:5000/api/v1/dsn/demo/tables/Customers" & _
"?$filter=Country eq 'Germany'&$orderby=Name"
===== URL kodiranje =====
Posebni znakovi u filteru moraju biti kodirani:
filter = Application.EncodeURL("Country eq 'Germany'")