使用 vba Access 解析 Json

如何解决使用 vba Access 解析 Json

大家好，希望有人能帮到我。我想在 VBA 中解析 json 文本并将其存储在 MS Access 表中，它几乎可以工作。

我使用 GitHub 上的一个库来解析，但只有当我想将数据导入我的表时才会出现问题，我得到一个 data type conversion error。我不知道如何修复它。下面是我的代码：

Public Sub exportCCProductidInfo()
    Dim coll As Object
    'Dim json As New ClsJsonParser
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim reader As String
    Dim ccproductid As Variant
    
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("CcProductid_details",dbOpenDynaset,dbSeeChanges)
        
    Set coll = JsonConverter.ParseJson(getTerminalsByCcproduits())
        
    For Each ccproductid In coll
        rs.AddNew
        rs!cc_product_id = ccproductid("cc_product_id") 'this is where i have the problem
        rs!Connected = ccproductid("connected")
        rs!interface = ccproductid("interface")
        rs!registered = ccproductid("registered")
        rs!Type = ccproductid("type")
        rs.Update
    Next
End Sub

getTerminalsByCcproduits() 是我创建的另一个函数，它返回这个结果

[
   {
      "cc_product_id":"0195d-2b0d6-1524c-05508-1","connected":"4","interface":"None","registered":"4","type":"Internal Voice Mail Unit"
   }
]

问题是，而不是 rs!cc_product_id = ccproductid("cc_product_id") 我有 rs!cc_product_id=5 否则和 ccproductid("cc_product_id")= "0195d-2b0d6-1524c-05508-1"

请问，我该如何解决这个数据错误？