(Excel) Firebase DELETE - Removing Data

Uses the DELETE method to delete data. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

Download Excel Class Modules Chilkat Excel Class Modules

' Uses the DELETE method to delete 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 Chilkat.FileAccess
Set fac = Chilkat.NewFileAccess

accessToken = fac.ReadEntireTextFile("qa_data/tokens/firebaseToken.txt","utf-8")
If (fac.LastMethodSuccess <> True) Then
    Debug.Print fac.LastErrorText
    Exit Sub
End If

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

' 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.  

success = rest.Connect("chilkat.firebaseio.com",443,True,True)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim authGoogle As Chilkat.AuthGoogle
Set authGoogle = Chilkat.NewAuthGoogle
authGoogle.AccessToken = accessToken
Dim success As Boolean
success = 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 delete a pig we previously added.  The push ID of that pig was -KI3pT33wKauiMxY4QTB,
' so the path will be "/pig-rescue/animal/-KI3pT33wKauiMxY4QTB.json"


jsonResponse = rest.FullRequestNoBody("DELETE","/pig-rescue/animal/-KI3pT33wKauiMxY4QTB.json")
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.Print rest.LastErrorText
    Exit Sub
End If

' Check the response status code.   A 200 response status indicates success.
If (rest.ResponseStatusCode <> 200) Then
    Debug.Print rest.ResponseStatusText
    Debug.Print jsonResponse
    Debug.Print "Failed."
    Exit Sub
End If

Debug.Print "Success."