(Excel) Firebase JSON Put and Patch

Demonstrates how to apply Firebase put and patch events to a JSON database.

Download Excel Class Modules Chilkat Excel Class Modules

json1 = "{""a"": 1, ""b"": 2}"

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject

' Use Firebase delimiters for JSON paths.
json.DelimiterChar = "/"

Dim success As Boolean
success = json.Load(json1)
success = json.FirebasePut("/c","{""foo"": true, ""bar"": false}")
' Output should be: {"a":1,"b":2,"c":{"foo":true,"bar":false}}
Debug.Print "1) "; json.Emit()

success = json.FirebasePut("/c","""hello world""")
' Output should be: {"a":1,"b":2,"c":"hello world"}
Debug.Print "2) "; json.Emit()

success = json.FirebasePut("/c","{""foo"": ""abc"", ""bar"": 123}")
' Output should be: {"a":1,"b":2,"c":{"foo":"abc","bar":123}}
Debug.Print "3) "; json.Emit()

' Back to the original..
success = json.FirebasePut("/","{""a"": 1, ""b"": 2}")
Debug.Print "4) "; json.Emit()

success = json.FirebasePut("/c","{""foo"": true, ""bar"": false}")
success = json.FirebasePatch("/c","{""foo"": 3, ""baz"": 4}")
' Output should be: {"a":1,"b":2,"c":{"foo":3,"bar":false,"baz":4}}
Debug.Print "5) "; json.Emit()

success = json.FirebasePatch("/c","{""foo"": ""abc123"", ""baz"": {""foo"": true, ""bar"": false}, ""bax"": {""foo"": 200, ""bar"": 400} }")
' Output should be: {"a":1,"b":2,"c":{"foo":"abc123","bar":false,"baz":{"foo":true,"bar":false},"bax":{"foo":200,"bar":400}}}
Debug.Print "6) "; json.Emit()