Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) Firebase PATCH - Updating DataUses the PATCH method to update record with new information. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:
' Uses the PATCH method to update a Firebase record. ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example assumes a JWT authentication token, if required, has been previously obtained. ' See Get Firebase Access Token from JSON Service Account Private Key for sample code. ' Load the previously obtained Firebase access token into a string. Dim fac As New Chilkat.FileAccess Dim accessToken As String = fac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8") If (fac.LastMethodSuccess <> True) Then Debug.WriteLine(fac.LastErrorText) Exit Sub End If Dim rest As New Chilkat.Rest ' Make the initial connection (without sending a request yet). ' Once connected, any number of requests may be sent. It is not necessary to explicitly ' call Connect before each request. Dim success As Boolean = rest.Connect("chilkat.firebaseio.com",443,True,True) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If Dim authGoogle As New Chilkat.AuthGoogle authGoogle.AccessToken = accessToken rest.SetAuthGoogle(authGoogle) ' Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json ' This data is publicly readable, but not writable. You'll need to ' run against your own database.. ' We're going to update "Molly II" to "Molly III" Dim pigNameUpdate As New Chilkat.JsonObject pigNameUpdate.AppendString("name","Molly III") ' The string content of the last arg passed is {"name":"Molly III"} Dim jsonResponse As String = rest.FullRequestString("PATCH","/pig-rescue/animal/-KI3bD-FU_Dake7sYOiP.json",pigNameUpdate.Emit()) If (rest.LastMethodSuccess <> True) Then ' Something happened in the communications (either no request was sent, or no response was received. ' (The Chilkat REST API also has lower-level methods where an app can send the request in one call, ' and then receive the response in another call.) Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' Check the response status code. A 200 response status indicates success. If (rest.ResponseStatusCode <> 200) Then Debug.WriteLine(rest.ResponseStatusText) Debug.WriteLine(jsonResponse) Debug.WriteLine("Failed.") Exit Sub End If ' When successful, the response contains the data written. Debug.WriteLine(jsonResponse) Debug.WriteLine("Success.") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.