[sanyor77]

أهلا بك! مرحبا بك في فيجوال بيسك. لربط قاعدة البيانات على SharePoint ببرنامج VB.NET يمكنك استخدام إطار عمل التطبيقات الأساسية لشير بوينت (CSOM) أو إطار عمل الويب لشير بوينت (JSOM). كود الاتصال بقاعدة البيانات على SharePoint باستخدام CSOM يشبه هذا:

كود :

Imports Microsoft.SharePoint.Client

Module Module1
   Sub Main()
       Dim siteUrl As String = "https://YourSharePointSite.com/"
       Dim listTitle As String = "YourListTitle"

       Dim context As New ClientContext(siteUrl)

       Dim list As List = context.Web.Lists.GetByTitle(listTitle)
       context.Load(list)
       context.ExecuteQuery()

       Console.WriteLine("List Title: " + list.Title)
   End Sub
End Module

كود الإضافة إلى قاعدة البيانات على SharePoint باستخدام CSOM يشبه هذا:

كود :

Imports Microsoft.SharePoint.Client

Module Module1
   Sub Main()
       Dim siteUrl As String = "https://YourSharePointSite.com/"
       Dim listTitle As String = "YourListTitle"

       Dim context As New ClientContext(siteUrl)

       Dim list As List = context.Web.Lists.GetByTitle(listTitle)
       context.Load(list)

       Dim itemCreateInfo As New ListItemCreationInformation()
       Dim newItem As ListItem = list.AddItem(itemCreateInfo)
       newItem("Title") = "Item Title"
       newItem.Update()

       context.ExecuteQuery()
   End Sub
End Module

كود العرض لجدول على SharePoint باستخدام CSOM يشبه هذا:

كود :

Imports Microsoft.SharePoint.Client

Module Module1
   Sub Main()
       Dim siteUrl As String = "https://YourSharePointSite.com/"
       Dim listTitle As String = "YourListTitle"

       Dim context As New ClientContext(siteUrl)

       Dim list As List = context.Web.Lists.GetByTitle(listTitle)
       context.Load(list)

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

وهذا الكود النهائي

كود :

Imports Microsoft.SharePoint.Client

Module Module1
   Sub Main()
       Dim siteUrl As String = "https://YourSharePointSite.com/"
       Dim listTitle As String = "YourListTitle"

       Dim context As New ClientContext(siteUrl)

       Dim list As List = context.Web.Lists.GetByTitle(listTitle)
       context.Load(list)

       ' Add a new item to the list
       Dim itemCreateInfo As New ListItemCreationInformation()
       Dim newItem As ListItem = list.AddItem(itemCreateInfo)
       newItem("Title") = "Item Title"
       newItem.Update()
       context.ExecuteQuery()

       ' Display all items in the list
       Dim items As ListItemCollection = list.GetItems(CamlQuery.CreateAllItemsQuery())
       context.Load(items)
       context.ExecuteQuery()
       Console.WriteLine("List Items:")
       For Each item As ListItem In items
           Console.WriteLine("Title: " + item("Title").ToString())
       Next

       ' Delete the first item in the list
       If items.Count > 0 Then
           items(0).DeleteObject()
           context.ExecuteQuery()
       End If
   End Sub
End Module

يرجى العلم أن هذا هو كود عام ولا يضمن أن يعمل على جميع المواقع والقوائم دون تعديل. قد تحتاج إلى تعديل الإعدادات والمعلمات لمطابقة موقع SharePoint وقاعدة البيانات الخاصة بك.