Chilkat Online Tools

VB6 / MeiliSearch v0.24 / Add or replace documents

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

' Use this online tool to generate code from sample JSON: Generate Code to Create JSON

' The following JSON is sent in the request body.

' [
'   {
'     "id": 2,
'     "title": "Pride and Prejudice",
'     "author": "Jane Austin",
'     "genre": "romance",
'     "price": 3.5
'   },
'   {
'     "id": 456,
'     "title": "Le Petit Prince",
'     "author": "Antoine de Saint-Exupéry",
'     "genre": "adventure",
'     "price": 10.0
'   },
'   {
'     "id": 1,
'     "title": "Alice In Wonderland",
'     "author": "Lewis Carroll",
'     "genre": "fantasy",
'     "price": 25.99
'   },
'   {
'     "id": 1344,
'     "title": "The Hobbit",
'     "author": "J. R. R. Tolkien",
'     "genre": "fantasy"
'   },
'   {
'     "id": 4,
'     "title": "Harry Potter and the Half-Blood Prince",
'     "author": "J. K. Rowling",
'     "genre": "fantasy"
'   },
'   {
'     "id": 42,
'     "title": "The Hitchhiker's Guide to the Galaxy",
'     "author": "Douglas Adams"
'   }
' ]

Dim jarr As New ChilkatJsonArray

success = jarr.AddObjectAt(-1)
Dim jsonObj_1 As ChilkatJsonObject
Set jsonObj_1 = jarr.ObjectAt(jarr.Size - 1)
success = jsonObj_1.UpdateInt("id",2)
success = jsonObj_1.UpdateString("title","Pride and Prejudice")
success = jsonObj_1.UpdateString("author","Jane Austin")
success = jsonObj_1.UpdateString("genre","romance")
success = jsonObj_1.UpdateNumber("price","3.5")

success = jarr.AddObjectAt(-1)
Set jsonObj_1 = jarr.ObjectAt(jarr.Size - 1)
success = jsonObj_1.UpdateInt("id",456)
success = jsonObj_1.UpdateString("title","Le Petit Prince")
success = jsonObj_1.UpdateString("author","Antoine de Saint-Exupéry")
success = jsonObj_1.UpdateString("genre","adventure")
success = jsonObj_1.UpdateNumber("price","10.0")

success = jarr.AddObjectAt(-1)
Set jsonObj_1 = jarr.ObjectAt(jarr.Size - 1)
success = jsonObj_1.UpdateInt("id",1)
success = jsonObj_1.UpdateString("title","Alice In Wonderland")
success = jsonObj_1.UpdateString("author","Lewis Carroll")
success = jsonObj_1.UpdateString("genre","fantasy")
success = jsonObj_1.UpdateNumber("price","25.99")

success = jarr.AddObjectAt(-1)
Set jsonObj_1 = jarr.ObjectAt(jarr.Size - 1)
success = jsonObj_1.UpdateInt("id",1344)
success = jsonObj_1.UpdateString("title","The Hobbit")
success = jsonObj_1.UpdateString("author","J. R. R. Tolkien")
success = jsonObj_1.UpdateString("genre","fantasy")

success = jarr.AddObjectAt(-1)
Set jsonObj_1 = jarr.ObjectAt(jarr.Size - 1)
success = jsonObj_1.UpdateInt("id",4)
success = jsonObj_1.UpdateString("title","Harry Potter and the Half-Blood Prince")
success = jsonObj_1.UpdateString("author","J. K. Rowling")
success = jsonObj_1.UpdateString("genre","fantasy")

success = jarr.AddObjectAt(-1)
Set jsonObj_1 = jarr.ObjectAt(jarr.Size - 1)
success = jsonObj_1.UpdateInt("id",42)
success = jsonObj_1.UpdateString("title","The Hitchhiker's Guide to the Galaxy")
success = jsonObj_1.UpdateString("author","Douglas Adams")

http.SetRequestHeader "X-Meili-Api-Key","masterKey"

Dim sbRequestBody As New ChilkatStringBuilder
success = jarr.EmitSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("POST","http://localhost:7700/indexes/indexUID/documents",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X POST
	-H "X-Meili-Api-Key: masterKey"
	-d '[
  { "id": 2,    "title": "Pride and Prejudice",                    "author": "Jane Austin",              "genre": "romance",    "price": 3.5 },
  { "id": 456,  "title": "Le Petit Prince",                        "author": "Antoine de Saint-Exupéry", "genre": "adventure" , "price": 10.0 },
  { "id": 1,    "title": "Alice In Wonderland",                    "author": "Lewis Carroll",            "genre": "fantasy",    "price": 25.99 },
  { "id": 1344, "title": "The Hobbit",                             "author": "J. R. R. Tolkien",         "genre": "fantasy" },
  { "id": 4,    "title": "Harry Potter and the Half-Blood Prince", "author": "J. K. Rowling",            "genre": "fantasy" },
  { "id": 42,   "title": "The Hitchhiker\'s Guide to the Galaxy",   "author": "Douglas Adams" }
]'
http://localhost:7700/indexes/indexUID/documents

Postman Collection Item JSON

{
  "name": "Add or replace documents",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "[\n  { \"id\": 2,    \"title\": \"Pride and Prejudice\",                    \"author\": \"Jane Austin\",              \"genre\": \"romance\",    \"price\": 3.5 },\n  { \"id\": 456,  \"title\": \"Le Petit Prince\",                        \"author\": \"Antoine de Saint-Exupéry\", \"genre\": \"adventure\" , \"price\": 10.0 },\n  { \"id\": 1,    \"title\": \"Alice In Wonderland\",                    \"author\": \"Lewis Carroll\",            \"genre\": \"fantasy\",    \"price\": 25.99 },\n  { \"id\": 1344, \"title\": \"The Hobbit\",                             \"author\": \"J. R. R. Tolkien\",         \"genre\": \"fantasy\" },\n  { \"id\": 4,    \"title\": \"Harry Potter and the Half-Blood Prince\", \"author\": \"J. K. Rowling\",            \"genre\": \"fantasy\" },\n  { \"id\": 42,   \"title\": \"The Hitchhiker's Guide to the Galaxy\",   \"author\": \"Douglas Adams\" }\n]",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{url}}/indexes/{{indexUID}}/documents",
      "host": [
        "{{url}}"
      ],
      "path": [
        "indexes",
        "{{indexUID}}",
        "documents"
      ],
      "query": [
        {
          "key": "primaryKey",
          "value": "id",
          "disabled": true
        }
      ]
    }
  },
  "response": [
  ]
}