سلام الله عليكم أســــــــرة فيجوال بيسك لكل العرب
فديت كل من أنار عقلي ..
انا اصبح عندي حســاب مدفوع في اوفــــــس 365 وفي مع قاعدة بيانات رفعتها على الشير بوينت كــ جداول او بما يسمونه قوائم على الشـــير
انا مبتدئ في vb.net بس الحمد لله بفضل هذا الموقع وكامل طاقمة وفريقة اســتطيع إنشاء برامج بسـيطة وفورمات وكذا يعني ..
الأن المشــكلة عندي هي انه صممت برنامج بواسطة vb.net فيجول استيديو واريد ربطة بقاعدة البيانات على الشير بوينت
ما اعرف كيف اســوي كود الاتصال بالشــير بوينت
وكذا عمل استعراض و إضافة وحذف
بالله تكفون فديتكم بس كود الإضافة وكود الاتصال وكود العرض وكود الحذف
وإنشـاء الله الباقي بسيط بيكون عندي
لا تبخلون عليا
أهلا بك! مرحبا بك في فيجوال بيسك. لربط قاعدة البيانات على 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 وقاعدة البيانات الخاصة بك.