如何引用和解析Json VBA Ms Access

Option Compare Database
Option Explicit

Sub ParseJson()
    Dim json As String
    Dim dict As New Scripting.Dictionary
    Dim jsonConv As New JSONConverter
    
    ' 假设json变量中存储了要解析的JSON数据
    json = "{""name"": ""John"", ""age"": 30, ""city"": ""New York""}"
    
    ' 将JSON字符串转换为字典对象
    Set dict = jsonConv.ParseJson(json)
    
    ' 通过键名获取对应的值
    Debug.Print "Name: " & dict("name")
    Debug.Print "Age: " & dict("age")
    Debug.Print "City: " & dict("city")
    
    ' 清除对象引用
    Set dict = Nothing
    Set jsonConv = Nothing
End Sub