(Visual Basic 6.0) Firebase JSON Put and Patch

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim json1 As String
json1 = "{""a"": 1, ""b"": 2}"

Dim json As New ChilkatJsonObject

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

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()