Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

VBScript Web API Examples

Primary Categories

Facebook
GeoOp
Jira
PayPal
Peoplevox
QuickBooks

Shopify
Stripe
SugarCRM
Twitter
VoiceBase
Walmart
Xero
eBay
effectconnect

 

 

 

(VBScript) Xero Get a Filtered Set of Resources (Get all SALES Accounts)

Demonstrates how to add the "where" parameter to get a filtered set of resources. See Get Filtered Resources.

This example gets the accounts where the Type = "SALES".

Note: Requires Chilkat v9.5.0.64 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

' Note: Requires Chilkat v9.5.0.64 or greater.

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set rest = CreateObject("Chilkat_9_5_0.Rest")

' Before sending REST API calls, the REST object needs to be
' initialized for OAuth1.
' See Xero 2-Legged OAuth1 Setup for sample code.

' Assuming the REST object's OAuth1 authenticator is setup, and the initial
' connection was made, we may now send REST HTTP requests..

' ------------------------------------------------------------
' Add the "where" parameter.
success = rest.AddQueryParam("where","Type==""SALES""")

' Get the full list of accounts.
set sbXml = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/api.xro/2.0/Accounts",sbXml)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

' A 200 response is expected for actual success.
If (rest.ResponseStatusCode <> 200) Then
    outFile.WriteLine(sbXml.GetAsString())
    WScript.Quit
End If

' Iterate over the accounts and get some information..

bAutoTrim = 0
set xml = CreateObject("Chilkat_9_5_0.Xml")
success = xml.LoadSb(sbXml,bAutoTrim)

' How many accounts exist?
numAccounts = xml.NumChildrenAt("Accounts")
outFile.WriteLine("numAccounts = " & numAccounts)

i = 0
Do While i < numAccounts
    xml.I = i
    outFile.WriteLine("AccountID: " & xml.GetChildContent("Accounts|Account[i]|AccountID"))
    outFile.WriteLine("Name: " & xml.GetChildContent("Accounts|Account[i]|Name"))
    outFile.WriteLine("Code: " & xml.GetChildIntValue("Accounts|Account[i]|Code"))
    outFile.WriteLine("EnablePaymentsToAccount: " & xml.GetChildBoolValue("Accounts|Account[i]|EnablePaymentsToAccount"))
    outFile.WriteLine("----")
    i = i + 1
Loop

outFile.Close

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.