Private Shared Function GetDBFolder() As FolderItemĭim dbFolder As FolderItem = GetFolderItem( "Databases")įunction GetInvoiceByNumber(invoiceNum As String) As RecordSetĭim stmt As SQLitePreparedStatement = Self. Prepare( "SELECT * FROM Customers WHERE lastname LIKE ? OR firstname LIKE ? ORDER BY lastname, firstname") SQLITE_TEXT)įunction FindCustomersByName(Optional searchName As String) As RecordSetĭim stmt As SQLitePreparedStatement = Self. Prepare( "SELECT * FROM Customers WHERE ID=? ORDER BY lastname, firstname") Sql = "DELETE FROM InvoiceItems WHERE InvoiceNo=" + Str(invoiceNum)įunction FindCustomersByID(ID As String) As RecordSetĭim stmt As PreparedSQLStatement = Self. This method is run at startup to clean out any session databasesįunction DeleteInvoiceItems(invoiceNum As String) As Boolean Shared Function CheckForError(db As Database, msg As String) As Boolean InsertRecord( "InvoiceItems", invoiceRecord) Column( "CustomerID") = customerIDįunction AddInvoiceItem(code As String, quantity As Integer, invoiceNum As String) As Boolean Currenc圜olumn( "InvoiceAmount") = invoiceAmount All Rights Reserved.Function AddInvoice(invoiceNum As String, invoiceDate As String, invoiceAmount As Currency, customerID As String) As Boolean System.DebugLog( "Added record with push ID " + pushId)Ģ000-2021 Chilkat Software, Inc. Return End If // Get the push ID generated by Firebase Dim resp As New Chilkat.
Return End If // Check the response status code. (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.) LastMethodSuccess True) Then // Something happened in the communications (either no request was sent, or no response was received. FullRequestString( "POST", "/pig-rescue/animal.json",pigRecord.
AppendString( "species", "pot belly pig") We're going to add a new pig with four name/value pairs: Dim pigRecord As New Chilkat. You'll need to // run against your own database. Chilkat's sample data (pig-rescue data) is publicly readable at: // This data is publicly readable, but not writable. Return End If Dim authGoogle As New Chilkat. It is not necessary to explicitly // call Connect before each request. Once connected, any number of requests may be sent.
Rest // Make the initial connection (without sending a request yet). ReadEntireTextFile( "qa_data/tokens/firebaseToken.txt", "utf-8") FileAccess Dim accessToken As StringĪccessToken = fac. Load the previously obtained Firebase access token into a string. See Get Firebase Access Token from JSON Service Account Private Key for sample code. This example assumes a JWT authentication token, if required, has been previously obtained. See Global Unlock Sample for sample code. This example requires the Chilkat API to have been previously unlocked. Push a new record to a Firebase JSON database using the POST HTTP method.
#Xojo database example mac os#
Xojo Plugin for Windows, Linux, Mac OS X, and ARM The data used in this example is at Chilkat Firebase Pigs Database, and is shown here: Firebase automatically generates the push ID and returns it in the response. Uses the POST method to append a new record (JSON Object) at a particular location in the database. (Xojo Plugin) Firebase POST - Pushing Data (JSON Object)
0 kommentar(er)
