JSON ontleden in TSQL

Ik schijn een enorme masochistische trek te hebben omdat ik een JSON-parser heb geschreven. Het converteert een JSON-document naar een SQL Adjacency-lijsttabel, die gemakkelijk te gebruiken is om uw gegevenstabellen bij te werken. Eigenlijk heb ik het slechter gedaan, in die zin dat ik code heb gedaan om het omgekeerde proces uit te voeren, namelijk van een hiërarchietabel naar een JSON-tekenreeks gaan

Het artikel en de code zijn hier:Json-strings consumeren in SQL-server.

Select * from parseJSON('{
  "Person":
  {
     "firstName": "John",
     "lastName": "Smith",
     "age": 25,
     "Address":
     {
        "streetAddress":"21 2nd Street",
        "city":"New York",
        "state":"NY",
        "postalCode":"10021"
     },
     "PhoneNumbers":
     {
        "home":"212 555-1234",
        "fax":"646 555-4567"
     }
  }
}
')

Om te krijgen: