ho provato al volo la API List
../api/collections/posts/records
sul loro sito live
funziona
con questo codice VBA:
Dim objXMLHTTP As Object
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
Dim sURL As String
sURL = "
https://pocketbase.io/api/collections/posts/records"
With objXMLHTTP
.Open "GET", sURL, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "user_key", "
te...@example.com"
.setRequestHeader "Session_key", "123456"
.Send
If .Status = "200" Then
MsgBox "ok"
Debug.Print .responseText
Else
MsgBox "errore"
Debug.Print .responseText
End If
End With
Set objXMLHTTP = Nothing
mi viene correttamente restituito
{"page":1,"perPage":30,"totalItems":1,"totalPages":1,"items":[{"active":true,"collectionId":"BHKW36mJl3ZPt6z","collectionName":"posts","created":"2022-07-02
07:46:16.478Z","description":"Lorem ipsum dolor sit amet, consectetur
adipiscing elit. Etiam vehicula luctus egestas. Nulla eget diam et
tellus placerat venenatis id eget leo. Maecenas vitae semper eros.
Suspendisse at arcu velit. Nullam feugiat dictum lorem quis facilisis.
Nunc dapibus posuere augue sit amet facilisis.\r\nDonec ultricies tellus
ut libero varius lacinia. Phasellus ut egestas ligula. Curabitur
hendrerit felis vitae pulvinar
bibendum.","featuredImages":["XPHNJ1ikAoVAgDaMMIXCbAio00irrmIY.jpg","Jgihz6urldOM1ve3EyXbHWYaVqVh0hkK.jpg"],"id":"UP06yiygImYTMCI","options":["optionB"],"title":"Lorem
ipsum","updated":"2022-07-02 08:33:32.066Z"}]}
quindi non vedo problemi a gestire tutte le API sul webserver in locale
BFS