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
(VB.NET UWP/WinRT) GeoOp - Find Account ID by NameFinds an account 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 New Chilkat.JsonObject Dim success As Boolean = jsonToken.LoadFile("qa_data/tokens/geoop.json") ' This example assumes we previously obtained an access token Dim oauth2 As New Chilkat.OAuth2 oauth2.AccessToken = jsonToken.StringOf("access_token") Dim rest As New Chilkat.Rest ' Connect to GeoOp and send the following GET request: ' GET /users HTTP/1.1 ' Host: api.geoop.com Dim bAutoReconnect As Boolean = True success = Await rest.ConnectAsync("api.geoop.com",443,True,bAutoReconnect) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' Provide the authentication credentials (i.e. the access token) rest.SetAuthOAuth2(oauth2) ' Set the X-Version header. rest.AddHeader("X-Version","1.0") Dim responseBody As String = Await rest.FullRequestNoBodyAsync("GET","/accounts") If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' If the response status code did not indicate success, then see what happened.. If (rest.ResponseStatusCode <> 200) Then Debug.WriteLine("Request Header: ") Debug.WriteLine(rest.LastRequestHeader) Debug.WriteLine("----") Debug.WriteLine("Response StatusCode = " & rest.ResponseStatusCode) Debug.WriteLine("Response StatusLine: " & rest.ResponseStatusText) Debug.WriteLine("Response Header:") Debug.WriteLine(rest.ResponseHeader) Debug.WriteLine(responseBody) Exit Sub End If Dim json As New Chilkat.JsonObject json.EmitCompact = False json.Load(responseBody) ' Show the full JSON response. (see the sample response at the bottom of this example) Debug.WriteLine(json.Emit()) ' To find the account id for a given company name: Dim caseSensitive As Boolean = False Dim accountId As String = json.FindRecordString("accounts","companyName","Chilkat Software, Inc.",caseSensitive,"id") If (json.LastMethodSuccess <> True) Then Debug.WriteLine("Account not found.") Else Debug.WriteLine("The account ID is: " & accountId) End If ' Find the account ID for the 1st company matching "Chilkat*" accountId = json.FindRecordString("accounts","companyName","Chilkat*",caseSensitive,"id") If (json.LastMethodSuccess <> True) Then Debug.WriteLine("Account not found.") Else Debug.WriteLine("The account ID is: " & accountId) End If ' The full JSON response for GET /accounts looks like this: ' { ' "result": "success", ' "accounts": [ ' { ' "id": 39409, ' "companyName": "Chilkat Software, Inc.", ' "licenses": 999, ' "countryCode": 1 ' } ' ], ' "metadata": { ' "page": 1, ' "pagesCount": 1, ' "recordsPerPage": 20, ' "recordsCount": 1 ' } ' } ' |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.