منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود الأتصال وكود الإضافة والتعديل والحذف على الشير بوينت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم الشير بوينت SharePoint (http://vb4arb.com/vb/forumdisplay.php?fid=61)
+---- قسم : قسم اسئلة شيربوينت sharepoint (http://vb4arb.com/vb/forumdisplay.php?fid=159)
+---- الموضوع : [سؤال] كود الأتصال وكود الإضافة والتعديل والحذف على الشير بوينت (/showthread.php?tid=37060)



كود الأتصال وكود الإضافة والتعديل والحذف على الشير بوينت - بسام هزاع - 29-11-20

سلام الله عليكم أســــــــرة فيجوال بيسك لكل العرب 

فديت كل من أنار عقلي ..

انا اصبح عندي حســاب مدفوع في اوفــــــس 365  وفي مع قاعدة بيانات رفعتها على الشير بوينت كــ جداول او بما يسمونه قوائم على الشـــير 

انا مبتدئ في vb.net  بس الحمد لله بفضل هذا الموقع وكامل طاقمة وفريقة اســتطيع إنشاء برامج بسـيطة وفورمات وكذا يعني ..

الأن المشــكلة عندي هي انه صممت برنامج بواسطة  vb.net  فيجول استيديو  واريد ربطة بقاعدة البيانات على الشير بوينت

ما اعرف كيف اســوي كود الاتصال بالشــير بوينت  
وكذا عمل استعراض و إضافة وحذف 

بالله تكفون فديتكم بس كود الإضافة وكود الاتصال وكود العرض وكود الحذف 

وإنشـاء الله الباقي بسيط  بيكون عندي

  لا تبخلون عليا


RE: كود الأتصال وكود الإضافة والتعديل والحذف على الشير بوينت - sanyor77 - 26-03-23

أهلا بك! مرحبا بك في فيجوال بيسك. لربط قاعدة البيانات على 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 وقاعدة البيانات الخاصة بك.