使用vb.net Retreiving Sharepoint列表数据

Question

我想使用VB.NET检索SharePoint列表数据。

下面的代码是供参考： -

Public Const roleGuid As String = "{8405ef03-40fl-4fan-8dl2-cf7kll1b8c1e}" 
Public Const sharepointSite As String = "https://mysharepointsite.com/sites/resourceview.aspx" 

Public Function getSharepointList() 

Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim sConn As String 
Dim sSql As String 

sConn = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=1;RetrieveIds=Yes;" & _ 
"DATABASE=" & sharepointSite & ";" & _ 
"LIST=" & roleGuid & ";" 

Set cn = New ADODB.Connection 
Set rs = New ADODB.Recordset 

With cn 
    .ConnectionString = sConn 
    .Open 
End With 

sSql = "SELECT * FROM [Student list] as [Student List];" 

rs.Open sSql, cn, adOpenStatic, adLockOptimistic 

ThisWorkbook.Worksheets("Sheet1").Range("A2").CopyFromRecordset rs 


End Function 

下面是错误截图是得到弹出

任何方法或建议将是有益的。

Answer 1

我已经找到了一个办法用vb.net

Public Function retrieveData() 
     'ADD FOLLOWING REFERENCES:- 
     'Microsoft ActiveX Data Objects 2.8 Library 

     'DECLARING CONNECTION AND RECORDSET OBJECTS, SQLQUERY STRING VARIABLE. 
     Dim cnt As ADODB.Connection 
     Dim rs As ADODB.Recordset 
     Dim sqlQuery As String 

     'SETTING UP CONNECTION AND RECORDSET OBJECTS. 
     cnt = New ADODB.Connection 
     rs = New ADODB.Recordset 

    'HERE STUDENT LIST IS YOUR SHAREPOINT LIST NAME. 
     sqlQuery = "Select * from [Student List];" 

     'SETTING CONNECTION STRING TO CONNECTION OBJECT AND OPENING CONNECTION. 
     With cnt 
      .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=https://mysharepointlist.com/sites/;LIST={Your List GUID};" 
      .Open() 
     End With 

     'OPENING RECORDSET. 
     rs.Open(sqlQuery, cnt, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly) 

    'FILLING DATATABLE WITH THE HELP OF DATA ADAPTER.  
    Dim myDa As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter 
     Dim myDs As DataTable = New DataTable 
     myDa.Fill(myDs, rs) 

    'FILLING DATAGRIDVIEW WITH DATATABLE AS DATASOURCE. 
    DataGridView1.Datasource = myDs 

     'CHECKS IF CONNECTION OBJECTS AND RECORDSET OBJECT IS IN OPEN STATE IF YES THEN IT WILL CLOSE AND DEREFERENCE THEM. 
     If CBool(rs.State And ADODB.ObjectStateEnum.adStateOpen) = True Then rs.Close() 
     rs = Nothing 

     If CBool(cnt.State And ADODB.ObjectStateEnum.adStateOpen) = True Then cnt.Close() 
     cnt = Nothing 
    End Function 

来检索SharePoint列表数据