如何将VB WinForm应用程序连接到SharePoint数据库并提取其数据？

Imports Microsoft.SharePoint.Client

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim siteUrl As String = "http://sharepoint-site-url" ' SharePoint网站的URL
        Dim username As String = "username" ' SharePoint管理员用户名
        Dim password As String = "password" ' SharePoint管理员密码

        Using clientContext As New ClientContext(siteUrl)
            clientContext.Credentials = New SharePointOnlineCredentials(username, password)

            Dim web As Web = clientContext.Web
            Dim list As List = web.Lists.GetByTitle("ListName") ' SharePoint列表的名称

            Dim query As CamlQuery = CamlQuery.CreateAllItemsQuery()
            Dim items As ListItemCollection = list.GetItems(query)

            clientContext.Load(items)
            clientContext.ExecuteQuery()

            For Each item As ListItem In items
                ' 提取数据并进行处理
                Dim title As String = item("Title").ToString()
                Dim description As String = item("Description").ToString()

                ' 在这里进行数据处理或展示
                Console.WriteLine("Title: " & title)
                Console.WriteLine("Description: " & description)
            Next
        End Using
    End Sub
End Class