Private Sub btnUpdate_Click
Dim baseUrl As String = "http://127.0.0.1:8090/api/collections/demo/records/ehqzy7uodj4zruu"
Log(baseUrl)
pb.Initialize(baseUrl)
Dim u As Map = CreateMap()
'u.Put("collectionId", "ji8q5yzgixkapg8")
'u.Put("collectionName", "demo")
u.Put("name", txtUpdate.Text)
u.Put("fname", "test")
Dim qs As String = pb.Map2Json(u)
Dim j As HttpJob
j.Initialize("pb", Me)
j.PutString(baseUrl, qs)
j.GetRequest.SetContentType("application/json")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log("Updated...")
Else
Log(j.ErrorMessage)
End If
j.Release
End Sub