VB6 / MongoDB Atlas / Get Measurements of a Database for a MongoDB Process
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 ChilkatHttp
Dim success As Long
http.DigestAuth = 1
http.Login = "username"
http.Password = "password"
Dim queryParams As New ChilkatJsonObject
success = queryParams.UpdateString("granularity","PT1M")
success = queryParams.UpdateString("period","PT1M")
Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequestParams("GET","https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/processes/{{PROCESS-HOST}}:{{PROCESS-PORT}}/databases/{{DATABASE-NAME}}/measurements",queryParams)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -G -d "granularity=PT1M"
-d "period=PT1M"
--digest -u 'username:password'
https://domain.com/api/atlas/{{version}}/groups/{{ProjectID}}/processes/{{PROCESS-HOST}}:{{PROCESS-PORT}}/databases/{{DATABASE-NAME}}/measurements
Postman Collection Item JSON
{
"name": "Get Measurements of a Database for a MongoDB Process",
"request": {
"method": "GET",
"header": [
],
"url": {
"raw": "{{base_url}}/api/atlas/{{version}}/groups/{{ProjectID}}/processes/{{PROCESS-HOST}}:{{PROCESS-PORT}}/databases/{{DATABASE-NAME}}/measurements?granularity=PT1M&period=PT1M",
"host": [
"{{base_url}}"
],
"path": [
"api",
"atlas",
"{{version}}",
"groups",
"{{ProjectID}}",
"processes",
"{{PROCESS-HOST}}:{{PROCESS-PORT}}",
"databases",
"{{DATABASE-NAME}}",
"measurements"
],
"query": [
{
"key": "granularity",
"value": "PT1M"
},
{
"key": "period",
"value": "PT1M"
}
]
},
"description": "https://docs.atlas.mongodb.com/reference/api/process-databases-measurements/"
},
"response": [
]
}