Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) SharePoint -- Update ListSee more SharePoint ExamplesThis example shows how to update a SharePoint (to change the value of a list property, such as Title). For more information, see https://docs.microsoft.com/en-us/sharepoint/dev/sp-add-ins/working-with-lists-and-list-items-with-rest
' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New ChilkatHttp ' If SharePoint Windows classic authentication is used, then set the ' Login, Password, LoginDomain, and NtlmAuth properties. http.Login = "SHAREPOINT_USERNAME" http.Password = "SHAREPOINT_PASSWORD" http.LoginDomain = "SHAREPOINT_NTLM_DOMAIN" http.NtlmAuth = 1 ' The more common case is to use SharePoint Online authentication (via the SPOIDCRL cookie). ' If so, do not set Login, Password, LoginDomain, and NtlmAuth, and instead ' establish the cookie as shown at SharePoint Online Authentication ' To create a list, we're going to POST to ' https://SHAREPOINT_HTTPS_DOMAIN/_api/web/lists(guid'{list_guid}') ' with a request body containing the following JSON: ' ' { ' "__metadata": { ' "type": "SP.List" ' }, ' "Title": "New title" ' } ' In this case, the list_guid is "b0d92cec-4be1-4e52-943d-ebcb432e1c3b" Dim req As New ChilkatHttpRequest req.HttpVerb = "POST" req.Path = "/_api/web/lists(guid'b0d92cec-4be1-4e52-943d-ebcb432e1c3b')" ' We need to add a form digest value in the X-RequestDigest header field. ' See this example for details on ' how to get (and cache) a form digest value req.AddHeader "X-RequestDigest","SHAREPOINT_FORM_DIGEST" ' Set the Content-Type, and indicate that a JSON response is desired. req.ContentType = "application/json;odata=verbose" req.AddHeader "Accept","application/json;odata=verbose" ' Create and add the JSON body. ' Use this online tool to generate code from sample JSON: ' Generate Code to Create JSON Dim json As New ChilkatJsonObject success = json.UpdateString("__metadata.type","SP.List") success = json.UpdateString("Title","New title") ' Send the POST using HTTPS (TLS). Port 443 is the default port for https. Dim bUseTls As Long bUseTls = 1 Dim resp As ChilkatHttpResponse Set resp = http.SynchronousRequest("SHAREPOINT_HTTPS_DOMAIN",443,bUseTls,req) If (http.LastMethodSuccess <> 1) Then Debug.Print http.LastErrorText Exit Sub End If ' The response body contains JSON. success = json.Load(resp.BodyStr) json.EmitCompact = 0 ' The expected success response code is 201. ' (Let's also check for 200, just in case things change..) If ((resp.StatusCode <> 200) And (resp.StatusCode <> 201)) Then Debug.Print "Response status code = " & resp.StatusCode Debug.Print json.Emit() Debug.Print "Failed" Exit Sub End If ' Show the successful JSON response. Debug.Print json.Emit() Debug.Print "Success." ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.