我有一個access資料庫，我正在使用它來創建一個json POST API，以連接到一個利用Neto的網站（https://developers.neto.com.au/documentation/engineers/api-documentation）。我是API的新手，但已經研究了幾個月，在理解它的作業原理方面取得了進展。我已經設法從請求中獲得了一個200狀態的回應，這將表明頭資訊（包括認證是正確的），但與主體有關的錯誤（我相信）。 代碼如下：
Dim readers As New XMLHTTP60
Dim username As String, APIkey As String
Dim strJson As String
strJson = "{"/span> & _
"'過濾器': {" & _
"'OrderStatus': 'Pick'," & _
"'OutputSelector': [" & _
"'OrderID'," & _
"'ShippingOption'," & _
"]," & _
"}" & _
"}"
username = "xxx"/span>
APIkey = "xxxxxxxxxxxxxxxxxxxxx"。
reader.Open "POST"/span>, "https://www.yoursite.co.nz/do/WS/NetoAPI"/span>, False
reader.setRequestHeader "NETOAPI_USERNAME", username
reader.setRequestHeader "NETOAPI_KEY"/span>, APIkey
reader.setRequestHeader "Content-Type", "application/json".
reader.setRequestHeader "Accept", "application/json"。
reader.setRequestHeader "NETOAPI_ACTION", "GetOrder"。
reader.send strJson
Debug.Print reader.Status
Debug.Print reader.responseText
錯誤資訊：
{"CurrentTime":"2021-09-17 02:42:50"，"Ack"。 "Error","Messages":[{"Error": {"Message":"JSON Error"，"SeverityCode"。 "錯誤"},"警告":{"訊息":"警告","嚴重代碼": "Warning","Description":"'"'預期，在字符偏移1（在"'Filter': {'OrderSta. ."）"}]}
最初，我只是想為任何狀態為Pick的訂單檢索2項資料（OrderID和ShippingOption）。 我已經嘗試用""替換所有的'，就像我在其他帖子中看到的那樣，還有一些其他的變化，但是沒有成功。
如果有任何幫助，我將不勝感激。謝謝
。uj5u.com熱心網友回復：
你在你的JSON中使用單引號而不是雙引號
Filter的值是一個用[ ]括起來的集合，所以我相信你也需要包裹Pick（盡管只有一個值）。你在
ShippingOption后面有一個額外的,，當它是最后一個值時，請洗掉它。
你正在使用的是 "A"，而不是 "B"。
嘗試這樣做：
strJSON = "{"/span> & _
""過濾器""。{" & _
""OrderStatus"": [""Pick""], " & _
""OutputSelector""。[" & _
""OrderID""," & _
""ShippingOption"" & _
"]" & _
"}" & _
"}"
以上將產生下面的JSON：
{"Filter"/span>: {"OrderStatus"/span>: ["Pick"],"OutputSelector": ["OrderID","ShippingOption"]}}。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/314184.html
標籤：
上一篇：C 有兩個以上型別的條件型定義