Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) GeoOp - Find Client ID by NameDownload the client JSON data and lookup a client ID by name.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example also assumes an OAuth2 access token was previously fetched. ' and saved in a JSON file. ' First get our previously obtained access token. ' {"access_token":"e6dqdG....mzjpT04w==","token_type":"Bearer","expires_in":2592000,"owner_id":999236} Dim jsonToken As Chilkat.JsonObject Set jsonToken = Chilkat.NewJsonObject success = jsonToken.LoadFile("qa_data/tokens/geoop.json") ' This example assumes we previously obtained an access token Dim oauth2 As Chilkat.OAuth2 Set oauth2 = Chilkat.NewOAuth2 oauth2.AccessToken = jsonToken.StringOf("access_token") Dim rest As Chilkat.Rest Set rest = Chilkat.NewRest ' Connect to GeoOp and send the following GET request: ' GET /users HTTP/1.1 ' Host: api.geoop.com bAutoReconnect = True success = rest.Connect("api.geoop.com",443,True,bAutoReconnect) If (success <> True) Then Debug.Print rest.LastErrorText Exit Sub End If ' Provide the authentication credentials (i.e. the access token) success = rest.SetAuthOAuth2(oauth2) ' Set the X-Version header. success = rest.AddHeader("X-Version","1.0") responseBody = rest.FullRequestNoBody("GET","/clients") If (rest.LastMethodSuccess <> True) Then Debug.Print rest.LastErrorText Exit Sub End If Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject json.EmitCompact = False ' If the response status code did not indicate success, then see what happened.. If (rest.ResponseStatusCode <> 200) Then Debug.Print rest.LastRequestStartLine Debug.Print "Request Header: " Debug.Print rest.LastRequestHeader Debug.Print "----" Debug.Print "Response StatusCode = "; rest.ResponseStatusCode Debug.Print "Response StatusLine: "; rest.ResponseStatusText Debug.Print "Response Header:" Debug.Print rest.ResponseHeader success = json.Load(responseBody) Debug.Print json.Emit() Exit Sub End If success = json.Load(responseBody) ' Show the full JSON response.. (see below) Debug.Print json.Emit() ' To find the client id for a given company name: caseSensitive = False clientId = json.FindRecordString("clients","companyName","Miller Bakery",caseSensitive,"id") If (json.LastMethodSuccess <> True) Then Debug.Print "Client not found." Else Debug.Print "The client ID is: "; clientId End If ' Find the client ID for the 1st company matching "M*Bakery*" clientId = json.FindRecordString("clients","companyName","M*Bakery*",caseSensitive,"id") If (json.LastMethodSuccess <> True) Then Debug.Print "Client not found." Else Debug.Print "The client ID is: "; clientId End If ' The full JSON response containing all client data: ' ' { ' "result": "success", ' "clients": [ ' { ' "id": 9555868, ' "firstName": "[ Demo", ' "lastName": "Client ]", ' "companyName": "Miller Park Cafe", ' "businessType": "Licensed Restaurant", ' "leadSource": "", ' "emailAddress": null, ' "phoneNumber": null, ' "mobileNumber": null, ' "faxNumber": null, ' "notes": "", ' "deleted": false, ' "hasRecentJobs": true, ' "created": "2016-10-26T12:05:09+00:00", ' "modified": "2016-10-26T12:05:09+00:00", ' "billingClient": null, ' "account": { ' "id": 39409 ' }, ' "address": { ' "line1": "1732 Pennsylvania Avenue NW", ' "line2": "", ' "city": "Washington", ' "postcode": "20006", ' "latitude": 38.899037, ' "longitude": -77.040207 ' }, ' "mailingAddress": {} ' }, ' { ' "id": 9571176, ' "firstName": "Mildred", ' "lastName": "Vanildred", ' "companyName": "Ice Cream Industries", ' "businessType": "Ice Cream", ' "leadSource": null, ' "emailAddress": "milli@icecreamindustries.com", ' "phoneNumber": "678-555-1012", ' "mobileNumber": null, ' "faxNumber": null, ' "notes": "", ' "deleted": false, ' "hasRecentJobs": true, ' "created": "2016-10-31T12:32:12+00:00", ' "modified": "2016-10-31T12:32:13+00:00", ' "billingClient": null, ' "account": { ' "id": 39409 ' }, ' "address": { ' "line1": "2101 West Roosevelt Road", ' "line2": null, ' "city": "Wheaton", ' "postcode": "60187", ' "latitude": 41.8581778, ' "longitude": -88.1380111 ' }, ' "mailingAddress": { ' "line1": "2101 West Roosevelt Road", ' "line2": null, ' "city": "Wheaton" ' } ' }, ' { ' "id": 9571218, ' "firstName": "Joe", ' "lastName": "Miller", ' "companyName": "Miller Bakery", ' "businessType": "Licensed Bakery", ' "leadSource": "", ' "emailAddress": null, ' "phoneNumber": null, ' "mobileNumber": null, ' "faxNumber": null, ' "notes": "", ' "deleted": false, ' "hasRecentJobs": true, ' "created": "2016-10-31T13:02:07+00:00", ' "modified": "2016-10-31T13:02:07+00:00", ' "billingClient": null, ' "account": { ' "id": 39409 ' }, ' "address": { ' "line1": "1832 Pennsylvania Avenue NW", ' "line2": "", ' "city": "Washington", ' "postcode": "20006", ' "latitude": 0, ' "longitude": 0 ' }, ' "mailingAddress": { ' "line1": "", ' "line2": "", ' "city": "" ' } ' } ' ], ' "metadata": { ' "page": 1, ' "pagesCount": 1, ' "recordsPerPage": 20, ' "recordsCount": 3 ' } ' } ' |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.