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

CardConnect
Facebook
GeoOp
Jira
PayPal
Peoplevox
QuickBooks

Shopify
Stripe
SugarCRM
Twitter
VoiceBase
Walmart
Xero
eBay
effectconnect

 

 

 

(VBScript) SugarCRM Create a Record List

Create a record list in Sugar consisting of a set of ids.

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)

set rest = CreateObject("Chilkat_9_5_0.Rest")

success = rest.Connect("your.site.domain",443,1,1)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

success = rest.AddHeader("Cache-Control","no-cache")
success = rest.AddHeader("OAuth-Token","<access_token>")

' The following code creates the JSON request body.
' The JSON created by this code is shown below.
set jsonReq = CreateObject("Chilkat_9_5_0.JsonObject")
success = jsonReq.UpdateString("records[0]","f16760a4-3a52-f77d-1522-5703ca28925f")
success = jsonReq.UpdateString("records[1]","ec409fbb-2b22-4f32-7fa1-5703caf78dc3")

' The JSON request body created by the above code:

' {
'   "records": [
'     "f16760a4-3a52-f77d-1522-5703ca28925f",
'     "ec409fbb-2b22-4f32-7fa1-5703caf78dc3"
'   ]
' }

set sbReq = CreateObject("Chilkat_9_5_0.StringBuilder")
success = jsonReq.EmitSb(sbReq)

success = rest.AddHeader("Content-Type","application/json")

set sbJson = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestSb("POST","/rest/v10/Accounts/record_list",sbReq,sbJson)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

If (rest.ResponseStatusCode <> 200) Then
    outFile.WriteLine("Received error response code: " & rest.ResponseStatusCode)
    outFile.WriteLine("Response body:")
    outFile.WriteLine(sbJson.GetAsString())
    WScript.Quit
End If

set json = CreateObject("Chilkat_9_5_0.JsonObject")
success = json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.

id = json.StringOf("id")
assigned_user_id = json.StringOf("assigned_user_id")
module_name = json.StringOf("module_name")
date_modified = json.StringOf("date_modified")
i = 0
count_i = json.SizeOfArray("records")
Do While i < count_i
    json.I = i
    strVal = json.StringOf("records[i]")
    i = i + 1
Loop

' A sample JSON response body that is parsed by the above code:

' {
'   "id": "ef963176-4845-bc55-b03e-570430b4173c",
'   "assigned_user_id": "1",
'   "module_name": "Accounts",
'   "records": [
'     "f16760a4-3a52-f77d-1522-5703ca28925f",
'     "ec409fbb-2b22-4f32-7fa1-5703caf78dc3"
'   ],
'   "date_modified": "2016-04-05 21:39:19"
' }

outFile.WriteLine("Example Completed.")

outFile.Close

 

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