Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New Chilkat.Http
Dim success As Boolean
Dim queryParams As New Chilkat.JsonObject
queryParams.UpdateString("q","SELECT Id, DeveloperName, EventChannel, FilterExpression, SelectedEntity FROM PlatformEventChannelMember")
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim resp As Chilkat.HttpResponse = http.QuickRequestParams("GET","https://domain.com/services/data/v{{version}}/tooling/query/",queryParams)
If (http.LastMethodSuccess = False) Then
Debug.WriteLine(http.LastErrorText)
Exit Sub
End If
Dim sbResponseBody As New Chilkat.StringBuilder
resp.GetBodySb(sbResponseBody)
Dim jResp As New Chilkat.JsonObject
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False
Debug.WriteLine("Response Body:")
Debug.WriteLine(jResp.Emit())
Dim respStatusCode As Integer = resp.StatusCode
Debug.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
Debug.WriteLine("Response Header:")
Debug.WriteLine(resp.Header)
Debug.WriteLine("Failed.")
Exit Sub
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "size": 4,
' "totalSize": 4,
' "done": true,
' "queryLocator": null,
' "entityTypeName": "PlatformEventChannelMember",
' "records": [
' {
' "attributes": {
' "type": "PlatformEventChannelMember",
' "url": "/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000PAvIQAW"
' },
' "Id": "0v84H000000PAvIQAW",
' "DeveloperName": "ChangeEvents_ContactChangeEvent",
' "EventChannel": "ChangeEvents",
' "FilterExpression": null,
' "SelectedEntity": "ContactChangeEvent"
' },
' {
' "attributes": {
' "type": "PlatformEventChannelMember",
' "url": "/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000XZCjQAO"
' },
' "Id": "0v84H000000XZCjQAO",
' "DeveloperName": "ChangeEvents_AccountChangeEvent",
' "EventChannel": "ChangeEvents",
' "FilterExpression": null,
' "SelectedEntity": "AccountChangeEvent"
' },
' {
' "attributes": {
' "type": "PlatformEventChannelMember",
' "url": "/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000fxSfQAI"
' },
' "Id": "0v84H000000fxSfQAI",
' "DeveloperName": "HREvents_Employee_ChangeEvent",
' "EventChannel": "0YL4H0000004C93WAE",
' "FilterExpression": null,
' "SelectedEntity": "Meeting_Note__ChangeEvent"
' },
' {
' "attributes": {
' "type": "PlatformEventChannelMember",
' "url": "/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000fxSkQAI"
' },
' "Id": "0v84H000000fxSkQAI",
' "DeveloperName": "AdvocateEvents_Employee_ChangeEvent",
' "EventChannel": "0YL4H0000004C98WAE",
' "FilterExpression": null,
' "SelectedEntity": "Meeting_Note__ChangeEvent"
' }
' ]
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim v_Type As String
Dim v_Url As String
Dim Id As String
Dim DeveloperName As String
Dim EventChannel As String
Dim FilterExpression As String
Dim SelectedEntity As String
Dim size As Integer = jResp.IntOf("size")
Dim totalSize As Integer = jResp.IntOf("totalSize")
Dim done As Boolean = jResp.BoolOf("done")
Dim queryLocator As String = jResp.StringOf("queryLocator")
Dim entityTypeName As String = jResp.StringOf("entityTypeName")
Dim i As Integer = 0
Dim count_i As Integer = jResp.SizeOfArray("records")
While i < count_i
jResp.I = i
v_Type = jResp.StringOf("records[i].attributes.type")
v_Url = jResp.StringOf("records[i].attributes.url")
Id = jResp.StringOf("records[i].Id")
DeveloperName = jResp.StringOf("records[i].DeveloperName")
EventChannel = jResp.StringOf("records[i].EventChannel")
FilterExpression = jResp.StringOf("records[i].FilterExpression")
SelectedEntity = jResp.StringOf("records[i].SelectedEntity")
i = i + 1
End While
Curl Command
curl -G -d "q=SELECT%20Id,%20DeveloperName,%20EventChannel,%20FilterExpression,%20SelectedEntity%20FROM%20PlatformEventChannelMember"
-H "Authorization: Bearer <access_token>"
https://domain.com/services/data/v{{version}}/tooling/query/
Postman Collection Item JSON
{
"name": "List channel members",
"protocolProfileBehavior": {
"strictSSL": false,
"disableBodyPruning": true
},
"request": {
"method": "GET",
"header": [
],
"body": {
"mode": "raw",
"raw": "",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{_endpoint}}/services/data/v{{version}}/tooling/query/?q=SELECT Id, DeveloperName, EventChannel, FilterExpression, SelectedEntity FROM PlatformEventChannelMember",
"host": [
"{{_endpoint}}"
],
"path": [
"services",
"data",
"v{{version}}",
"tooling",
"query",
""
],
"query": [
{
"key": "q",
"value": "SELECT Id, DeveloperName, EventChannel, FilterExpression, SelectedEntity FROM PlatformEventChannelMember"
}
]
}
},
"response": [
{
"name": "List channel members",
"originalRequest": {
"method": "GET",
"header": [
],
"body": {
"mode": "raw",
"raw": "",
"options": {
"raw": {
"language": "json"
}
}
},
"url": {
"raw": "{{_endpoint}}/services/data/v{{version}}/tooling/query/?q=SELECT Id, DeveloperName, EventChannel, FilterExpression, SelectedEntity FROM PlatformEventChannelMember",
"host": [
"{{_endpoint}}"
],
"path": [
"services",
"data",
"v{{version}}",
"tooling",
"query",
""
],
"query": [
{
"key": "q",
"value": "SELECT Id, DeveloperName, EventChannel, FilterExpression, SelectedEntity FROM PlatformEventChannelMember"
}
]
}
},
"status": "OK",
"code": 200,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Date",
"value": "Mon, 03 Jul 2023 13:16:35 GMT"
},
{
"key": "Strict-Transport-Security",
"value": "max-age=63072000; includeSubDomains"
},
{
"key": "X-Content-Type-Options",
"value": "nosniff"
},
{
"key": "X-Robots-Tag",
"value": "none"
},
{
"key": "Cache-Control",
"value": "no-cache,must-revalidate,max-age=0,no-store,private"
},
{
"key": "Sforce-Limit-Info",
"value": "api-usage=9/15000"
},
{
"key": "Content-Type",
"value": "application/json;charset=UTF-8"
},
{
"key": "Vary",
"value": "Accept-Encoding"
},
{
"key": "Content-Encoding",
"value": "gzip"
},
{
"key": "Transfer-Encoding",
"value": "chunked"
}
],
"cookie": [
],
"body": "{\n \"size\": 4,\n \"totalSize\": 4,\n \"done\": true,\n \"queryLocator\": null,\n \"entityTypeName\": \"PlatformEventChannelMember\",\n \"records\": [\n {\n \"attributes\": {\n \"type\": \"PlatformEventChannelMember\",\n \"url\": \"/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000PAvIQAW\"\n },\n \"Id\": \"0v84H000000PAvIQAW\",\n \"DeveloperName\": \"ChangeEvents_ContactChangeEvent\",\n \"EventChannel\": \"ChangeEvents\",\n \"FilterExpression\": null,\n \"SelectedEntity\": \"ContactChangeEvent\"\n },\n {\n \"attributes\": {\n \"type\": \"PlatformEventChannelMember\",\n \"url\": \"/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000XZCjQAO\"\n },\n \"Id\": \"0v84H000000XZCjQAO\",\n \"DeveloperName\": \"ChangeEvents_AccountChangeEvent\",\n \"EventChannel\": \"ChangeEvents\",\n \"FilterExpression\": null,\n \"SelectedEntity\": \"AccountChangeEvent\"\n },\n {\n \"attributes\": {\n \"type\": \"PlatformEventChannelMember\",\n \"url\": \"/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000fxSfQAI\"\n },\n \"Id\": \"0v84H000000fxSfQAI\",\n \"DeveloperName\": \"HREvents_Employee_ChangeEvent\",\n \"EventChannel\": \"0YL4H0000004C93WAE\",\n \"FilterExpression\": null,\n \"SelectedEntity\": \"Meeting_Note__ChangeEvent\"\n },\n {\n \"attributes\": {\n \"type\": \"PlatformEventChannelMember\",\n \"url\": \"/services/data/v58.0/tooling/sobjects/PlatformEventChannelMember/0v84H000000fxSkQAI\"\n },\n \"Id\": \"0v84H000000fxSkQAI\",\n \"DeveloperName\": \"AdvocateEvents_Employee_ChangeEvent\",\n \"EventChannel\": \"0YL4H0000004C98WAE\",\n \"FilterExpression\": null,\n \"SelectedEntity\": \"Meeting_Note__ChangeEvent\"\n }\n ]\n}"
}
]
}
