Analysera JSON i TSQL

Jag verkar ha en enorm masochistisk streak genom att jag har skrivit en JSON-parser. Den konverterar ett JSON-dokument till en SQL Adjacency-listtabell, som är enkel att använda för att uppdatera dina datatabeller. Egentligen har jag gjort det värre genom att jag har gjort kod för att göra den omvända processen, vilket är att gå från en hierarkitabell till en JSON-sträng

Artikeln och koden finns här:Konsumerar Json-strängar i 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"
     }
  }
}
')

För att få: